mail de link vermek ( önemli )

[Permission]

Arkadaslar siteme üyelik sistemi kurdum ve üyelik onay maili ile aktif oldugu için üyelik formunu doldurunca verilen maile mail gidiyor bu mesajda onay linki var cogu mail sunucusunda bu link olarak görünmüyor <a href eklemediğim için görmüyor her şeyi denedim olmuyor.

Aşagıdaki koda <a href le ekleyip her mailde link oluşmasını istiyorum
mesaj = mesaj&" "&" Lütfen aşağıdaki link'e tıklayarak e-posta adresinizi doğrulayınız."&" "&"http://www.site.com/onay.asp?case=onayla&"&"uye="&rumuz&"&"&"kod="& sayi

Linkin Görünüşü
http://www.site.com/onay.asp?case=onayla&uye=demouye&kod=111111


Bilgisi olan yardımcı olurmu

[Permission]

kimsenin fikri yokmu

[disconnect]

<a href=""http://www.sitem.com/aktivasyon.asp?kod=" & kod & "&kadi=" & username & """>Aktivasyon Linki Tıklayın</a>
Ben bu şekilde kullanıyorum, ancak hotmail beni kara listesine aldığı için linkimi göstermiyor.
Hotmail dışında linkler sorunsuz çalışıyor. Sanırım senin sorununda benzer.

[Permission]

ya objJmail.ContentType = "text/html" kaldırdık olay bitti artık her mailde link olarak oluşuyor amaki ya su kunk veya bulk düşmesini nasıl engelelriz misal forum.iyinet.com dan gelem mailelr direk gelen kutuya geliyor

[venom]

evet yaa bende bununla ilgili bir başlık açacaktım...
benimde mailler bulk a düşüyor...oysaki herhangi bir spma vs yapmadım hiç...bunu nasıl düzeltiriz acaba ?

[disconnect]

Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "mailadresim@gmail.com"
Flds.Item(schema & "sendpassword") = "sifrem"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = email
.From = email
.Subject = "konu"
.HTMLBody = Body
.Sender = email
.Organization = "site"
.ReplyTo = "mailadresim@gmail.com"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

Bu kodları başka bir forumdan almıştım. Uzun zamandır kullanıyorum.
Junka düşmesini engelliyor. Fakat linkleri göstermiyor.