avevo chiesto anche qualche aiuto su come installare la classe...
soprattutto in locale...
nel frattempo ho risolto usando una pagina ASP...piu' semplice e veloce.
il codice riportato invia una email da hosting aruba in formato HTML incollando l'url specificato nel parametro CreateMHTMLBody.
codice:
<%
' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Assegna all'oggetto le proprietà necessarie
objMail.From = "Mio Nome <miaemail@dominio.it>" ' Mittente
objMail.ReplyTo = "miaemail@dominio.it"
objMail.To = Request.Form("email") ' Destinatario
objMail.Bcc = Request.Form("emailbcc") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
With objMail
Set .Configuration = objConfig
.MimeFormatted = True
.CreateMHTMLBody "http://www.sitoweb.dominimo/persorso/pagina.estensione"
.Fields("urn:schemas:httpmail:importance").Value = 1
.Fields.Update()
.Send()
End With
Set objMail = Nothing
Response.Write("Email inviata correttamente " &_
"all'indirizzo " &_
Request.Form("email"))
'testoinvito="<body><center><p align=""center"" style=""font-size:15px;font-family:Verdana;""> Prova HTML </p></center></body>"
else %>
<form name="formail" method="post" action="?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>To</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Bcc</td>
<td><input type="text" name="emailbcc" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
il codice riportato invia una email invece in formato HTML
codice:
<%
' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = Server.createObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Assegna all'oggetto le proprietà necessarie
objMail.From = "Mio Nome <miaemail@dominio.it>" ' Mittente
objMail.ReplyTo = "miaemail@dominio.it"
objMail.To = Request.Form("email") ' Destinatario
objMail.Bcc = Request.Form("emailbcc") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
'testoinvito="<body><center><p align=""center"" style=""font-size:15px;font-family:Verdana;""> Prova HTML </p></center></body>"
objMail.HTMLBody = testoinvito
Set objMail = Nothing
Response.Write("Email inviata correttamente " &_
"all'indirizzo " &_
Request.Form("email"))
else %>
<form name="formail" method="post" action="?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>To</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Bcc</td>
<td><input type="text" name="emailbcc" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>