Layer 06

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 “https://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 %>

]]>

Nessun commento “Il componente CDO per spedire e-mail”