VBA - PDFEMAIL *tempsave bei wechselnden usern

[SteBen]

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]

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]

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]

Hallo,

Code:

Dim outfile As String

Gruß