ASP Eposta Gonderimi: CDOSYS
Dunku paylasimimda ASP ile nasil sunucu bilgisini elde edecegimizi yazmistim. Bugunde ayni konuyu kullanarak nasil e-posta gonderecegimizi anlatacagim. Ilk anlatacagim e-posta bileseni: CDOSYS.

CDOSYS Nedir?
CDOSYS, Microsoft'un CDONTs bileseninin kullanimini Windows 2000, Windows XP ve Windows 2003 surumleri ile birlikte sonlandirmasinin ardinda kullanilmaya baslayan bir bilesendir. Eger hala CDONTs bilesenini kullanan bir e-posta formunuz varsa kodlarinizi asagidaki sekilde guncellemeniz gerekecektir.

Duz metin olarak e-posta gonderimi:
<%
Set ePostaForm=CreateObject("CDO.Message")
ePostaForm.Subject="Siteden E-posta"
ePostaForm.From="KENDI E-POSTA ADRESINIZ"
ePostaForm.To="Gonderilecek adres"
ePostaForm.Bcc="Gonderilecek adres 2" /*Bu secenek opsiyoneldir.*/
ePostaForm.Cc="Gonderilecek adres 3" /*Bu secenek opsiyoneldir.*/
ePostaForm.TextBody="Buraya gidecek mesaj"
ePostaForm.Send
set ePostaForm=nothing
%>


HTML olarak e-posta gonderimi:
<%
Set ePostaForm=CreateObject("CDO.Message")
ePostaForm.Subject="Siteden E-posta"
ePostaForm.From="KENDI E-POSTA ADRESINIZ"
ePostaForm.To="Gonderilecek adres"
ePostaForm.HTMLBody="<b>Buraya gidecek mesaj</b>"
ePostaForm.Send
set ePostaForm=nothing
%>


Dosya ekleyerek e-posta gonderimi:
<%
Set ePostaForm=CreateObject("CDO.Message")
ePostaForm.Subject="Siteden E-posta"
ePostaForm.From="KENDI E-POSTA ADRESINIZ"
ePostaForm.To="Gonderilecek adres"
ePostaForm.HTMLBody="<b>Buraya gidecek mesaj</b>"
ePostaForm.AddAttachment "c:FotograflarFotografim.jpg"
ePostaForm.Send
set ePostaForm=nothing
%>


Uzak sunucu kullanarak e-posta gonderimi:
<%
Set ePostaForm=CreateObject("CDO.Message")
ePostaForm.Subject="Siteden E-posta"
ePostaForm.From="KENDI E-POSTA ADRESINIZ"
ePostaForm.To="Gonderilecek 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 Gonderim Port numarasi (TTnet Bunu Turkiye icin 587 olarak degistirdi.*/
ePostaForm.Configuration.Fields.Update
ePostaForm.Send
set ePostaForm=nothing
%>
October 8, 2009
Ayberk Atasay
ASP
3 yorum