Errore con cdosys

**Sanjet** · 03-07-2005, 12:02

Sono seriamente allibito

VVoVe: in una pagina di cdosys incontro un errore:

error '8004020f'
/public/hbr/pa_ml2.asp, line 71

Di cui non ho la minima idea di cosa voglia dire

Si trovo in quest'ultimo tratto, mi pare...

codice:

With iMsg
Set .Configuration = iConf
.To = invioA
.From = invioDa
.Sender = invioDa
.Subject = object
.htmlBody = content
.Send
End With
'FINE EMAIL

sez.Movenext
Loop
sez.Close

**Shagrat** · 03-07-2005, 12:09

qual'è la riga 71 del file pa_ml2.asp?

**Sanjet** · 03-07-2005, 12:19

Originariamente inviato da Shagrat
qual'è la riga 71 del file pa_ml2.asp?

codice:

.Send

**Shagrat** · 03-07-2005, 12:21

misa che c'è qualcosa di sbagiato nella configurazione...

controlla qui:

http://www.weppos.com/asp/script/scr....asp?script=15

**Sanjet** · 03-07-2005, 14:37

Ancora adesso dà errore:

' Invia l'email
objMail.Send()

**Sanjet** · 03-07-2005, 21:48

Provo a postare il codice intero.

codice:

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />


<title>unknown</title>
<link rel="stylesheet" href="hostyle.css">
</head>
<body>
<%
tgo = ""
Set sez = Server.CreateObject("ADODB.Recordset")
set sez = Conn.Execute("SELECT * from info")
Do while NOT sez.EOF

email = sez("email")
tgo = tgo & email & ";"

sez.Movenext
Loop
sez.Close

'EMAIL
Dim objMail, objConfig
Set objMail = Server.createObject("CDO.Message") 

' ==================================== 
Set objConfig = Server.createObject("CDO.Configuration") 

With objConfig 

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

' Porta SMTP 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

' Porta CDO 
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

' Timeout 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 

.Fields.update 
End With 

' Assegna le configurazioni 
Set objMail.Configuration = objConfig 

' ==================================== 

' Assegna all'oggetto le proprietà necessarie 

' Mittente dell'email (indirizzo) 
objMail.From = "cast@roondar.net" 

' Destinatario dell'email (indirizzo) 
objMail.To = tgo 

' Oggetto dell'email 
objMail.Subject = object 

' Valore di priorità 
objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
objMail.Fields.update() 

' Corpo del messaggio 
objMail.HTMLBody = "<body bgColor='#98CAD8'><center><font face='Verdana' size=2>Roondar comunica...</font></center>

<font face='Verdana' size=1>" & content & "


<hr>b>Cast di Roondar</font></body>"

' Invia l'email 
objMail.Send() 

' Distruggi l'oggetto 
Set objMail = Nothing

Discussione: Errore con cdosys

Strumenti discussione

Ricerca discussione

Visualizza

Errore con cdosys

Permessi di invio