ahmet
08-07-2006, 12:29
Cdo Modülü ile asp'de mail göndermek için aşşağodaki kodu yazmanız yeterlidir.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.TextBody="Buraya mesaj'ınızı yazın."
myMail.Send
set myMail=nothing
%>
Şimdi formumuza BCC ve CC ekliyelim.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.Bcc="baskagitcek@mailadresi.com"
myMail.Cc="diğergitcek@mailadresi.com"
myMail.TextBody="Buraya mesaj'ınızı yazın."
myMail.Send
set myMail=nothing
%>
eğer postamız da html kodları olacaksa bu kodları myMail.HTMLBody değişkeni ile yolluyoruz.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.HTMLBody = "<h1>Buraya mesaj'ınızı yazın.</h1>"
myMail.Send
set myMail=nothing
%>
Peki sitemizdeki bir sayfayı direk html olarak göndermek istersek ozamanda myMail.CreateMHTMLBody fonksiyonu imdadımıza yetişiyor.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.CreateMHTMLBody "http://www.sunucumuz.com/asp/"
myMail.Send
set myMail=nothing
%>
Aynı şekilde bilgisayarımızdaki bir html sayfasınıda yollaya biliriz.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>
Evet sizi duyar gibiyim. Eminim şimdi bilgisayarımdan diğer dosyaları nasıl yollaya bilirim diye düşünüyorsunuz.
Tahmin edebileceğiniz gibi onun içinde myMail.AddAttachment fonksiyonunu kullanıyoruz.Bu yolla bilgisayarımızdaki resimleri,word dökümanlarını gönderebilirsiniz.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.TextBody="Buraya mesaj'ınızı yazın."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>
Son olarak uzak sunucu üzerinden mail göndermeyi göstermek istiyorum sizlere.
Bu ne işimize yarıyacak derseniz.Mail sunucunuz yokken bile ,mesela evde sitenizi yaparken bu yolla mail yollaya bilirsiniz.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.TextBody="Buraya mesaj'ınızı yazın."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.TextBody="Buraya mesaj'ınızı yazın."
myMail.Send
set myMail=nothing
%>
Şimdi formumuza BCC ve CC ekliyelim.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.Bcc="baskagitcek@mailadresi.com"
myMail.Cc="diğergitcek@mailadresi.com"
myMail.TextBody="Buraya mesaj'ınızı yazın."
myMail.Send
set myMail=nothing
%>
eğer postamız da html kodları olacaksa bu kodları myMail.HTMLBody değişkeni ile yolluyoruz.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.HTMLBody = "<h1>Buraya mesaj'ınızı yazın.</h1>"
myMail.Send
set myMail=nothing
%>
Peki sitemizdeki bir sayfayı direk html olarak göndermek istersek ozamanda myMail.CreateMHTMLBody fonksiyonu imdadımıza yetişiyor.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.CreateMHTMLBody "http://www.sunucumuz.com/asp/"
myMail.Send
set myMail=nothing
%>
Aynı şekilde bilgisayarımızdaki bir html sayfasınıda yollaya biliriz.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>
Evet sizi duyar gibiyim. Eminim şimdi bilgisayarımdan diğer dosyaları nasıl yollaya bilirim diye düşünüyorsunuz.
Tahmin edebileceğiniz gibi onun içinde myMail.AddAttachment fonksiyonunu kullanıyoruz.Bu yolla bilgisayarımızdaki resimleri,word dökümanlarını gönderebilirsiniz.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.TextBody="Buraya mesaj'ınızı yazın."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>
Son olarak uzak sunucu üzerinden mail göndermeyi göstermek istiyorum sizlere.
Bu ne işimize yarıyacak derseniz.Mail sunucunuz yokken bile ,mesela evde sitenizi yaparken bu yolla mail yollaya bilirsiniz.
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO ile mail göndermek"
myMail.From="benim@mailadresim.com"
myMail.To="gitcek@mailadresi.com"
myMail.TextBody="Buraya mesaj'ınızı yazın."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>