Invio from su indirizzo email

**tommygio** · 05-09-2011, 08:45

Salve a tutti,
è da un pò di tempo che sbatto la testa su questo codice, ma non riesco a capire cos'è che sbaglio.
Praticamente mi restituisce come risposta il form inviato, ma sulla casella di posta non arriva nulla....dov'è che sbaglio???

codice:

 
 
<meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
<%
Set objMessage = CreateObject("CDO.Message") 
Set objConfig = CreateObject("CDO.Configuration")
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort 
objConfig.Fields(cdoSMTPServer) = "smtp.dominio.it"
objConfig.Fields(cdoSMTPServerPort) = 25 
objConfig.Fields(cdoSendUsername) = "utente@dominio.it"
objConfig.Fields(cdoSendPassword) = "password"
objConfig.Fields.Update 
Set objMessage.Configuration = objConfig 
objMessage.To = "utente@dominio.it"
objMessage.From = Request.Form("nome") + "<" + request.Form("email") + ">"  
objMessage.Subject = "Richiesta assistenza dal sito" 
objMessage.TextBody = "messaggio in formato testuale" 
If Err.Number = 0 Then 
Response.Write "Il messaggio è stato inviato; nessun errore!<hr>" 
Else 
Response.Write Err.Description & "<hr>" 
Err.Number = 0 
End If 
On Error Goto 0 

%>

**Roby_72** · 05-09-2011, 09:27

Prova a togliere onerror resume next, magari c'è qualche errore.
Diversamente prova a spedire da un indirizzo email presente sul dominio che spedisce.

Roby

**tommygio** · 05-09-2011, 11:35

ok, provo e ti faccio sapere,
ma quando dici prova a spedire da un indirizzo email presente sul dominio che spedisce cosa intendi???
Inserisco subito un indirizzo già attivo su aruba

**Roby_72** · 05-09-2011, 13:13

Se il dominio interessato si chiama pippo.it prova da una email configurata per quel dominio, tipo info@pippo.it

Roby

**tommygio** · 05-09-2011, 15:14

In effetti è con un indirizzo così che ho provato...
adesso ci dò un'altra occhiata, ma per il resto ti sembra ci siano errori????

In ogni caso ho provato, niente da fare....

**Massimo61** · 05-09-2011, 15:49

Ciao,

visto che usi l'smpt del tuo dominio e l'autenticazione con username e password:

objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "smtp.dominio.it"
objConfig.Fields(cdoSMTPServerPort) = 25
objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic
objConfig.Fields(cdoSendUsername) = "utente@dominio.it"
objConfig.Fields(cdoSendPassword) = "password"
objConfig.Fields.Update

M.

**tommygio** · 05-09-2011, 17:28

Ho risolto rivoluzionando il codice,
ora funziona tutto, se serve a qualcuno fatemi sapere

**hdkiller** · 05-09-2011, 19:16

edit

**marco.agelao** · 06-09-2011, 08:36

Salve a tutti. tommygio
a me servirebbe quel codice come lo hai rivoluzionato. Puoi postarlo? Grazie.

**tommygio** · 06-09-2011, 08:58

Spero ti possa servire. Fammi sapere se hai bisogno di altro

codice:

<%
Dim CDOMsg 
Dim CDOConf 
Dim Flds 
Dim strHTML 
Const cdoSendUsingPort = 2
Set CDOMsg = CreateObject("CDO.Message") 
Set CDOConf = CreateObject("CDO.Configuration") 
Set Flds = CDOConf.Fields
With Flds 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 
' parametri mail server. 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.it" 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
'autenticazione 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "utente posta elettronica" 
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Update

End With

' Imposto il testo
strHTML = "<HTML>" 
strHTML = strHTML & "<HEAD>" 
strHTML = strHTML & "<BODY>" 
'con questo sistema imposti la visualizzazione dell'email in formato html
strHTML = strHTML & "</BODY>" 
strHTML = strHTML & "</HTML>" 
' Invio 
With CDOMsg 

Set .Configuration = CDOConf
'destinatario. 
.To = "email destinatario"
'Mittente 
.From = "email mittetne" 'io ho fatto una cosa carina Request.Form("nome") & "<" & request.Form("email") & ">"
'oggetto 
.Subject = "Richiesta di assistenza dal Sito Web" 
'testo html
.HTMLBody =  strHTML

.Send

End With 

'cancello le variabili 
Set CDOMsg = Nothing 
Set CDOConf = Nothing 
Set Flds = Nothing

'visualizza un messaggio di ok in caso di invio senza problemi 
'altrimenti visualizza il messaggio di errore 
If Err.Number = 0 Then 
Response.Write "Invio messaggio corretto"
Else 
Response.Write Err.Description & "<hr>" 
Err.Number = 0 
End If 
On Error Goto 0 
%>

Discussione: Invio from su indirizzo email

Strumenti discussione

Ricerca discussione

Visualizza

Invio from su indirizzo email

Permessi di invio