Per l’invio di email da script in ambiente Windows (per piani Hosting Base e Pro) è necessario utilizzare il seguente codice ASP:
<%
On Error Resume NextDim strMittente, strDestinatario, strSoggetto, strTesto, strSMTPServer, strSMTPUser, strSMTPPswSet objMessage = CreateObject(“CDO.Message”)‘####### VOCI CONFIGURABILIstrMittente = “email@dominio.tld”strDestinatario = “email@dominio_destinatario.tld”strSoggetto = “oggetto della mail”strTesto = “corpo della mail”strSMTPServer = “mail.dominio.tld”strSMTPUser = “email@dominio.tld”strSMTPPsw = “password”‘####### NON MODIFICARE SOTTO QUESTA RIGA‘####### ————————————objMessage.Subject = strSoggettoobjMessage.From = strMittenteobjMessage.To = strDestinatarioobjMessage.TextBody = strTestoobjMessage.Configuration.Fields.Item _(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2objMessage.Configuration.Fields.Item _(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = strSMTPServerobjMessage.Configuration.Fields.Item _(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25objMessage.Configuration.Fields.Item _(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1objMessage.Configuration.Fields.Item _(“http://schemas.microsoft.com/cdo/configuration/sendusername”) = strSMTPUserobjMessage.Configuration.Fields.Item _(“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = strSMTPPswobjMessage.Configuration.Fields.UpdateobjMessage.SendIf Err.Number = 0 ThenResponse.Write “Messaggio inviato con successo”ElseResponse.Write “Errore nell’invio del messaggio: ” & Err.Description & “[” & Err.Number & “]”End If
%>


