Dovrei far funzionare questo codice su di un server di un Comune:
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSMTPServer) = "smtp.NONSOQUALE.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "miamail@url.it"
.From = "tuamail@url.com"
.Sender = mail
.Subject = titolo
.TextBody = news
.Send
End With
L'hosting su cui si trova mi ha comunicato questo:
Il problema del mancato invio mail nasce dal fatto che l'smtp server inserito in
Flds(cdoSMTPServer) = "smtp.NONSOQUALE.it"
non risulta accessibile.
Le consiglio di trovare un smtp server open relay sul quale appoggiarsi per
l'invio delle suddette mail.
Qualcuno sa mica dirmi su chi ci si può appoggiare? Grazie
Rispondi quotando
