Office: Exportierte PDF wird nicht an Email angehängt

Helfe beim Thema Exportierte PDF wird nicht an Email angehängt in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich habe folgende Schwierigkeit: Per VBA soll ein gewisser Teil einer Excel-Tabelle in das PDF-Format exportiert werden und diese PDF und auch... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von mglinka99, 18. Dezember 2019.

Seite 1 von 2

MGLINKA99

mglinka99

Exportierte PDF wird nicht an Email angehängt

Hallo,

ich habe folgende Schwierigkeit:

Per VBA soll ein gewisser Teil einer Excel-Tabelle in das PDF-Format exportiert werden und diese PDF und auch die Excel-Datei an eine E-Mail-Vorlage angehängt werden, damit ich dann die E-Mail verschicken kann.

Bis auf eine Kleinigkeit funktioniert auch alles. Die PDF wird zwar erstellt, aber nicht angehängt.

Noch eine Hintergrundinformation: Genutzt wird Excel 2010, Outlook 2010

Hier ist der Code, vielleicht kann jemand mal drüber schauen.

Vielen Dank!

Code:

Sub Mail_Dienstplan()

Dim Source As Range
Dim Dest As Workbook
Dim wb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim TempFilePDF As String
Dim FileFormatNum As Long
Dim OutApp As Object
Dim OutMail As Object

Set Source = Nothing
On Error Resume Next
Set Source = Range("A1:AI43").SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Source Is Nothing Then
MsgBox "The source is not a range or the sheet is protected, please correct and try again.", vbOKOnly
Exit Sub
End If

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set wb = ActiveWorkbook
Set Dest = Workbooks.Add(xlWBATWorksheet)

'Application.PrintCommunication = False

Source.Copy

With Dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
.Cells(1).Select
Application.CutCopyMode = False
End With

With Dest.Sheets(1).PageSetup
.LeftMargin = Application.CentimetersToPoints(0.8)
.RightMargin = Application.CentimetersToPoints(0.8)
.TopMargin = Application.CentimetersToPoints(1)
.BottomMargin = Application.CentimetersToPoints(0)
.Orientation = xlLandscape
.CenterHorizontally = True
.Zoom = 55
End With
ActiveWindow.Zoom = 55
'Application.PrintCommunication = True

TempFilePath = Environ("P:") '& ""
TempFileName = Left(ThisWorkbook.Name, _
InStrRev(ThisWorkbook.Name, ".") - 1) & FileExtStr

If Val(Application.Version) < 12 Then
'You use Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'You use Excel 2007-2016
FileExtStr = ".xlsx": FileFormatNum = 51
End If
TempFilePDF = Left(TempFileName, InStrRev(TempFileName, ".")) & "pdf"

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItemFromTemplate("P:E-Mail-VorlagenDienstplan.oft")

TempFilePDF = TempFileName & ".pdf"
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=TempFilePDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr

On Error Resume Next
With OutMail
'.to = ""
'.CC = ""
'.BCC = ""
'.Subject = ""
'.Body = ""
'.HTMLBody = OutMail.HTMLBody
.Attachments.Add TempFilePDF
.Attachments.Add Dest.FullName
'.Send
.Display
End With
On Error GoTo 0
.Close savechanges:=False
End With

Kill TempFilePath & TempFileName & FileExtStr

Set OutMail = Nothing
Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

mglinka99, 18. Dezember 2019

#1
Beverly Erfahrener User

Hi,

dann lasse in deinem Code mal die Zeile On Error Resume Next weg - so kannst du erkennen, an welcher Stelle dein Code hängt. Außerdem solltest du im Einzelschrittmodus die Inhalte deiner Variablen prüfen.

Beverly, 20. Dezember 2019

#2
MGLINKA99

mglinka99

wenn ich das on error weglasse, wird die pdf erst gar nicht generiert.

Fehler wird nicht angezeigt.

mglinka99, 22. Dezember 2019

#3
Beverly Erfahrener User

Exportierte PDF wird nicht an Email angehängt

Hast du mal die Inhalte aller deiner Variablen überprüft?

Ich meinte übrigens das On Error innerhalb der With-Anweisung With Dest und das hat nichts mit dem Erstellen der PDF-Datei zu tun.

Beverly, 22. Dezember 2019

#4
MGLINKA99

mglinka99

Das übersteigt leider meinen Horizont.

Habe mir den Code auch nur aus verschiedenen Beispielen zusammengestellt.

Ich meine auch, dass es auch mal funktioniert hat.

mglinka99, 22. Dezember 2019

#5
Beverly Erfahrener User

Führe den Code doch einfach mal im VBA-Editor im Einzelschrittmodus mittels F8 aus und prüfe dann die Inhalte aller Variablen, indem du den Cursor darauf hältst - dann siehst du mit welchen Werten sie belegt sind und ob es die richtigen Inhalte sind.

Beverly, 22. Dezember 2019

#6
MGLINKA99

mglinka99

Habe ich gerade gemacht. sieht gut aus

mglinka99, 22. Dezember 2019

#7
MGLINKA99

mglinka99

