Excel' den mail gönderirken body formatı hk.

[tamer42]

Merhaba,
Ekli dosyada "Mail Format" sayfasında yazılı mesaj ile "Pivot" sayfasında yer alan pivot tablo' yu mail gövdesinde göndermek isterken;

mesaj üstte, pivot tablo onun altına gelecek şekilde düzenlemeye çalışıyordum, yalnız mail gövdesine tam tersi geliyor.

Aşağıdaki kodda mesaj metnini pivot tablo' nun üzerine gelecek şekilde nasıl düzenleyebiliriz?

desteğiniz için şimdiden teşekkürler,
iyi akşamlar.

Set rng = ws3.Range("B1:B5")

Set rng2 = ws2.Range("B9").CurrentRegion

    With olEmail
        .BodyFormat = olFormatHTML
        .To = "xxxxxxxxxx@gmail.com"
        .CC = "xxxxxxxxxx@yahoo.com"
        .Subject = wNum & ". weekly report"
        .Display

        Set XL_Inspector = .GetInspector
        Set Word_Document = XL_Inspector.WordEditor

        Word_Document.Range.InsertBefore Mesaj

        Word_Document.Range.InsertBefore vbNewLine & vbNewLine
        rng.Copy
        Word_Document.Range(Len(Mesaj), Len(Mesaj)).Paste
        
        Excel.Application.CutCopyMode = False
        Word_Document.Range.InsertAfter vbNewLine & vbNewLine
        
        rng2.Copy
        Word_Document.Range(Len(Mesaj), Len(Mesaj)).Paste

    End With

 

[Korhan Ayhan]

Deneyiniz.

    With olEmail
        .BodyFormat = olFormatHTML
        .To = "xxxxxxxxxx@gmail.com"
        .CC = "xxxxxxxxxx@yahoo.com"
        .Subject = wNum & ". weekly report"
        .Display

        Set XL_Inspector = .GetInspector
        Set Word_Document = XL_Inspector.WordEditor

        rng2.Copy
        Word_Document.Range(1, 1).Paste
        Word_Document.Range(0, 0).InsertBefore vbCrLf & vbCrLf
        
        Excel.Application.CutCopyMode = False
        Word_Document.Range.InsertAfter vbNewLine & vbNewLine
        
        rng.Copy
        Word_Document.Range(0, 0).Paste
    End With

 

[tamer42]

Deneyiniz.

    With olEmail
        .BodyFormat = olFormatHTML
        .To = "xxxxxxxxxx@gmail.com"
        .CC = "xxxxxxxxxx@yahoo.com"
        .Subject = wNum & ". weekly report"
        .Display

        Set XL_Inspector = .GetInspector
        Set Word_Document = XL_Inspector.WordEditor

        rng2.Copy
        Word_Document.Range(1, 1).Paste
        Word_Document.Range(0, 0).InsertBefore vbCrLf & vbCrLf
      
        Excel.Application.CutCopyMode = False
        Word_Document.Range.InsertAfter vbNewLine & vbNewLine
      
        rng.Copy
        Word_Document.Range(0, 0).Paste
    End With

teşekkürler Korhan Hocam

Başlangış Metini (rng) yazarken mail gövdesine hücre olarak yazıyor, mail penceresinin enini düşürdüğün zaman metin kendini otomatik ayarlamıyor. (ekli görsel)

bu konuda bir çözüm öneriniz olabilir mi?

tekrar teşekkürler,
iyi Çalışmalar.