Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > VBA - PDFEMAIL *tempsave bei wechselnden usern
Normale Version: VBA - PDFEMAIL *tempsave bei wechselnden usern
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

SteBen

04.11.2020, 14:13
Hallo zusammen,

habe eben ein Formular erstellt, das mit Klick auf einen Command Button als PDF per Mail geschickt werden soll. Es soll nur temporär zum Versenden gespeichert werden.

Mittels macro recorder habe ich folgenden Code erhalten:

Code:
PDFMAIL Makro
'
'
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\MEINUSERNAME\AppData\Local\Temp\Tyden Seal Übergabeschein.pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

Wie muss ich den Code anpassen, damit auch andere User die PDFMAIL Funktion mittel Klick auf command buttom verwenden können? :)

Danke Euch & Viele Grüße
SteBen

Fennek

04.11.2020, 14:30
Hallo,

der Temp-Ordner wird im Environment festgelegt, also sollte (ungeprüft) gehen:

Code:
outfile = environ("temp") & "\Tyden Seal Übergabeschein.pdf"

und dann die Variable "outfile" anstelle des fixen Pfad+Dateiname übergeben.

mfg

SteBen

04.11.2020, 14:41
Hi,

danke. Ich habe den code nun wie folgt angepasst, aber bekomme nen Laufzeitfehler..

"Objektavriable oder With-Blockvariable nicht festgelegt"


Code:
Private Sub CommandButton1_Click()
' PDFMAIL Makro
'
Dim outfile As Variable

outfile = Environ("temp") & "\Tyden Seal Übergabeschein.pdf"

    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        outfile, _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

End Sub

Was mache ich falsch?

maninweb

04.11.2020, 14:45
Hallo,

Code:
Dim outfile As String

Gruß
Clever-Excel-Forum > Office-Anwendungen > Excel > VBA - PDFEMAIL *tempsave bei wechselnden usern