ciao ragazzi;
ho un problema.
sto cercando di inviare una e_mail;
mi esegue il codice correttamente ma alla fine quando controllo la mia posta non mi arriva il messaggio.
mi fate sapere se dovrei impostare qualche linea di codice particolare riguardo il server che utilizzo (tipo smtp o qualcosa di simile??).
grazie
Incolla il codice utilizzato per l'invio della mail!
ecco il codice:
<%
' dichiaro alcuni variabili
Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strNome
Dim strCognome
Dim strIndirizzo
Dim strEmail
Dim strNote
Dim strMessage
Dim strOggetto
' strTosend è la variabile che memorizza l’email del destinatario (es. email del nostro cliente)
strTosend="mp@XXXXXX.com"
' l’oggetto del nostra email
strOggetto="Invio informazioni"
' recupero il nome dell’utente con Request(nome_proprietà_oggettoflash)
strNome=Request("nome")
' recuperp il cognome
strCognome= Request("cognome")
' recupero l’email
strEmail= Request("email")
' recupero l’indirizzo
strIndirizzo=Request("indirizzo")
' recupero il messaggio note
strNote= Request("note")
' vado a comporre il messaggio che il destinatario riceverà nella sua casella email
' vbcrlf è il carattere speciale che aggiunge un ritorno a capo
strMessage="Nome: "&strNome&vbcrlf
strMessage=strMessage&"Cognome: "&strCognome&vbcrlf
strMessage=strMessage&"Email: "&strEmail&vbcrlf
strMessage=strMessage&"Messaggio: "&strNote&vbcrlf
' creo gli oggetti necessari per l’invio dell’email
' queste righe possono cambiare in relazione al provider
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
'Flds.Update
With iMsg
'Set .Configuration = iConf
.To = strTosend
.From = strEmail
.Subject = strOggetto
.TextBody=strMessage
.Send
End With
' alla fine del send recuperiamo la variabile err.number che identifica un numero di errore
' se esiste un numero di errore vuol dire che err.numer è true quindi c’è stato un errore altrimenti ‘error risulterebbe false
if err.number then
Response.Write "error=true"
else
Response.Write "messaggio inviato correttamente"
end if
Prova a ripulire tutto il codice ed esegui l'invio con questo codice.
Nel mail.to inserisci la tua mail e testa se ti arriva.
Dim mail
Set mail = Server.CreateObject("CDO.Message")
mail.From = strEmail
mail.To = strTosend
mail.Subject = strOggetto
mail.textBody = strMessage
mail.Send
Set mail = nothing
Su che hosting sei? Quali componenti puoi utilizzare per inviare mail?
Non so la versione dell'Host
ma ho sia il Cdont che che il cdosys.
ho appena provato la soluzione che mi era stata suggerita.
purtroppo il server non da errore, ma l'e_mail non mi arriva ugualmente
Mi spiace ma allora non so aiutartiOriginariamente inviato da antoninolion
ho appena provato la soluzione che mi era stata suggerita.
purtroppo il server non da errore, ma l'e_mail non mi arriva ugualmente
Io su tutti siti utilizzo quel metodo e non ho mai avuto problemi... Gli unici sono di lentezza di invio/arrivo... ma suppongo che da quando tua abbia fatto la prova sia passato abbastanza tempo da togliere anche questo dubbio.
Permessi di invio
Rispondi quotando