Aşağıdaki kod Mailin konusunu, gönderilecek kişileri ilgili dosyadan alıyor ve dosyayı kendine ek yaparak belirlenen adreslere mail atıyor. Yapamadığım tek şey şu; Outlook'ta kayıtlı olan imzamı "body" kısmına eklemesi... Yapabilecek biri yarsa çok sevinirim
Sub Gönder()
Dim OutApp As Object
Dim NewMail As Object
Dim ShName As String, WbName As String
Dim ModX As Object, VBComp As Object
Set OutApp = CreateObject("Outlook.Application")
Set NewMail = OutApp.CreateItem(0)
With NewMail
strbody = "" & Range("F2") & " bilgi dosyası ekte sunulmuştur. Basım veya dağıtımı için gerekli işlemlerin yapılmasını arz/rica ederim.<br><br>İyi çalışmalar."
.Bcc = Range("F10")
.Subject = Range("F2")
.HTMLBody = strbody & "<br><br>" & Signature
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Sub Gönder()
Dim OutApp As Object
Dim NewMail As Object
Dim ShName As String, WbName As String
Dim ModX As Object, VBComp As Object
Set OutApp = CreateObject("Outlook.Application")
Set NewMail = OutApp.CreateItem(0)
With NewMail
strbody = "" & Range("F2") & " bilgi dosyası ekte sunulmuştur. Basım veya dağıtımı için gerekli işlemlerin yapılmasını arz/rica ederim.<br><br>İyi çalışmalar."
.Bcc = Range("F10")
.Subject = Range("F2")
.HTMLBody = strbody & "<br><br>" & Signature
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub