Userformdan Mail Gönderme

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

A1 hücresindeki "bilgi" yazsını tıklayınca userform açılmalı.

Userformda 2. sekmeye geçildiğinde
Konu: bölümüne mail konusu
Açıklama: mail içeriği buraya yazılacak.

Gönder butonunu tıklayınca
" huseyincoban20@hotmail.com " adresime mail göndermeli.

Konuya ne yazarlarsa mail gönderirken
(senet yazdır tablosu) yazısınıda eklemeli.

Yardım ve fikirlerinizi bekliyorum.

 

[Ömer]

Merhaba,

Sayfa1 'in kod bölümüne,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    UserForm1.Show
End Sub

Formun kod bölümüne,

Private Sub CommandButton1_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = "[EMAIL="huseyincoban20@hotmail.com"]huseyincoban20@hotmail.com[/EMAIL]"
        .CC = ""
        .BCC = ""
        .Subject = TextBox1.Text & " senet yazdır tablosu"
        .Body = TextBox2.Text
        .Attachments.Add ActiveWorkbook.FullName
        .Display
        '.Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

.

 

[Emir Hüseyin Çoban]

Teşekkürler Sayın Ömer sorunsuz olarak çalışıyor, forumda yaptığım form ile mail gönderme konularında hemen hemen herkese çok yardımcı olmuşsunuz. İlginiz için teşekkürler.