5 messaggi dal 19 giugno 2001
Salve, lanciando questo script non ho nessun errore, ma la posta non arriva. Dove sbaglio?
Ho messo i ..... al posto degli indirizzi e-mail per privacy!

<code>
set objMail = CreateObject("CDONTS.NewMail")

objMail.From = Request.Form("EMail")
ObjMail.Subject = "Msg da assistenza "

Select Case request.form("settore")
Case "S/AS" Dest="....."
Case "S/PC" Dest="....."
Case "H/AS" Dest="....."
Case "H/PC" Dest="....."
Case "E" Dest="....."
Case "N" Dest="....."
End Select


ObjMail.To = Dest
ObjMail.Body = "Messaggio inviato dal sito " & _
Chr(13) & _
Chr(13) & _
"da " & Request.Form("Mittente") & _
Chr(13) & _
Chr(13) & _
"Domanda:" & _
Chr(13) & _
"--------------------" & _
Chr(13) & _
Request.Form("Domanda")

ObjMail.Send

response.write( Dest )

set ObjMail = Nothing
response.Write("Messaggio inviato con successo")
</code>

Fabio Fidanza

Fabio Fidanza

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.