Envoyer des e-mails avec CDOSYS ASP

CDOSYS est un composant intégré de 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 de programmes de communication.

CDOSYS est un composant intégré de ASP. Nous vous montrerons comment utiliser ce composant pour envoyer des e-mails.

Qu'en est-il des CDONTs ?

Microsoft a éliminé CDONTs dans Windows 2000, Windows XP et Windows 2003. Si vous utilisez encore CDONTs dans vos applications, vous devez mettre à jour le code et utiliser la nouvelle technologie CDO.

Utilisation d'une instance de CDOSYS

Envoi d'un email :

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

Envoi d'un email texte avec les champs CC et BCC :

<%
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="Ceci est un message."
myMail.Send
set myMail=nothing
%>

Envoi d'un email 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>Ceci est un message.</h1>" 
myMail.Send
set myMail=nothing
%>

Envoi d'un email HTML provenant 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.codew3c.com/asp/" 
myMail.Send
set myMail=nothing
%>

Envoi d'un email HTML provenant d'un fichier sur l'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 email avec 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="Ceci est un message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>

Envoi d'un email texte via 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="Ceci est un message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'IP ou nom 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
%>