Mail CDOSYS uno funz uno no..

[lucacasu]

Ciao a tutti..
L'utente dovrebbe poter mandare una mail o a tizio o a caio.. per velocizzarmi il lavoro ho fatto due link che vanno a tiziomail e caiomail faccendo un semplice copia e incolla del codice lasciando provvisoriamente la mail uguale per i test.
DOMANDA: Come mai su tizio funziona alla perfezione e su caio sembri che funzioni ma non mi spedisce nulla???
Vi anticipo che le mail sono nel formato info@sito.com..
Ciao

[Grambo]

prova a postare il codice della pagina che non funziona

[lucacasu]

Grazie Grambo..
ecco il codice che funz perf nell'altro link ..



<%
' istanzio le costanti per invio
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

'Recupero i campi della pagina precedente
nome = trim(request.form("nome"))
cognome = trim(request.form("cognome"))
email = trim(request.form("email"))
tel = trim(request.form("tel"))
provenienza = trim(request.form("provenienza"))
messaggio = trim(request.form("messaggio"))
'compone e spedisce la mail
strFrom = "info@xxxx.com"
sBody = "Nome: " & nome & ". Cognome: " & cognome & ". Mail: " & mail & ". Tel: " & tel & ". Da: " & provenienza & ". Messaggio: " & messaggio
With iMsg
Set .Configuration = iConf
.To = "info@xxxxx.com"
.From = strFrom
.Sender = "info@xxxx.com"
.Subject = "Presidente"
.HTMLBody = sBody
.Send
End With
%>

[Grambo]

sembra tutto ok...

non capisco perchè non vada

[lucacasu]

il fatto che una funz al volo.. l'altra mi da la conferma della spedizione ma non arriva nulla..