CDOSYS ASP yerleşik bir bileşendir. Bu bileşen ASP ile e-posta göndermek için kullanılır.
CDOSYS ile e-posta gönderme
CDO (Collaboration Data Objects) mesajlaşma uygulamalarının oluşturulmasını kolaylaştırmak için tasarlanmıştır Microsoft teknolojisidir.
CDOSYS ASP yerleşik bir bileşendir. Biz nasıl ASP ile e-posta göndermek için bu bileşeni kullanmak için size gösterecektir.
Nasıl CDONTS hakkında?
Microsoft Windows 2000 CDONTS kullanımını durdurmuştur, Windows XP ve Windows 2003 ASP uygulamalarında CDONTS kullanmış, kodu güncelleme ve yeni CDO teknolojisini kullanmalıdır.
CDOSYS kullanılarak Örnekler
Bir metin e-posta gönderme:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
myMail.Send
set myMail = nothing
%>Gizli ve CC alanları olan bir metin e-posta gönderme:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.Bcc = "[email protected]"
myMail.Cc = "[email protected]"
myMail.TextBody = "This is a message."
myMail.Send
set myMail = nothing
%>Bir HTML e-posta gönderme:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail = nothing
%>Bir web sitesinden bir web sayfası gönderir bir HTML e-posta gönderme:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To ="[email protected]"
myMail.CreateMHTMLBody = "http://www.w3ii.com/asp/"
myMail.Send
set myMail = nothing
%>Bilgisayarınızdaki bir dosyadan bir web sayfası gönderir bir HTML e-posta gönderme:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.CreateMHTMLBody = "file://c:/mydocuments/test.htm"
myMail.Send
set myMail = nothing
%>bir ek içeren bir metin e-posta gönderme:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
myMail.AddAttachment = "c:\mydocuments\test.txt"
myMail.Send
set myMail = nothing
%>uzak bir sunucu kullanarak bir metin e-posta gönderme:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
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
%>