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:
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:
codice:
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.