ASP Envoi d'e-mail avec CDOSYS

CDOSYS est un composant intégré dans ASP. Ce composant est utilisé pour envoyer des e-mails avec ASP.

---

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 des e-mail avec ASP.

Que diriez-vous CDONTS?

Microsoft a mis fin à l'utilisation de CDONTS sur 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 CDO.

Exemples d'utilisation de CDOSYS

Envoi d'un texte de l'e-mail:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

Envoi d'un texte de l'e-mail avec Cci et les champs CC:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

Envoi d'un e-mail HTML:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%>

Envoi d'un courrier électronique HTML qui envoie une page Web à partir d'un site web:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3schools.com/asp/"
myMail.Send
set myMail=nothing
%>

Envoi d'un courrier é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="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>

Envoi d'un texte de l'e-mail avec une pièce jointe:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>

Envoi d'un texte de l'e-mail en utilisant un serveur distant:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
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
%>