Merhabalar;

Firik olması açısından outlook üstünden kullandığım kod;

Sub BA()

Dim OutApp As Outlook.Application

Dim NewMail As Outlook.MailItem

Set OutApp = New Outlook.Application

Set NewMail = CreateItem(olMailItem)

    

With NewMail

.To = ""

.Subject = "Ba / Bs Mutabakatı Hk."

.Body = "Sayın İlgili;" & Chr(10) & " " & Chr(10) & "Ekteki mutabakat evrakını kontrol etmenizi ve dahilinde kaşe imzalı teyidinizi tarafımıza iletmenizi rica ederim." & Chr(10) & Chr(10) & "Konu ile ilgili olarak gün içerisinde dönüş yapmanızı önemle rica ederim."

.Display

End With

Set NewMail = Nothing

Set OutApp = Nothing

End Sub

Yazdığım bilgilere göre maili yazıyor ve başka bişey yapmıyor.
Yararlı olur umarım