ASP E-Mail-Versand mit CDOSYS
CDOSYS ist eine integrierte Komponente in ASP. Diese Komponente dient zum Versenden von E-Mails mit ASP.
E-Mail versenden mit CDOSYS
CDO (Collaboration Data Objects) ist eine Microsoft-Technologie, die darauf ausgelegt ist, die Erstellung von Messaging-Anwendungen zu vereinfachen.
CDOSYS ist eine integrierte Komponente in ASP. Wir zeigen Ihnen, wie Sie mit dieser Komponente E-Mails mit ASP versenden.
Wie wäre es mit CDONTs?
Microsoft hat die Verwendung von CDONTs unter Windows 2000, Windows XP und Windows 2003 eingestellt. Wenn Sie CDONTs in Ihren ASP-Anwendungen verwendet haben, sollten Sie den Code aktualisieren und die neue CDO-Technologie verwenden.
Beispiele mit CDOSYS
Senden einer Text-E-Mail:
<%
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
%>
Senden einer Text-E-Mail mit Bcc- und CC-Feldern:
<%
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
%>
Senden einer HTML-E-Mail:
<%
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
%>
Senden einer HTML-E-Mail, die eine Webseite von einer Website sendet:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To ="[email protected]"
myMail.CreateMHTMLBody "https://www.w3schools.com/asp/"
myMail.Send
set myMail = nothing
%>
Senden einer HTML-E-Mail, die eine Webseite aus einer Datei auf Ihrem Computer sendet:
<%
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
%>
Senden einer Text-E-Mail mit Anhang:
<%
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
%>
Senden einer Text-E-Mail über einen Remote-Server:
<%
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
%>