ASP Gebruik van CDOSYS om E-mail te Verzenden

CDOSYS is een ingebouwde component in ASP. Deze component wordt gebruikt om e-mails te verzenden via ASP.

E-mails verzenden met CDOSYS

CDO (Collaboration Data Objects) is een technologie van Microsoft die is ontworpen om de creatie van communicatieprogramma's te vereenvoudigen.

CDOSYS is een ingebouwde component in ASP. We zullen u laten zien hoe u deze component kunt gebruiken om e-mails te verzenden.

Hoe is CDONTs?

Microsoft heeft CDONTs uitgefaseerd in Windows 2000, Windows XP en Windows 2003. Als u CDONTs nog steeds gebruikt in uw applicaties, moet u de code bijwerken en de nieuwe CDO-technologie gebruiken.

Gebruik een instantie van CDOSYS

Verstuur een e-mailbericht:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Verstuur e-mail met CDO"
myMail.From="mymail@mydomain.com"
myMail.To="iemand@somedomain.com"
myMail.TextBody="Dit is een bericht."
myMail.Send
set myMail=nothing
%>

Verstuur een tekstbericht met Bcc en CC-velden:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Verstuur e-mail met CDO"
myMail.From="mymail@mydomain.com"
myMail.To="iemand@somedomain.com"
myMail.Bcc="iemandander@somedomain.com"
myMail.Cc="iemandander2@somedomain.com"
myMail.TextBody="Dit is een bericht."
myMail.Send
set myMail=nothing
%>

Verstuur een HTML-e-mailbericht:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Verstuur e-mail met CDO"
myMail.From="mymail@mydomain.com"
myMail.To="iemand@somedomain.com"
myMail.HTMLBody = "<h1>Dit is een bericht.</h1>" 
myMail.Send
set myMail=nothing
%>

Verstuur een HTML-e-mailbericht die een pagina van een website bevat:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Verstuur e-mail met CDO"
myMail.From="mymail@mydomain.com"
myMail.To="iemand@somedomain.com"
myMail.CreateMHTMLBody "http://www.codew3c.com/asp/" 
myMail.Send
set myMail=nothing
%>

Verstuur een HTML-e-mailbericht die een pagina van de computer bevat:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Verstuur e-mail met CDO"
myMail.From="mymail@mydomain.com"
myMail.To="iemand@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm" 
myMail.Send
set myMail=nothing
%>

Verstuur een e-mailbericht met een bijlage:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Verstuur e-mail met CDO"
myMail.From="mymail@mydomain.com"
myMail.To="iemand@somedomain.com"
myMail.TextBody="Dit is een bericht."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>

Verstuur een tekstbericht via een externe server:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Verstuur e-mail met CDO"
myMail.From="mymail@mydomain.com"
myMail.To="iemand@somedomain.com"
myMail.TextBody="Dit is een bericht."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'IP-adres of naam van de externe SMTP-server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'serverpoort
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>