Ayberk Atasay

ASP, CSS, Internet konuları üzerine paylaşımlar

ASP Eposta Gönderimi: CDOSYS

Dünkü paylaşımımda ASP ile nasıl sunucu bilgisini elde edeceğimizi yazmıştım. Bugünde aynı konuyu kullanarak nasıl e-posta göndereceğimizi anlatacağım. İlk anlatacağım e-posta bileşeni: CDOSYS.

CDOSYS Nedir?
CDOSYS, Microsoft'un CDONTs bileşeninin kullanımını Windows 2000, Windows XP ve Windows 2003 sürümleri ile birlikte sonlandırmasının ardında kullanılmaya başlayan bir bileşendir. Eğer hala CDONTs bileşenini kullanan bir e-posta formunuz varsa kodlarınızı aşağıdaki şekilde güncellemeniz gerekecektir.

Düz metin olarak e-posta gönderimi:

<%

Set ePostaForm=CreateObject("CDO.Message")

ePostaForm.Subject="Siteden E-posta"

ePostaForm.From="KENDİ E-POSTA ADRESİNİZ"

ePostaForm.To="Gönderilecek adres"

ePostaForm.Bcc="Gönderilecek adres 2" 'Bu seçenek opsiyoneldir.

ePostaForm.Cc="Gönderilecek adres 3" 'Bu seçenek opsiyoneldir.

ePostaForm.TextBody="Buraya gidecek mesaj"

ePostaForm.Send

set ePostaForm=nothing

%>

HTML olarak e-posta gönderimi:

<%

Set ePostaForm=CreateObject("CDO.Message")

ePostaForm.Subject="Siteden E-posta"

ePostaForm.From="KENDİ E-POSTA ADRESİNİZ"

ePostaForm.To="Gönderilecek adres"

ePostaForm.HTMLBody="<b>Buraya gidecek mesaj</b>"

ePostaForm.Send

set ePostaForm=nothing

%>

Dosya ekleyerek e-posta gönderimi:

<%

Set ePostaForm=CreateObject("CDO.Message")

ePostaForm.Subject="Siteden E-posta"

ePostaForm.From="KENDİ E-POSTA ADRESİNİZ"

ePostaForm.To="Gönderilecek adres"

ePostaForm.HTMLBody="<b>Buraya gidecek mesaj</b>"

ePostaForm.AddAttachment "c:FotograflarFotografim.jpg"

ePostaForm.Send

set ePostaForm=nothing

%>

Uzak sunucu kullanarak e-posta gönderimi:

<%

Set ePostaForm=CreateObject("CDO.Message")

ePostaForm.Subject="Siteden E-posta"

ePostaForm.From="KENDİ E-POSTA ADRESİNİZ"

ePostaForm.To="Gönderilecek adres"

ePostaForm.HTMLBody="<b>Buraya gidecek mesaj</b>"

ePostaForm.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

ePostaForm.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.sunucu.com" 'Sunucu veya IP adresi

ePostaForm.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 'Sunucu Gönderim Port numarası (TTnet Bunu Türkiye için 587 olarak değiştirdi.

ePostaForm.Configuration.Fields.Update

ePostaForm.Send

set ePostaForm=nothing

%>

ASPAyberk Atasay8 Ekim 2009, PerşembeEkle Bunu

Önceki Kayıt

Sonraki Kayıt

Yorumlar

koray
9 Ekim 2009, Cuma

teşekkürler