makro ile otomatik mail gönderilen metin içerisinde link verme

[eorhan2000]

Merhaba,
otomatik olarak mail gönderen kodlarla çalışıyorum. gönderdiğim metin içerisindeki bazı kelimelere link vermem mümkün müdür? maili alan kişinin metindeki kelimeyi tıkladığında ilgili web sayfasının açılmasını istiyorum.

kodlar aşağıdaki gibi. örneğin certürk kelimesine "www.certurk.com.tr" adresini nasıl atayabilirim?

Sub Belge_durumu()
Dim i As Long, j As Integer, d, Adet As Integer, msg As String, HLink As String, Recipient As String, Subj As String
For i = 2 To Cells(Rows.Count, "A").End(2).Row
If Cells(i, "H") Like "EVET" And Cells(i, "I") Like "*@*" Then
Subj = "CERTURK BELGELENDİRME - Belge Geçerlilik Durumu"
msg = msg & "Sayın " & Cells(i, "B") & "%0A"
' msg = msg & "%0A" & "Belgenizin geçerlilik süresi dolmuştur."
msg = msg & "%0A" & "Belgenizin vize süresi dolmuştur. Belge üzerindeki ilgili kısmı imzalayarak, mail yada faks ile bize iletiniz."
msg = msg & "%0A" & "Bilgi için arayınız." & "%0A"
msg = msg & "%0A" & "Belge Başlangıç Tarihi : " & Cells(i, "C")
msg = msg & "%0A" & "Belge Bitiş Tarihi : " & Cells(i, "G")
msg = msg & "%0A" & "%0A" & "Certurk Belgelendirme ve Gözetim Hizmetleri Ltd. Şti."
msg = msg & "%0A" & "Bağlarbaşı Mah. Atatürk Cad."
msg = msg & "%0A" & "İnci Sok. No:5 D:10 Maltepe-İstanbul"
msg = msg & "%0A" & "Tel: 0216 494 16 98"
msg = msg & "%0A" & "Faks: 0216 494 16 79"
msg = msg & "%0A" & "www.certurk.com"

d = Split(Cells(i, "I"), ";")
For j = 0 To UBound(d)
Adet = Adet + 1
Recipient = d(j)
HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%s", True
Next j
msg = Empty
End If
Next
MsgBox Adet & " Adet Mail Gönderilmiştir....", vbInformation, "www.certurk.com"
End Sub


yardımlarınız şimdiden teşekkür ederim

 

[eorhan2000]

en azından, makro içerisindeki bir metine nasıl link verilir konusunda yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

Outlook objesi tanımlanan makro kodlarını kullanarak yapabilirsiniz.
Forumda HTMLBODY diye arama yapınız.

. . .