Dim OutlookApp As Outlook.Application
Dim OutlookMail As Outlook.MailItem
Set OutlookApp = New Outlook.Application
Set OutlookMail = OutlookApp.CreateItem(olMailItem)
With OutlookMail
.BodyFormat = olFormatHTML
.Display
.HTMLBody = "mesajınız"
.To = "zzz@xxx.com"
.CC = "[email protected]"
.BCC = "[email protected]"
.Subject = "Konunuz"
.Attachments = "eklentiniz"
.Send
End With
olarak deneyin.objectler için set nothing düzenlemelerini bu kodu esas alarak yapın belirtmeyi unutmuşum. Kodunuzda error handlerınızda sorunlu kodları tanımlı değil.