ASP envoyer un e-mail


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

Envoyer un e-mail à l'aide de 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 avec ASP pour envoyer des e-mails.

Et les CDONT ?

Microsoft a rendu les CDONT obsolètes dans Windows 2000, Windows XP et Windows 2003. Si vous utilisez déjà des CDONT dans votre application ASP, vous devez mettre à jour votre code et utiliser la nouvelle technologie CDO.

Utilisation d'une instance de CDOSYS

Envoi d'un e-mail texte :

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Envoi d'e-mail avec CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="Ceci est un message ."
myMail.Send
set myMail=nothing
%>

Envoyer un e-mail texte avec les champs Cci et CC :

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Envoi d'e-mail avec 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
%>

Envoyer un e-mail HTML :

<%
Set myMail= CreateObject("CDO.Message")
myMail.Subject="Envoi d'e-mail avec CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com "
myMail.HTMLBody = "<h1>Ceci est un message.</h1>"
myMail.Send
set myMail=nothing
%>

Envoyer un email HTML avec le contenu d'une page Web sur un site Web :

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

Envoyer une page Web dont le contenu est un fichier sur votre ordinateur par e-mail HTML :

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Envoi d'e-mail avec CDO"
myMail.From ="mymail@mydomain.com"
myMail.To="quelqu'un@somedomain.com"
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= "Envoi d'un e-mail avec CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="Ceci est un message."
myMail. AddAttachment "c:mydocumentstest.txt"
myMail.Send
set myMail=nothing
%>

Envoyer un e-mail texte à l'aide du serveur distant :

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Envoi d'e-mail avec 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
'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
%>