ciao a tutti sto cercando un metodo che mi permetta di inviare un file su un server e rinominarlo solo per l'email
codice:Function AttachFile(roMsg, rsFilePath, rsNewName) roMsg.AddAttachment rsFilePath With roMsg.Attachments(1).Fields .Item(cdoContentDisposition) = "attachment;filename=" & rsNewName .Update End With End Function Dim ObjSendMail Set ObjSendMail = Server.CreateObject("CDO.Message") 'Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="xxxxxxx" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="xxxxx" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="xxxxxx" ObjSendMail.Configuration.Fields.Update nomefile= "Attestati_Scheda_QGLRRT78C44L219L_0_6_10_8_2011" ObjSendMail.To = email AttachFile ObjSendMail, Server.MapPath("allegati/dazipp/" & nomefile & ".zip"), "Scheda presenza.zip"
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/Corsi/testsmtpOKroby.asp, line 9
la riga 9 è quella segnata in rosso

Rispondi quotando

