Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Access 2016 - cambiare nome al file allegato alla mail con sendobject
126 views
Skip to first unread message
mario rossi
May 11, 2019, 2:42:57 PM5/11/19
to
mi spiego meglio,
con il comando
DoCmd.OutputTo acOutputReport, "Fattura", acFormatPDF, PercorsoFinale & nomefile
genero un file pdf in c:\fatture\001_2019.pdf
poi con il comando
DoCmd.SendObject acSendReport, "fattura", "PDFFormat(*.pdf)", Me.Email, , , oggetto, testo, True
invio il report di nome "Fattura" in formato pdf alla mail del cliente, ma l'allegato si chiama "fattura.pdf" che è il nome del report
----------------
la mia domanda è
----------------
si può inviare come allegato il file creato con il comando DoCmd.OutputTo che si chiamerà correttamente "001_2019.pdf" oppure si può cambiare nome da codice vba al file che viene generato e allegato con il comando sendobject?
grazie a tutti.
con il comando
DoCmd.OutputTo acOutputReport, "Fattura", acFormatPDF, PercorsoFinale & nomefile
genero un file pdf in c:\fatture\001_2019.pdf
poi con il comando
DoCmd.SendObject acSendReport, "fattura", "PDFFormat(*.pdf)", Me.Email, , , oggetto, testo, True
invio il report di nome "Fattura" in formato pdf alla mail del cliente, ma l'allegato si chiama "fattura.pdf" che è il nome del report
----------------
la mia domanda è
----------------
si può inviare come allegato il file creato con il comando DoCmd.OutputTo che si chiamerà correttamente "001_2019.pdf" oppure si può cambiare nome da codice vba al file che viene generato e allegato con il comando sendobject?
grazie a tutti.
@Alex
May 11, 2019, 2:51:25 PM5/11/19
to
Domanda molto strana...
Il file che alleghi deve esistere quello che inserisci è il Path del file che verrà passato alla codifica MIME.
Quindi certo che puoi cambiare nome, ma non alla variabile, ma direttamente al file prima di inviarlo ovviamente.
@Alex
Il file che alleghi deve esistere quello che inserisci è il Path del file che verrà passato alla codifica MIME.
Quindi certo che puoi cambiare nome, ma non alla variabile, ma direttamente al file prima di inviarlo ovviamente.
@Alex
Karl Donaubauer
May 13, 2019, 5:15:45 AM5/13/19
to
Mario Rossi ha scritto:
il report di Access. Non è possibile di mandare un file salvato con
SendObject. Dovresti usare un codice diverso di automazione di Outlook o
diversi altri metodi di mandare e-mail.
Se invece vuoi solo cambiare il nome del file allegato basta cambiare la
proprietà Caption del report, p.e.
Dim strRptName As String, strPDFName As String
strRptName = "Fattura"
strPDFName = "001_2019" 'o la variabile nomefile ma senza ".pdf"
DoCmd.OpenReport strRptName, acViewDesign, , , acHidden
Reports(strRptName).Caption = strPDFName
DoCmd.Close acReport, strRptName, acSaveYes
DoCmd.SendObject acSendReport, strRptName, acFormatPDF, Me!Email, , ,
Oggetto, Testo, True
--
Ciao
Karl
*********
http://www.AccessDevCon.com
Access FAQ: http://www.donkarl.com/it
>
> con il comando
> DoCmd.OutputTo acOutputReport, "Fattura", acFormatPDF, PercorsoFinale & nomefile
> genero un file pdf in c:\fatture\001_2019.pdf
>
> poi con il comando
> DoCmd.SendObject acSendReport, "fattura", "PDFFormat(*.pdf)", Me.Email, , , oggetto, testo, True
>
> invio il report di nome "Fattura" in formato pdf alla mail del cliente, ma l'allegato si chiama "fattura.pdf" che è il nome del report
>
> con il comando
> DoCmd.OutputTo acOutputReport, "Fattura", acFormatPDF, PercorsoFinale & nomefile
> genero un file pdf in c:\fatture\001_2019.pdf
>
> poi con il comando
> DoCmd.SendObject acSendReport, "fattura", "PDFFormat(*.pdf)", Me.Email, , , oggetto, testo, True
>
> invio il report di nome "Fattura" in formato pdf alla mail del cliente, ma l'allegato si chiama "fattura.pdf" che è il nome del report
>
> si può inviare come allegato il file creato con il comando DoCmd.OutputTo che si chiamerà correttamente "001_2019.pdf" oppure si può cambiare nome da codice vba al file che viene generato e allegato con il comando sendobject?
Il tuo codice non manda come allegato il file che salvi ma direttamente
il report di Access. Non è possibile di mandare un file salvato con
SendObject. Dovresti usare un codice diverso di automazione di Outlook o
diversi altri metodi di mandare e-mail.
Se invece vuoi solo cambiare il nome del file allegato basta cambiare la
proprietà Caption del report, p.e.
Dim strRptName As String, strPDFName As String
strRptName = "Fattura"
strPDFName = "001_2019" 'o la variabile nomefile ma senza ".pdf"
DoCmd.OpenReport strRptName, acViewDesign, , , acHidden
Reports(strRptName).Caption = strPDFName
DoCmd.Close acReport, strRptName, acSaveYes
DoCmd.SendObject acSendReport, strRptName, acFormatPDF, Me!Email, , ,
Oggetto, Testo, True
--
Ciao
Karl
*********
http://www.AccessDevCon.com
Access FAQ: http://www.donkarl.com/it
mario rossi
May 13, 2019, 5:51:40 PM5/13/19
to
mario rossi
May 13, 2019, 5:58:22 PM5/13/19
to
mario rossi
May 15, 2019, 7:07:27 PM5/15/19
to
Grazie.
Karl Donaubauer
May 17, 2019, 4:23:15 AM5/17/19
to
Salve,
Mario Rossi ha scritto:
>>> Karl Donaubauer ha scritto:
>>>> ...
Usa la vis. anteprima di stampa invece di struttura:
...
DoCmd.OpenReport strRptName, acViewPreview, , , acHidden
Reports(strRptName).Caption = strPDFName
DoCmd.SendObject ...
DoCmd.Close acReport, strRptName, acSaveYes
Mario Rossi ha scritto:
>>> Karl Donaubauer ha scritto:
>>>> ...
>>>> Se invece vuoi solo cambiare il nome del file allegato basta cambiare la
>>>> proprietà Caption del report, p.e.
>>>>
>>>> Dim strRptName As String, strPDFName As String
>>>>
>>>> strRptName = "Fattura"
>>>> strPDFName = "001_2019" 'o la variabile nomefile ma senza ".pdf"
>>>>
>>>> DoCmd.OpenReport strRptName, acViewDesign, , , acHidden
>>>> Reports(strRptName).Caption = strPDFName
>>>> DoCmd.Close acReport, strRptName, acSaveYes
>>>>
>>>> DoCmd.SendObject acSendReport, strRptName, acFormatPDF, Me!Email, , ,
>>>> Oggetto, Testo, True
>>
>>>> proprietà Caption del report, p.e.
>>>>
>>>> Dim strRptName As String, strPDFName As String
>>>>
>>>> strRptName = "Fattura"
>>>> strPDFName = "001_2019" 'o la variabile nomefile ma senza ".pdf"
>>>>
>>>> DoCmd.OpenReport strRptName, acViewDesign, , , acHidden
>>>> Reports(strRptName).Caption = strPDFName
>>>> DoCmd.Close acReport, strRptName, acSaveYes
>>>>
>>>> DoCmd.SendObject acSendReport, strRptName, acFormatPDF, Me!Email, , ,
>>>> Oggetto, Testo, True
>>
>> provato e funziona grazie ancora.
>
> mi è venuto un dubbio, se devo distribuire il file formato accde ce non prevede l'apertura in modalità struttura di un report per cambiarne la proprietà caption, esiste un altro modo per il file accde?
> ...
>
> mi è venuto un dubbio, se devo distribuire il file formato accde ce non prevede l'apertura in modalità struttura di un report per cambiarne la proprietà caption, esiste un altro modo per il file accde?
Usa la vis. anteprima di stampa invece di struttura:
...
DoCmd.OpenReport strRptName, acViewPreview, , , acHidden
Reports(strRptName).Caption = strPDFName
DoCmd.SendObject ...
DoCmd.Close acReport, strRptName, acSaveYes
mario rossi
May 17, 2019, 9:15:39 AM5/17/19
to
mario rossi
Feb 1, 2020, 5:56:20 AM2/1/20
to
0 new messages