Exportierte PDF wird nicht an Email angehängt

Irgendwie will das nicht funktionieren. Finde den Fehler einfach nicht. Debuggen gehr ohne Fehler durch. Variablen sind richtig, pdf wird erzeugt aber nicht angehängt

mglinka99, 23. Dezember 2019

#8
Beverly Erfahrener User

Hi,

in diesem Teil

Code:

On Error Resume Next
With OutMail
'.to = ""
'.CC = ""
'.BCC = ""
'.Subject = ""
'.Body = ""
'.HTMLBody = OutMail.HTMLBody
.Attachments.Add TempFilePDF
.Attachments.Add Dest.FullName
'.Send
.Display
End With
On Error GoTo 0
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hast du bei der Überprüfung die beiden rot markierten Zeilen auskommentiert (oder vorübergehend gelöscht, wenn du nicht weißt was mit "Auskommentieren" gemeint ist)? Was steht auf der blau markierten Variablen - nur der Dateiname oder der Dateiname einschließlich Pfad?

Beverly, 23. Dezember 2019

#9
MGLINKA99

mglinka99

nur der dateiname

mglinka99, 23. Dezember 2019

#10
MUMPEL

mumpel

Du musst auch den Pfad angeben.

mumpel, 23. Dezember 2019

#11
Beverly Erfahrener User

Na da weißt du jetzt, wo dein Fehler liegt: es musst Pfad + Dateiname angegeben werden sonst funktioniert es nicht.

Beverly, 23. Dezember 2019

#12
MGLINKA99

mglinka99

Exportierte PDF wird nicht an Email angehängt

das habe ich. die variable hat nun auch den pfad. die pdf wird trotzdem angehängt

mglinka99, 23. Dezember 2019

#13
MGLINKA99

mglinka99

Das ist ja lustig. Zuhause funktioniert der Code tadellos. Auf der Arbeit wird die PDF nicht angehängt. Würde mich nicht wundern, wenn es ein Bug ist oder sowas. Ich probiere weiter

mglinka99, 24. Dezember 2019

#14
MUMPEL

mumpel

Hat Dein VBA auf Arbeit auch die erforderlichen Zugriffsrechte? Und stimmt der Pfad?

mumpel, 24. Dezember 2019

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Exportierte PDF wird nicht an Email angehängt

Die Seite wird geladen...

Exportierte PDF wird nicht an Email angehängt - Similar Threads - Exportierte PDF Email
geschlossene .xlsm zu .pdf konvertieren
in Microsoft Excel Hilfe
geschlossene .xlsm zu .pdf konvertieren: Hallo VBA´ler Ich brauche wieder einmal euer VBA Wissen. Ich habe eine geöffnete xlsm. Anahnd einer VBA Prozedur wird eine andere geschlossene .xlsm vom Ordner A zu Ordner B verschoben und...
XY-Diagramm-Grafik mit zusätzlichen Daten erweitern
in Microsoft Excel Hilfe
XY-Diagramm-Grafik mit zusätzlichen Daten erweitern: Servus! Im Zuge meiner MA-Arbeit müsste ich bereits ermittelte Daten, welche als PDF vorliegen in Excel durch eigens ermittelte erweitern (Bild1). Da wir zu den eigentlichen Daten keinen Zugang...
Bei speichern von Word als PDF keine Kommentare
in Microsoft Word Hilfe
Bei speichern von Word als PDF keine Kommentare: Liebe Kundige, als Lektorin bearbeite ich Buchmanskripte in Word und speichere die Bearbeitung mit sichtbaren Änderungen und Kommentaren als PDF. In letzter Zeit sind dann aber im PDF die...
huge PDF to EXCEL
in Microsoft Excel Hilfe
huge PDF to EXCEL: Hi, was wäre die schnellste Möglichkeit (außer Acrobat) einen großen PDF (2.000 bis 10.000 Seiten in Excel umzuwandeln? es geht um große TRX Berichte die ich nicht teilen kann..
Eine SharePoint-Liste kann nicht in Excel für Mac exportiert werden
in Microsoft Excel Tutorials
Eine SharePoint-Liste kann nicht in Excel für Mac exportiert werden: Eine SharePoint-Liste kann nicht in Excel für Mac exportiert werden Excel 2016 für Mac Mehr... Weniger...
Outlook pst kann nicht exportiert /importiert werden werden, Outlookmeldung bei Start
in Microsoft Outlook Hilfe
Outlook pst kann nicht exportiert /importiert werden werden, Outlookmeldung bei Start: Hallo ich hoffe mal mir kann geholfen werden... Nach dem Zusammenbruch meiner Festplatte musste ich mit neuer FP den Laptop neu aufbauen, icnl installation von outlook2013. Anfang ging...
Bei einer exportierten Tabelle Anrede generieren
in Microsoft Word Hilfe
Bei einer exportierten Tabelle Anrede generieren: Moin zusammen Mir wurde in meiner Ausbildung zum Einzelhandelskaufmann die Aufgabe übertragen für unser Autohaus das 6 Filialen umfasst den Marketingbereich zu übernehmen. Nun habe ich...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden