Bilgiler
  • Ekleyen:
  • Ayberk Atasay
  • Tarih:
  • October 8, 2009
  • Kategori:
  • ASP
  • Paylas:
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
%>
Yorumlar
  • Eski Yorumlar:
  • koray
  • tesekkurler
  • 2009-10-09 19:05:51
  • cam girl
  • aciklama icin tesekkurler, ben baska sitelerde bu bilgi icin tum bakan ve burada ayin oldu.
  • 2010-11-28 01:47:00
  • graham Texas
  • Took me time to read all the comments, but I really enjoyed the article. It proved to be Very helpful to me and I am sure to all the commenter here! It's always nice when you can not only be informed, but also entertained! I'm sure you had fun writing this article.
  • 2011-04-19 17:34:16