2 messaggi dal 25 giugno 2009
Salve a tutti
Sto gestendo un sito di una scuola che deve mandare una email automatica ai genitori dei ragazzi.
Il sito è in ASP Classico, il provider della casella mittente con cui mando queste email è Aruba
Ho uno script che ha funzionato senza problemi per anni poi all'improvviso solo quando invia email a un destinatario @gmail mi torna indietro questa email di errore (ho sostituito i dati sensibili con xxx):

This is an automatically generated Delivery Status Notification.
Delivery to the following recipients failed permanently:
*xxxxx@gmail.com
Reason: GhUdqS2VS08pbGhUdqWRzD Siamo spiacenti, il tuo messaggio non è stato recapitato. Il server destinatario ha risposto: 550-5.7.26 This mail is unauthenticated, which poses a security risk to the
550-5.7.26 sender and Gmail users, and has been blocked. The sender must
550-5.7.26 authenticate with at least one of SPF or DKIM. For this message,
550-5.7.26 DKIM checks did not pass and SPF check for [tivoliforma.it] did not
550-5.7.26 pass with ip: [xxx.xxx.xxx.xxx]. The sender should visit
550-5.7.26 https://support.google.com/mail/answer/81126#authentication for
550 5.7.26 instructions on setting up authentication. l19-20020a170906a41300b00986b1c0b4d2si13013933ejz.595 - gsmtp


Vi metto qui lo script che uso che, come ho indicato sopra, ha funzionato per anni e continua a funzionare anche adesso purchè il destinatario non sia @gmail

Set oMail = CreateObject("CDO.Message")
Set oConf= Server.CreateObject ("CDO.Configuration")
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "[mio server smtp]"
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = smtpAUTH
if smtpAUTH = 1 then
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[user della mia casella mittente]"
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "[password della mia casella mittente]"
end if
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oConf.Fields.Update
Set oMail.Configuration = oConf
oMail.From = "[indirizzo email mittente]"
oMail.To = "[indirizzo email destinatario]"
if mailSender <> "" then
oMail.Sender = mailSender
end if
oMail.Subject ="[Oggetto della email]"
oMail.TextBody = "[testo della email]"
oMail.Send()
Set oMail = Nothing

Qualcuno mi può indicare se devo aggiungere qualcosa a questo script o cambiare qualche istruzione?
Grazie in anticipo

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.