Toplu mail göndermek için kullandığım aşağıdaki kod düzgün çalışıyor. Kodu bozmak istemiyorum fakat geliştirmek istiyorum.
2 adet sorunum var.
1) .From kısmı dolu olduğu zaman adına gönderilecek kişi tarafından yetkili kişinin mail adresi olmasına rağmen kod çalışmıyor. .From u kullanmadığım zaman ancak mail gönderebiliyorum.
2) Ayrıca çok önemli değil ama olsa iyi olur. body kısmında text dosyasının içeriğini gönderiyorum. text dosyasında yazı karakterleri standart gidiyor. Bold, italik ve çizgiler mesaj içerinde gitmiyor. Bu nedenle mail içeriğinin word veya HTML olarak gönderilmesini nasıl sağlarım?
Çözümlerinizi bekliyorum şimdiden teşekkürler.
Sub mailgonder ()
Dim MyBody As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\body.txt", 1)
Do Until objFile.AtEndOfStream
MyBody = MyBody & objFile.Read(1)
Loop
Dim out As Object
Set out = CreateObject("outlook.application")
With out.CreateItem(olMailItem)
.From = "a@abc.com"
.To = "b@abc.com"
.cc = "c@abc.com"
.Subject = "mailin konusu"
.Body = MyBody
.Attachments.Add "c:\denemerapor.xls"
.Send
End With
End Sub
2 adet sorunum var.
1) .From kısmı dolu olduğu zaman adına gönderilecek kişi tarafından yetkili kişinin mail adresi olmasına rağmen kod çalışmıyor. .From u kullanmadığım zaman ancak mail gönderebiliyorum.
2) Ayrıca çok önemli değil ama olsa iyi olur. body kısmında text dosyasının içeriğini gönderiyorum. text dosyasında yazı karakterleri standart gidiyor. Bold, italik ve çizgiler mesaj içerinde gitmiyor. Bu nedenle mail içeriğinin word veya HTML olarak gönderilmesini nasıl sağlarım?
Çözümlerinizi bekliyorum şimdiden teşekkürler.
Sub mailgonder ()
Dim MyBody As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\body.txt", 1)
Do Until objFile.AtEndOfStream
MyBody = MyBody & objFile.Read(1)
Loop
Dim out As Object
Set out = CreateObject("outlook.application")
With out.CreateItem(olMailItem)
.From = "a@abc.com"
.To = "b@abc.com"
.cc = "c@abc.com"
.Subject = "mailin konusu"
.Body = MyBody
.Attachments.Add "c:\denemerapor.xls"
.Send
End With
End Sub
Son düzenleme: