outlookda eksik kodlamaya yardım lütfen

[ismailayan]

merhaba arkadaşlar.

daha öncede bu tür konuda açtım ama diğerlerinden faklı olduğu için tekrardan açmaya karar verdim.

cv6 da excel dökümü outlook express ile mail attırma kodu aşağıda
ama sadece a6 hücresindeki değeri atıyor.

ama excelden direk gönderdiğimde tablo şeklinde mail adresine atıyor.

bende aynı şekilde göndermek için nasıl bir uygulama yapabilir.

yardımcı olursanız sevinirim.


Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String

Recipient = Text1.Text
Recipientcc = ""
Recipientbcc = ""
Subj = Text2.Text
msg = XlApp.Range("A6").Value


HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg

ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"