Excelde seçilen hücreyi outlookta html biçimiyle göndermek

[u.L.a.s]

merhabalar

linkteki dosyada seçtiğim hücreyi outlook içerisinde body kısmına text olarak yapıştırıyor.

İstiyorumki exceldeki format her nasılsa tablo kenarlıkları falan onlar mail body kısmına aynen yapıştırılsın.

http://s6.dosya.tc/server6/a4wqz4/hucresecmailgonder.rar.html


kodlar aşağıdaki gibi

Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub

Sub MailGonder()
Dim hucre As Range
Dim eMail As String
Dim Subject As String
Dim Body As String
Dim satir As Integer
Dim sutun As Integer

eMail = "mailim@mail.com"
Subject = "deneme"
Set hucre = Selection

For sutun = 1 To hucre.Columns.Count
For satir = 1 To hucre.Rows.Count
Body = Body & hucre.Cells(satir, sutun) & " "
Next satir
Next sutun

Call Mail(eMail, Subject, Body)
End Sub

 

[Emir Hüseyin Çoban]

. . .

Forumda RangetoHTML yazarak aratırınız.

. . .

 

[u.L.a.s]

Soırunu hallettim Çok teşekkür ediyorum.

Ne tür bir kod olduğunu bilmeyince ne arayacağınıda bilmiyorsun.

bilgine sağlık