Errore CDO

[Giubass]

Ciao, utilizzo questo script per inviare delle email con allegato, lo script funziona bene e spedisce le email con o senza allegato, nel primo caso però mi restituisce un errore.
Questo è il codice:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
		Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = Request.Form("sendEMail")(i) 
   .From = "xxx@XXX.ext"
   .Sender = "xxx@xxx.ext"
   .Subject = subject
   .TextBody = message& vbcrlf
   'allegato
   If Session("Percorso") <> "" Then
	  .AddAttachment (server.mappath(Session("Percorso")))
   End If
   .Send()
End With

Set iMsg = nothing
Set iConf = nothing
Set Flds = nothing

Questo è l'errore:

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/admin/mail/sendMsg.asp, line 63

La linea 63 è questa .Send() , ripeto l'email con l'allegato arriva tranquillamete ma lo script restituisce l'errore.

[Mizushi]

Se tu avessi un server in lingua italiana avresti avuto questa risposta:

CDO.Message.1 error '8004020c'
È necessario specificare almeno un destinatario, ma non ne è stato trovato alcuno

Agisci di conseguenza.

[Santino83_02]

Originariamente inviato da Mizushi
Se tu avessi un server in lingua italiana avresti avuto questa risposta:

CDO.Message.1 error '8004020c'
È necessario specificare almeno un destinatario, ma non ne è stato trovato alcuno

Agisci di conseguenza.

piu che altro, se conoscesse l'inglese non avrebbe avuto problemi a capire l'errore...

[Giubass]

Ragazzi il problema è che il destinatario esiste, visto che l'email arriva correttamente con tanto di allegato, provando ad inviare senza allegato arriva correttamente non generando nessun errore, questo non capisco

[Mizushi]

Prova a stamparti questo e scoprirai il problema:

response.write Request.Form("sendEMail")(i) 
response.end

[Giubass]

Originariamente inviato da Mizushi
Prova a stamparti questo e scoprirai il problema:

response.write Request.Form("sendEMail")(i) 
response.end

Mi stampa correttamente l'indirizzo email del destinatario:
Ecco l'errore:

CONFERMA INVIO NEWSLETTER

Le seguenti mail sono state inviate con successo:

xxx@xxx.it

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/admin/mail/sendMsg.asp, line 61

Questa è la pagina con lo script completo:

<%
Server.ScriptTimeout = 600

message = Request.Form("messagetext")
subject = Request.Form("subject")

Set objRS = Server.CreateObject( "ADODB.Recordset" )
%>
<p align="center"><span class="TITOLO">AMMINISTRAZIONE SITO</span></p>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF9900">
  <tr> 
    <td align="center" bgcolor="#9E0009"> 
      



        

        CONFERMA INVIO NEWSLETTER</p>
      

Le seguenti mail sono state inviate con successo:</p>

      
<% 
For i = 1 to Request.Form("sendEMail").Count
	

  sSql = "select * from mailing where mail='"& Request.Form("sendEMail")(i) &"'"
  objRS.Open sSql, objConn, 2, 2

  Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields

  Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
     Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
  Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = Request.Form("sendEMail")(i) 
   .From = "xxx@xxx.it"
   .Sender = "xxx@xxx.it"
   .Subject = subject
   .TextBody = message& vbcrlf
   'allegato
   If Session("Percorso") <> "" Then
	  .AddAttachment (server.mappath(Session("Percorso")))
   End If
   .Send()
End With

Set iMsg = nothing
Set iConf = nothing
Set Flds = nothing
Response.Write Request.Form("sendEMail")(i)& "
"
objRS.Close()

next

objConn.Close()
Set objRS = Nothing
Set objConn = Nothing
Session("arrayUtente") = ""
Session("Percorso") = ""
Session("Nome_File") = ""
 %>

[[trodat]]

Con il Debug non hai un buon rapporto...

Ma se nel campo .To ci metti un indirizzo email statico ed esistente ma non preso dal request form lo script dà sempre lo stesso errore? :

With iMsg
   Set .Configuration = iConf
   .To = "tuoindirizzoemail@xxx.it"
   .From = "xxx@xxx.it"
   .Sender = "xxx@xxx.it"
   .Subject = subject
   .TextBody = message& vbcrlf
   .Send()
End With

[Giubass]

Originariamente inviato da [trodat]
Con il Debug non hai un buon rapporto...

Ma se nel campo .To ci metti un indirizzo email statico ed esistente ma non preso dal request form lo script dà sempre lo stesso errore? :

With iMsg
   Set .Configuration = iConf
   .To = "tuoindirizzoemail@xxx.it"
   .From = "xxx@xxx.it"
   .Sender = "xxx@xxx.it"
   .Subject = subject
   .TextBody = message& vbcrlf
   .Send()
End With

Facendo come dici tu non da errore, quindi...?

[[trodat]]

Originariamente inviato da Giubass
Facendo come dici tu non da errore, quindi...?

quindi il problema è qui:

Request.Form("sendEMail")(i)