problemi invio email con asp

**cccndr** · 07-04-2008, 16:46

sto cercando di testare un sito su www.asphost4free.com
nel seguente script mi ritorna
error '80040211'
relativo a:
mittente = "ciucci.a@libero.it"
che chiaramente io non so come impostare
qualcuno può aiutarmi?

<%
'---Script per CDOSYS
Dim Messaggio
Dim Confcdo
Dim Flds
Dim strHTML
Dim smtpserver

Const cdoSendUsingPort = 2
smtpserver = servermail

set Messaggio = CreateObject("CDO.Message")
set Confcdo = CreateObject("CDO.Configuration")

Set Flds = Confcdo.Fields

' impostazioni dei campi di configurazione di CDOSYS per usare la porta 25 sul server SMTP

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
.Update
End With

dim destinatario,mittente,titolo,corpo
destinatario ="ciucci.a@fastwebnet.it"
mittente = "ciucci.a@libero.it"
titolo= "xxx"
corpo= "yyyyyyyy"

With Messaggio
' applico i settaggi
Set .Configuration = Confcdo
.To = destinatario
.From = mittente
.Subject = titolo
.textbody = corpo
.Send
End With

' Pulizia delle variabili
Set Messaggio = Nothing
Set Confcdo = Nothing
Set Flds = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''
%>

**Valeriodev** · 07-04-2008, 16:52

CIao.
Prova a fare un po di ricerche nel forum ci sono altri post con lo stesso problema tipo questo

http://forum.html.it/forum/showthrea...hreadid=861618

Ciao!

**cccndr** · 07-04-2008, 17:00

AIUTOOO
non so come settare il .from

**Valeriodev** · 07-04-2008, 17:13

Scusa ma ti ho detto di guardare altri post da me si dice LAGNUSO :-)!!

Cmq se ti riferisci al mittente devi mettere

.Sender = mittente

CIao

**cccndr** · 07-04-2008, 17:26

sicuramente non mi sono spiegato bene.
sono completamente ignorante in materia e sto utilizzando nel .from un email address che non è sul sito in questione, praticamente uso una mia email privata che non c'entra nulla con il server su cui ho il sito. E' possibile tutto ciò o cosa devo fare?

**Valeriodev** · 07-04-2008, 17:29

hai provado ad aggiungere

.Sender = mittente

dopo .from???

.....
.from = mittente
.Sender = mittente
......

**cccndr** · 07-04-2008, 17:33

fatto, ma ha solo spostato l'errore di una riga più sotto

**Valeriodev** · 07-04-2008, 17:40

dai l'errore esatto caso mai ti mando uno script mio migliore!

**cccndr** · 07-04-2008, 17:46

error '80040211'
/cccndr/sendmail.asp, line 35
sul seguente coduce:

<html>
<head>
<title></title>
</head>
<body>
<%
'---Script per CDOSYS
Dim Messaggio
Dim Confcdo
Dim Flds
Dim strHTML
Dim smtpserver
Const cdoSendUsingPort = 2
smtpserver = servermail
set Messaggio = CreateObject("CDO.Message")
set Confcdo = CreateObject("CDO.Configuration")
Set Flds = Confcdo.Fields
' impostazioni dei campi di configurazione di CDOSYS per usare la porta 25 sul server SMTP
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
.Update
End With
dim destinatario,mittente,titolo,corpo
destinatario ="ciucci.a@fastwebnet.it"
mittente = "ciucci.a@libero.it"
titolo= "xxx"
corpo= "yyyyyyyy"

With Messaggio
' applico i settaggi
Set .Configuration = Confcdo
.To = destinatario
.From = mittente
.Sender = mittente
.Subject = titolo
.textbody = corpo
.Send
End With
' Pulizia delle variabili
Set Messaggio = Nothing
Set Confcdo = Nothing
Set Flds = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''
%>

</body>
</html>

**Valeriodev** · 07-04-2008, 17:50

<%
'---Script per CDOSYS
Dim Messaggio
Dim Confcdo
Dim Flds
Dim strHTML
Dim smtpserver
Const cdoSendUsingPort = 2
smtpserver = "localhost"
set Messaggio = CreateObject("CDO.Message")
set Confcdo = CreateObject("CDO.Configuration")
Set Flds = Confcdo.Fields
' impostazioni dei campi di configurazione di CDOSYS per usare la porta 25 sul server SMTP
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
.Update
End With
dim destinatario,mittente,titolo,corpo
destinatario ="ciucci.a@fastwebnet.it"
mittente = "ciucci.a@libero.it"
titolo= "xxx"
corpo= "yyyyyyyy"

With Messaggio
' applico i settaggi
Set .Configuration = Confcdo
.To = destinatario
.From = mittente
.Subject = titolo
.textbody = corpo
.Send
End With
' Pulizia delle variabili
Set Messaggio = Nothing
Set Confcdo = Nothing
Set Flds = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''
%>

Prova così

Discussione: problemi invio email con asp

Strumenti discussione

Ricerca discussione

Visualizza

problemi invio email con asp

Permessi di invio