İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

mail de link vermek ( önemli )

Permission

0
İyinet Üyesi
Katılım
11 Aralık 2004
Mesajlar
6,458
Reaction score
3
Konum
izmir
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
 

disconnect

0
İyinet Üyesi
Onaylı Üye
Katılım
1 Şubat 2005
Mesajlar
3,367
Reaction score
5
<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

0
İyinet Üyesi
Katılım
11 Aralık 2004
Mesajlar
6,458
Reaction score
3
Konum
izmir
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
 

Darkart

0
İyinet Üyesi
Katılım
1 Temmuz 2005
Mesajlar
7,037
Reaction score
54
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

0
İyinet Üyesi
Onaylı Üye
Katılım
1 Şubat 2005
Mesajlar
3,367
Reaction score
5
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") = "[email protected]"
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 = "[email protected]"
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.
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst