Ciao a tutti,
avrei bisogno di una mano.....
Allora, sto gestendo l'invio automatico di email con CDOSYS, visto che il server di Aruba è un windows 2003. Lo script che ho fatto, suggeritomi da voi, è :
' Invio email
Function sendemail(stremail)
'Crea l'oggetto email
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = "Campioni Auto Sas"
.To = stremail 'indirizzo email preso dal form
.Subject = strSubject
'Formato HTML
.HTMLBody = strBody
'Formato testo (scegliere)
messaggio = "Invio con CDOSYS"
.TextBody = messaggio
'Invia l'email
.Send()
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
end with
End Function
Perchè non mi da errore, però l'email non mi arriva???????
Ho sbagliato qualcosa?
AIUTO
Rispondi quotando
