ASP Utilisation de CDOSYS Envoi d'e-mails

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

Envoi d'e-mails avec CDOSYS

CDO (Collaboration Data Objects) est une technologie Microsoft conçue pour simplifier la création d'applications de communication.

CDOSYS est un composant intégré à ASP. Nous allons vous montrer comment utiliser ce composant via ASP pour envoyer des e-mails.

Qu'en est-il de CDONTs ?

Microsoft a rendu CDONTs obsolète dans Windows 2000, Windows XP et Windows 2003. Si vous avez utilisé CDONTs dans vos applications ASP, vous devez mettre à jour votre code et utiliser la nouvelle technologie CDO.

Exemples d'utilisation de CDOSYS

Envoyer un e-mail au format texte :

<%
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
%>

Envoyer un e-mail texte avec les 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
%>

Envoyer un e-mail 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
%>

Envoyer un e-mail HTML avec le contenu d'une page web depuis 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.w3cschool.cc/asp/"
myMail.Send
set myMail=nothing
%>

Envoyer un e-mail HTML avec le contenu d'une page web depuis 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
%>

Envoyer un e-mail 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:mydocumentstest.txt"
myMail.Send
set myMail=nothing
%>

Envoyer un e-mail texte en utilisant 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
'Nom ou IP du serveur SMTP distant
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Port du serveur
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

Autres extensions