Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası

merhaba arkadaşlar, bulduğum bir kodu kendime göre uyarladım; outlook üzerinden hem mesaj hem de ek gönderiyor, karar değiştirdim sadece mesaj göndermek istedim işte bu yüzden Attachments.Add ("xxxxx") kısmını iptal ettim bu kez hiç mesaj göndermedi, ne alakası var bu bir seçenek değil mi? ben sadece mesaj göndersin istiyorum ama bu kısım, mesajı göndermeme engel oluyor, bunu nasıl düzeltebiliriz acaba?

Sub Email_CurrentWorkBook()
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = Range("c5").Value
.CC = ""
.BCC = ""
.Subject = "Örnek"
.Body = "örnektir"
'.Attachments.Add ("C:\Users\xxxxxx\Desktop\deneme.pdf") tik atıp devre dışı bıraktım
.Send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub

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 = "ccc@vvv.com"

    .BCC = "bbb@nnn.com"

    .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.

Çok teşekkür ederim sayın atoykan, bu iş de tamam, çalıştı, kolay gelsin.

Rica ederim. İyi çalışmalar.