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.