Il componente CDO per spedire e-mail


Spedire una e-mail con CDO
CDO (Collaboration Data Objects) è una tecnologia Microsoft che è stata costruita su iis 4.0 ed era contenuta nell’option pack, il suo scopo è sempre stato quello di semplificare la costruzione di applicativi di messaggistica.

Nelle versioni attuali di ASP, visto il suo profondo utilizzo da parte dei programmatori, è stata integrata completamente. In questo HowTo cercherò di far veder piuttosto semplicemente vari esempi di codice per spedire e-mail sia di testo che HTML.

CDO, esempi di utilizzo:

Inviare una e-mail di testo:

<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”mail di testo”
myMail.From=”mail@miodominio.com”
myMail.To=”qualcuno@dominio.com”
myMail.TextBody=”Questo è il testo del messaggio.”
myMail.Send
%>

Inviare una e-mail di testo con i campi di copia conoscenza e copia nascosta:

<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”mail di testo CC + CCN”
myMail.From=”mail@miodominio.com”
myMail.To=”qualcuno@dominio.com”
myMail.Bcc=”qualcunaltro@dominio.com”
myMail.Cc=”qualcunaltro2@dominio.com”
myMail.TextBody=”Questo è il testo del messaggio.”
myMail.Send
%>

Inviare una e-mail di testo HTML:

<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”email di testo HTML”
myMail.From=”mail@miodominio.com”
myMail.To=”qualcuno@dominio.com”
myMail.HTMLBody = “<h1>questo è un testo HTML, h1 è un tag che fa grande il testo (header1)</h1>”
myMail.Send
%>

Inviare una e-mail di testo HTML prendendola da un sito remoto:

<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”email HTML con grab remoto”
myMail.From=”mail@miodominio.com”
myMail.To=”qualcuno@dominio.com”
myMail.CreateMHTMLBody “http://www.etechs.it/programming/asp/”
myMail.Send
%>

Inviare una e-mail di testo HTML prendendola da un file locale:

<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”email HTML da un file locale”
myMail.From=”mail@miodominio.com”
myMail.To=”qualcuno@dominio.com”
myMail.CreateMHTMLBody “file://c:/Documenti/test.htm” ‘Indicare il percorso completo
myMail.Send
%>

Inviare una e-mail di testo con un allegato:

<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”email di testo con allegato”
myMail.From=”mail@miodominio.com”
myMail.To=”qualcuno@dominio.com”
myMail.TextBody=”messaggio di testo semplice.”
myMail.AddAttachment “c:Documenti est.txt”
myMail.Send
%>

Inviare una e-mail di testo utilizzando un server remoto SMTP:

<%
Set myMail=CreateObject(“CDO.Message”)
myMail.Subject=”email con SMTP remoto”
myMail.From=”mail@miodominio.com”
myMail.To=”qualcuno@dominio.com”
myMail.TextBody=”messaggio di testo semplice.”
myMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/sendusing”)=2
‘Nome o IP del server SMTP remoto
myMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserver”)=”smtp.server.com”
‘Server posta SMTP solitamente la 25
myMail.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserverport”)=25
myMail.Configuration.Fields.Update
myMail.Send
%>

Il componente CDO per spedire e-mail ultima modifica: 2005-04-21T00:00:00+00:00 da Enrico

2 Comments.

  1. ho provato ad utilizzare questo script, ma quando tento di mandare una mail con corpo html che contenga un immagine, lo script non funziona.. come mai? è un problema di iis? se sì come si risolve?
    grazie

  2. Come installare CDONTS | MrX - pingback on 12/05/2008 at 10:01 am

Trackbacks and Pingbacks: