nvio email con cdoys

[robbe2000]

ciao a tutti sto inviando l'email con cdoys.

ho visto il seguente codice in giro.

Function AttachFile(roMsg, rsFilePath, rsNewName)

roMsg.AddAttachment rsFilePath

With roMsg.Attachments(1).Fields
.Item(cdoContentDisposition) = "attachment;filename=" & rsNewName
.Update
End With

End Function

Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
' richiedo autenticazione
 Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' server
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
Fields.Update

Const cdoContentDisposition = "urn:schemas:mailheader:content-disposition"


Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config


objMail.To = email
AttachFile objMail, Server.MapPath("allegati/"& nomefile & ".doc"), "Scheda presenza.doc"
objMail.From = emailFrom
objMail.Subject = oggetto
objMail.HTMLBody  = testo2
objMail.Send()


set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing

Funziona il tutto riporto lo stesso codice da un altra parte e mi restituisce il seguente errore

ADODB.Fields error '800a0bb9'

Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.

/site/UtenteGestore/GestioneIscrittiincontri/testoemail.asp, line 7


Questo errore è sull'allegato.
Il documento che voglio allegare esiste il percorso è corretto
qualcuno mi sa dire cosa potrei sbagliare?

Grazie a tutti

[Roby_72]

Verifica i tre valori che passi alla funzione: roMsg, rsFilePath, rsNewName

Roby