Errore invio mail con CDO

[elbahari]

Ciao a tutti.
Ho questo problema :

CDO.Message.1 error '8004020c'

È necessario specificare almeno un destinatario, ma non ne è stato trovato alcuno.

/carrello_asp/ordine.asp, line 555

Proprio su .send

Questo è il codice. Da cosa potrebbe dipendere ? Grazie. Antonella

'invio ordine per email


dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "[email protected]" 'Indirizzo mittente ordini
MailServer = "mail.tin.it" 'Indirizzo Mail Server
strRecipients = Session("SchedaClienteEmail")
' strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder
strSender = MailOrder
strSubject = "Ordine n." & IDOrdine
strMessage = "<font face='Arial' size='2'><b>TUO NOME</b><br><br>"
strMessage = strMessage & "<I>" & Session("SchedaClienteLibreria") & "</I><br><br>"
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & "<br><br>"

for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "<b><u>Articolo numero: " & i & "</u></b><br>"
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & "<br>"
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & "<br>"
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & "<br>"
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & "<br>"
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & "<br>"
next

strMessage = strMessage & "<br>"
strMessage = strMessage & "SubTotale : " & Importo & "<br>"
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & "<br>"
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & "<br>"
strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & "</font>"


'Create the e-mail server object
Set myCDOMail = CreateObject("CDO.Message")
Set myCDOConf = CreateObject("CDO.Configuration")

Set Fields = myCDOConf.Fields

with Fields
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tin.it"
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 25
.Update
end with

with myCDOMail
.Subject = strsubject
.From = strSender
.To = strRecipents
.HTMLBody = strMessage
.send

end with

on error resume next '## Ignore Errors

'Close the server object
Set myCDOMail = Nothing
Set myCDOConf = Nothing

Set Fields = Nothing

If Err <> 0 Then
Err_Msg = Err_Msg & "<li>La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & "</li>"
End if

%>

 

[elbahari]

mettendo

response.write strRecipients
response.end

prima del CDO

ho la conferma che la variabile si valorizza.

Non riesco proprio a capire dove può essere l'errore.

 

[lukeonweb]

To = strRecipents

manca una i

 

[elbahari]

Grazie mille. Potevo starci 3 giorni ma non me ne sarei mai accorta. Grazie ancora. Antonella.

 

[lukeonweb]

Di nulla Antonella!

Occhio che capita spesso, specialmente quando il tuo editor non ha l'intelisense e devi scrivere tutto a mano!

:byebye: