Hallo zusammen
Ich «darf/muss» erstmals in Word ein Makro programmieren.
Ich habe ein Worddokument das ich nach dem Ausfüllen als PDF speichere und versenden muss.
Mit einem Makro wandle ich das bestehende Dokument in ein PDF File um und speichere dies mit folgendem Makro:
Wie ersichtlich kann ich damit jede Sekunde ein neues File erstellen und speichern.
Das funktioniert alles zufriedenstellend. Nun möchte ich dieses PDF aber gleichzeitig via Outlook 365 versenden und hier stosse ich an meine Grenzen.
Ich kriege es nicht hin, dass ich das File als Anhang versenden kann, zumal sich der Name ja immer unterscheidet. Viele Infos in Netz drehen sich in diesem Fall um Excel und da habe ich das machen können, aber im Word funktioniert es auch nach X Versuchen nicht.
Ich möchte mit einem Makro das Worddukument in ein PDF umwandeln, das PDF mit dem Outlook versenden und das Worddokument ohne speichern wieder schliessen.
Danke für eure Hilfe
cesar
Ich «darf/muss» erstmals in Word ein Makro programmieren.
Ich habe ein Worddokument das ich nach dem Ausfüllen als PDF speichere und versenden muss.
Mit einem Makro wandle ich das bestehende Dokument in ein PDF File um und speichere dies mit folgendem Makro:
Code:
Sub PDF_Speichern()
Windows("Test ABC.docx").Activate
Dim strDateiname As String
Dim Pfad As String
Dim strPDF As String
Pfad = "Z:\Test\Testfile\Download"
strDateiname = Format(Date, "dddd/DD/MMM/YYYY/ ") & Format(Time, "hh.mm.ss.")
strPDF = Pfad & "" & strDateiname & "pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:=strPDF, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
End Sub
Wie ersichtlich kann ich damit jede Sekunde ein neues File erstellen und speichern.
Das funktioniert alles zufriedenstellend. Nun möchte ich dieses PDF aber gleichzeitig via Outlook 365 versenden und hier stosse ich an meine Grenzen.
Ich kriege es nicht hin, dass ich das File als Anhang versenden kann, zumal sich der Name ja immer unterscheidet. Viele Infos in Netz drehen sich in diesem Fall um Excel und da habe ich das machen können, aber im Word funktioniert es auch nach X Versuchen nicht.
Ich möchte mit einem Makro das Worddukument in ein PDF umwandeln, das PDF mit dem Outlook versenden und das Worddokument ohne speichern wieder schliessen.
Danke für eure Hilfe
cesar
Zuletzt bearbeitet von einem Moderator: