ASP E-mail verzenden met CDOSYS
CDOSYS is een ingebouwd onderdeel in ASP. Dit onderdeel wordt gebruikt om e-mails te versturen met ASP.
E-mail verzenden met CDOSYS
CDO (Collaboration Data Objects) is een Microsoft-technologie die is ontworpen om het maken van berichtentoepassingen te vereenvoudigen.
CDOSYS is een ingebouwd onderdeel in ASP. We laten u zien hoe u met dit onderdeel e-mail kunt versturen met ASP.
Hoe zit het met CDONT's?
Microsoft heeft het gebruik van CDONT's op Windows 2000, Windows XP en Windows 2003 stopgezet. Als u CDONT's in uw ASP-toepassingen hebt gebruikt, moet u de code bijwerken en de nieuwe CDO-technologie gebruiken.
Voorbeelden met CDOSYS
Een sms-e-mail sturen:
<%
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
%>
Een sms-e-mail verzenden met Bcc- en CC-velden:
<%
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
%>
Een HTML-e-mail verzenden:
<%
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
%>
Een HTML-e-mail verzenden waarmee een webpagina vanaf een website wordt verzonden:
<%
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
%>
Een HTML-e-mail verzenden waarmee een webpagina wordt verzonden vanuit een bestand op uw computer:
<%
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
%>
Een sms-e-mail met een bijlage verzenden:
<%
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
%>
Een sms-e-mail verzenden met een externe 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
%>