Tablodaki verileri outlook a aktarma

[sinnernekolens]

iyi günler, tablom sabit fakat bilgiler arada bir değişiyor. yapmak istediğim butona bastığım zaman outlook da yeni bir ileti sayfası açıp tablodaki bilgileri çekip örnekte olduğu gibi outlook a aktarmasını istiyorum.
Yardımlarınızı rica ediyorum.

 

[Emir Hüseyin Çoban]

. . .

Saatteki AT kısmından emin değilim ama deneriz.

Bold satırları neye göre belirliyor.

Liste yerine bu tabloyu mail gövdesine atsak...

. . .

 

[sinnernekolens]

Hüseyin bey ilginiz için teşekkür ederim. müşteriye göndereceğim için tablo şeklinde göndermek istemiyorum. Şimdilik Bold olmasına gerek yok gerekirse sonradan ekleyebiliriz sanırım.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    metin = ""
    For i = 4 To Cells(Rows.Count, "B").End(3).Row
        metin = metin & Format(Cells(i, "E"), "dd.mm.yyyy") & vbTab & Format(Cells(i, "D"), "hh.mm") & vbTab & Cells(i, "B") & Chr(10)
    Next i

[B]    birincicümle = "RE MT"
    ikincicümle = "Good"
    ünvan = "Firma İsmi"[/B]

    Dim xlOutlook As Object
    Dim xlMail As Object
    Set xlOutlook = CreateObject("Outlook.Application")
    Set xlMail = xlOutlook.CreateItem(0)

    With xlMail
        .To = ""    [COLOR="DarkGreen"]' kime[/COLOR]
        .CC = ""   [COLOR="DarkGreen"] ' bilgi[/COLOR]
        .Subject = "Konu" [COLOR="DarkGreen"]' Konu[/COLOR]
        .Body = birincicümle & Chr(10) & ikincicümle & Chr(10) & Chr(10) & "Port Log" & Chr(10) & metin & Chr(10) & "Saygılarımızla," & Chr(10) & ünvan
        .Save
        .Display
       [COLOR="DarkGreen"] '.Send[/COLOR]
    End With

    Set xlMail = Nothing
    Set xlOutlook = Nothing

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

. . .

 

[sinnernekolens]

Hüseyin bey, çok teşekkür ederim emeğinize sağlık