CDOSYS est un composant intégré dans ASP. Ce composant est utilisé pour envoyer des e-mails avec ASP.
L'envoi d'e-mail avec CDOSYS
CDO (Collaboration Data Objects) est une technologie Microsoft qui est conçu pour simplifier la création d'applications de messagerie.
CDOSYS est un composant intégré dans ASP. Nous allons vous montrer comment utiliser ce composant pour envoyer un courrier électronique avec ASP.
Que diriez-vous CDONTS?
Microsoft a mis fin à l'utilisation de CDONTS sous Windows 2000, Windows XP et Windows 2003. Si vous avez utilisé CDONTS dans vos applications ASP, vous devez mettre à jour le code et utiliser la nouvelle technologie de CDO.
Exemples d'utilisation CDOSYS
Envoi d'un texte 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
%>L'envoi d'un courrier électronique de texte avec des champs Cci et CC:
<%
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
%>Envoi d'un message électronique HTML:
<%
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
%>Envoi d'un message électronique HTML qui envoie une page Web d'un site Web:
<%
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
%>Envoi d'un message électronique HTML qui envoie une page Web à partir d'un fichier sur votre ordinateur:
<%
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
%>L'envoi d'un courrier électronique de texte avec une pièce jointe:
<%
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
%>L'envoi d'un courrier électronique de texte à l'aide d'un serveur distant:
<%
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
%>