ASP utilise CDOSYS pour envoyer des e-mail
CDOSYS est un composant intégré dans ASP. Ce composant est utilisé pour envoyer des e-mail via ASP.
Utilisez CDOSYS pour envoyer des e-mail
CDO (Collaboration Data Objects) est une technologie Microsoft, conçu pour simplifier la création d'applications de communication.
CDOSYS est un composant intégré dans ASP. Nous allons vous montrer comment utiliser l'ASP composant pour envoyer un courriel.
CDONTS comment?
Microsoft a CDONTS Windows 2000, Windows XP et Windows 2003 sont éliminés. Si vous utilisez déjà CDONTS votre application ASP, vous devez mettre à jour votre code, et utiliser la nouvelle technologie de CDO.
Exemple de CDOSYS
Envoyer 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
%>
Envoyer un email 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
%>
Envoyer HTML e-mail:
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 contenu d'une page de HTML e-mail d'un site:
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 contenu d'une page sur votre ordinateur dans un fichier au format HTML e-mail:
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 email texte avec des pièces jointes:
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
%>
Utilisez un serveur distant pour envoyer un texte de l'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.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
%>