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

Katılım
19 Kasım 2021
Mesajlar
80
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
19-11-2022
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



Kod:
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

.HTMLBody yerine .Body

yazarak deneyiniz.
 
Üst