Invio email da una pagina con componente CDO
 
Con Windows XP e Windows 2003 Microsoft ha smesso di utilizzare il componente CDONTS per l'invio delle email da una pagina asp. Tale componente e' stato sostituito dal nuovo componente CDO.
Ecco alcuni esempi di utilizzo.

1)Mail di testo:

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="This is a message."
myMail.Send

2)Mail in formato HTML

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = """testo formattato in html"""
myMail.Send

3)Messaggio HTML che spedisce una pagina web da un sito:

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.miosito.com/mailbody.asp"
myMail.Send

4) Mail con un allegato

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment server.mappath("mio_attachment.zip")
myMail.Send

5) Spedire una mail usando un server remoto

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
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

<!-- METADATA NAME="Microsoft CDO for Windows 2000 Library" TYPE="TypeLib" UUID="{CD000000-8B95-11D1-82DB-00C04FB1625D}" --><%

Set objMail = Server.CreateObject("CDO.Message")

' invio dell'e-mail
objMail.To = "daniele@aspitalia.com.ext"

objMail.Fields.Item(cdoImportance).Value = cdoHigh
objMail.Fields.Update

objMail.From = "daniele@aspitalia.com.ext"
objMail.Subject = "Prova messaggio"
objMail.TextBody = "Priorità alta"
objMail.Send()

set objMail = Nothing

%>

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
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") _
="mail.tin.it"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send