VBA'de envelopevisible ile tabloyu mail olarak gönderme

Question

VBA de envelopevisible ile bir tabloyu mail olarak gönderdiğimde , gelen maili bilgisayardan açtığımda tablo formatı korunurken mobilden açtığımda tablo formatı düz metin olarak görüntülenmektedir. Fakat aynı tabloyu VBA kullanmadan kopyala-yapıştır ile maile ekleyip gönderdiğimde hem mobilden hem bilgisayardan tablo formatı korunmaktadır. VBA yöntemini kullandığımda da mobil üzerinden tablonun düz metine dönüşmeden formatının korunarak görüntülenmesini nasıl sağlarım?

GeçiciSayfaSilinecek.Activate

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.mailenvelope

    .Introduction = "Sayın Yöneticilerim;" & vbNewLine & vbNewLine _

    & "Bugünün 'Özet Bilgi Tablosu' ve 'Bugün Gelen İşler Tablosu' aşağıda bilgilerinize sunulmuştur." & _

    vbNewLine & vbNewLine & "İyi Çalışmalar dilerim..." & _

    vbNewLine & vbNewLine & "Veysel " & vbNewLine & "ÜRETİM SORUMLUSU"

    With .Item

        .To = "******@yahoo.com"

        '.CC = "******@a.com.tr"

        .BCC = ""

        .Subject = "Günlük Yönetici Raporu" & "- (" & Date & ")"

        .Send

    End With

End With

Answer 1

Merhaba,

Kodunuz düz veya zengin metin olarak mail gönderir. Sizin ise html mail göndermeniz gerekiyor. Kodunuzu buna göre düzenlemeniz gerekir. Outlook object ile html mail gönderirseniz istediğinizi elde edebilirsiniz.

Bu konuda gerekli desteği de MSDN Forumları'ndan alabilirsiniz.