rinominare allegato

[jet]

• .AddAttachment "http://www.xxxxxxxxx.it/PDF/nome_allegato.pdf"

Salve, allegando un file nel formato pdf con l'oggetto CDOSYS il file assume un nome alfanumerico; vorrei sapere se è possibile rinominarlo.

[viki1967]

Prima di inviare farai l'upload sul server, no?

Guarda qui

[jet]

Il file è gia presente nel server, in una cartella con diritto di scrittura.
Quando si riceve come allegato, il suo nome che, ad esempio è catalogo.pdf viene rinominato ATT00024.pdf; sono su aruba.
Si può risolvere.

[viki1967]

Devi provare con FSO (File System Object).

[jet]

Ho risolto così:

• fileAllegato = "nome_allegato.pdf"
  cartella = Server.MapPath("./")
  
  Dim iMsg
  Dim iConf
  Dim Flds
  set iMsg = CreateObject("CDO.Message")
  set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields
  
  Flds(cdoSendUsingMethod) = cdoSendUsingPort
  Flds(cdoSMTPServer) = "smtp.aruba.it"
  Flds(cdoSMTPServerPort) = 25
  Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
  Flds.Update
  
  
  With iMsg
  Set .Configuration = iConf
  .To = Request.form("email")
  .From = "info@xxxxxxxxxxx.it"
  .Subject = "Risposta Richiesta Catalogo"
  .AddAttachment (cartella & "\" & fileAllegato)
  .CreateMHTMLBody "http://www.xxxxxxxxxxxx.it/contatto_risposta.asp"
  .Send
  End With