Office: (Office 365) VPA PDF Anhängen

Hallo zusammen,

Das untenstehende Makro funktioniert zu 90% das einzige Problem, das PDF wird der E-Mail nicht angehängt. Bitte um Hilfe

Private Sub Senden_Click()

Dim Emailadresse As String
Dim CCEmailadresse As String
Dim name As String
Dim Betreff As String
Dim Nachricht As Object, OutApp As Object
Dim AWS As String
Dim PDF As String

Emailadresse = ""
CCEmailadresse = ""
Pfad = "Z:\"
name = "ActiveWorkbook.Name"

Betreff = " "

'Die Datei speichern als PDF

Windows("").Activate
Dim strDateiname As String
Dim strPDF As String
Pfad = "Z:\
strDateiname = Format(Date, "dddd/DD/MMM/YYYY/ ")
strPDF = Pfad & "" & strDateiname & "pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:=strPDF, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False

'Email versenden
Set OutApp = CreateObject("Outlook.Application")
AWS = Pfad & name & ".pdf"
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Emailadresse
.cc = CCEmailadresse
.Subject = Betreff
.body = "Dies ist die nächste Tranport Mitteilung Stand: " & Date
File = ActiveDocument.name & ".pdf"
.Send

End With
Set OutApp = Nothing
Set Nachricht = Nothing

MsgBox "Die Email wurde erfolgreich an " & Emailadresse & " versendet!" & vbNewLine & vbNewLine & _
"ACHTUNG!!! Outlook muss geöffnet sein um die Datei zu versenden."

Exit Sub

End Sub

 

Hallo Wolf,

dein "untenstehendes Makro" funktioniert sicher nicht zu 90%. Hast du versehentlich eine falsche Version hochgeladen?
Warum ich mir so sicher bin, ist u.a. diese Zeile:
Windows("").Activate
Sie erzeugt bei mir zu Recht den Laufzeitfehler "Das Element ist nicht in der Sammlung vorhanden" was besagen will, dass es ein Fenster ohne Namen oder Index nicht gibt. Was möchtest du da aktivieren und wozu?

Das Weitere kann ich mangels Outlook nicht testen, aber rein bei Durchsicht deines Makros fällt mir noch allerlei auf:

Du definierst die Variable name so: name = "ActiveWorkbook.Name" (in Anführungszeichen)
Also erhält name genau diesen Wortlaut und nicht, wie vermutlich von dir erhofft, den Namen der aktiven Mappe.
Weiters deutet die (korrigierte) Definition darauf hin, dass dein Makro in der Excel-Mappe steht. Dann erscheint aber weiter unten die Zeile: ActiveDocument.ExportAsFixedFormat..., was darauf hinweist, dass das Makro in einem Word-Dokument steht. Dann gibt es aber kein ActiveWorkbook, umgekehrt, wenn es in Excel steht, kein ActiveDocument. Wo hast du das Makro untergebracht?

Im Abschnitt "Email versenden" definierst du AWS = Pfad & name & .pdf
Nach dem aktuellen Stand des Makros kommt da raus: "Z:\ActiveWorkbook.Name.pdf". Gottlob verwendest du diese Variable nirgends.

Die Emailadresse ist weiter oben als leer definiert. (Emailadresse = "") und sie wird in deinem Makro nirgends befüllt. Ob die wohl ankommt?

Mit der Zeile File = ActiveDocument.name & ".pdf" willst du wohl den Anhang definieren. Soweit ich weiß, macht man das mit .attachements.Add...
Anhängen wolltest du doch wohl die PDF-Datei, die du weiter oben als StrPDF definiert und erzeugt hast, und nicht dein aktives Word-Dokument?

Räum doch zunächst diese Fehler aus oder lade die funktioniernde Makroversion hoch. Dann kannst du ja noch einmal fragen.