Makro ile mail atarken metin(body) kısmını yan yana yazıyor?

[BBBBuRaKKKK]

Merhabalar makro ile mail atıyorum ama açıklama kısmına yazı yazdığımda hep yan yana yazıyor.

Excele boyle yazıyorum gönderirken;

Merhaba Burak Bey,

Bu bir denemedir.

0123456789
MERKEZ/İSTANBUL


Maili gönderince aşağıdaki gibi gönderiyor. Yan yana değil düzenli şekilde göndermesi gerekiyor. :

Merhaba Burak Bey, Bu bir denemedir.0123456789MERKEZ/İSTANBUL

Sub Eposta2()
Dim bg As Worksheet, i As Integer, konu As String, Gövde As String, Dosya As String, adres As String, durum As String, badres As String
Dim MailObj As Object, MailYeni As Object


    On Error Resume Next
    Set MailObj = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If MailObj Is Nothing Then Call Shell("Outlook.exe", vbHide)
    Set MailObj = CreateObject("Outlook.Application")
    Set bg = Worksheets("BOLGE")

    konu = bg.Cells(6, 7)
    Gövde = bg.Cells(12, 7)

    For i = 2 To 30
        adres = bg.Cells(i, 4)
        durum = bg.Cells(i, 5)
        badres = bg.Cells(i, 6)
        If InStr(1, adres, "@") > 0 And durum <> "Gönderildi" Then
        Dosya = bg.Cells(2, 7) & bg.Cells(i, 3) & ".xlsx"
        Set MailYeni = MailObj.CreateItem(0)
        With MailYeni
            .To = adres
            .CC = badres
            .BCC = ""
            .Subject = bg.Cells(6, 7)
            .HTMLBody = bg.Cells(12, 7)
            .Attachments.Add Dosya
            .BodyFormat = 2
            '.Display
            .Send
        End With
        Set MailYeni = Nothing
        bg.Cells(i, 5) = "Gönderildi"
        End If
    Next i
     Set MailObj = Nothing: Set bg = Nothing
End Sub

 

[Ömer]

Merhaba,

.HTMLBody yerine .Body

yazarak deneyiniz.