artık smtp onaysız email gönderimi yapılamamasına rağmen ben yine de bu konuda bilgi vereceğim.

Text/Düz Metin halinde email göndermek:
<%
Set myMail=CreateObject(”CDO.Message”)
myMail.Subject=”Cdosys kullanarak email gönderiyorum”
myMail.From=”info@sayfa.net”
myMail.To=”destek@sayfa.net”
myMail.TextBody=”Bu da ana mesajımız”
myMail.Send
set myMail=nothing
%>

Text/Düz metin halinde ve Bcc ve Cc satırları içeren email göndermek:
<%
Set myMail=CreateObject(”CDO.Message”)
myMail.Subject=”Cdosys kullanarak email gönderiyorum”
myMail.From=”info@sayfa.net”
myMail.To=”destek@sayfa.net”
myMail.Bcc=”destek2@sayfa.net”
myMail.Cc=”destek3@sayfa.net”
myMail.TextBody=”Bu da ana mesajımız”
myMail.Send
set myMail=nothing
%>

HTML metin içeren email göndermek:
<%
Set myMail=CreateObject(”CDO.Message”)
myMail.Subject=”Cdosys kullanarak email gönderiyorum”
myMail.From=”info@sayfa.net”
myMail.To=”destek@sayfa.net”
myMail.HTMLBody = “<h1>Bu da ana mesajımız</h1>”
myMail.Send
set myMail=nothing
%>

Mesaj kısmında başka bir siteden HTML sayfa içeren email göndermek (tanıtım mailleri?
<%
Set myMail=CreateObject(”CDO.Message”)
myMail.Subject=”Cdosys kullanarak email gönderiyorum”
myMail.From=”info@sayfa.net”
myMail.To=”destek@sayfa.net”
myMail.CreateMHTMLBody “http://hosting.sayfa.net/index.php”
myMail.Send
set myMail=nothing
%>

Mesaj kısmında kendi bilgisayarınızdan HTML sayfa içeren email göndermek :
<%
Set myMail=CreateObject(”CDO.Message”)
myMail.Subject=”Cdosys kullanarak email gönderiyorum”
myMail.From=”info@sayfa.net”
myMail.To=”destek@sayfa.net”
myMail.CreateMHTMLBody “file://c://test.htm”
myMail.Send
set myMail=nothing
%>

Email ile birlikte ataç dosya göndermek:
<%
Set myMail=CreateObject(”CDO.Message”)
myMail.Subject=”Cdosys kullanarak email gönderiyorum”
myMail.From=”info@sayfa.net”
myMail.To=”destek@sayfa.net”
myMail.TextBody=”This is a message.”
myMail.AddAttachment “c:\test.txt”
myMail.Send
set myMail=nothing
%>

Hosting sunucusunu kullanarak, smtp onaysız email göndermek (bu kod normal hostlarda çalışmaz):
<%
Set myMail=CreateObject(”CDO.Message”)
myMail.Subject=”Cdosys kullanarak email gönderiyorum”
myMail.From=”info@sayfa.net”
myMail.To=”destek@sayfa.net”
myMail.TextBody=”Bu da ana mesaj kısmıdır”
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”)=”mail.sayfa.net”
myMail.Configuration.Fields.Item _
(”http://schemas.microsoft.com/cdo/configuration/smtpserverport”)=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

Saygılar,