codice:
<html>
<head><title>Invio delle mail a tutti gli iscritti</title></head>
<%
Mittente=Request("Nome")
Indirizzo= Request("Nomevia")
Telefono= Request("numerotel")
Fax= Request("numerofax")
Localita1= Request("localita")
EMail= Request("Mail")
ogg= Request("oggetto")
Message= Request("Messaggio")
Dim miaMail, strOggMail,strBodyMail
DIM iMsg, Flds, iConf
strOggMail = "Lettera al Presidente"
'Corpo del messaggio
strBodyMail = ""
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body bgcolor=#05326f>"
strBodyMail = strBodyMail & "<center><table width=600 border=2 cellpadding=0 cellspacing=0 bordercolor=#feed22 bgcolor=#ffffff><tr><td><center>"
strBodyMail = strBodyMail & "<table width=550 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top height=10 bgcolor=#FFFFFF></td></tr>"
strBodyMail = strBodyMail & "<tr><td valign=top bgcolor=#ffffff><center><img src=http://www.aite-italia.com/logomail.jpg border=0></center></td></tr>"
strBodyMail = strBodyMail & "<tr><td valign=top height=40 bgcolor=#FFFFFF></td></tr><tr><td valign=top bgcolor=#ffffff><font face=verdana size=2 color=#000000>"
strBodyMail = strBodyMail & Mittente & "
" & Indirizzo & " - " & localita1 & "
Tel." & telefono & "
Fax" & Fax & "
e-mail" & EMail
strBodyMail = strBodyMail & "
</font></td></tr></table><table width=550 height=35 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top>"
strBodyMail = strBodyMail & "</td></tr></table> <table width=550 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top>"
strBodyMail = strBodyMail & "<font face=verdana size=2 color=#000000>Oggetto:" & Ogg & "</font></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 height=25 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top><font face=verdana size=2 color=#000000>"
strBodyMail = strBodyMail & "<p align=justify>" & Message & "</p></font></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 height=50 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top width=320></td><td valign=top width=200>"
strBodyMail = strBodyMail & "<center><font face=verdana size=2 color=#000000>In fede
" & Mittente & "</font></center></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 height=20 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td></td></tr></table>"
strBodyMail = strBodyMail & "</center></td></tr></table></center></body></html>"
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
'indica smtp che usi per l'invio
Flds(cdoSMTPServer) = "smtp.aruba.it"
'indica la porta
Flds(cdoSMTPServerPort) = 25
'indica eventuale autenticazione o lascia cdoAnonymous
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "xxxxxx@xxxxx.it"
.From = EMail
.Sender = "servizio...quello che vuoi"
.Subject = strOggMail
.HtmlBody = strBodyMail
.Send
End With
Response.Redirect("invioavvenuto.asp")
%>
<body>
</body>
</html>
è ovvio che il corpo della mail lo devi modificare 
ciao
Rispondi quotando
