Hallo zusammen,
ich habe folgendes Problem:
Ich möchte eine PDF-Datei als E-Mail verschicken. Die PDF-Datei soll dabei aus zwei Bereichen, jeder Bereich aus einem unterschiedlichen Arbeitsblatt, bestehen.
Mein Code funktioniert bis jetzt nur, wenn ich mich auf einen Bereich beziehe. Er sieht folgendermaßen aus:
Dim NamePreSet, NewFilePDF As String
NamePreSet = ThisWorkbook.Sheets("Berechnung max Stapelhöhe").Range("O2") & "_" & ThisWorkbook.Sheets("Berechnung max Stapelhöhe").Range("D8") & "_" & Format(Now, "yyyy-mm-dd")
NewFilePDF = "C:\Temp\" & NamePreSet & ".pdf"
'PDF-Datei erstellen
ThisWorkbook.Sheets("Berechnung max Stapelhöhe").Range("$N$1:$S$30").ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFilePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Email erstellen
' Bezug zu Outlook herstellen...
Set MyOutApp = CreateObject("Outlook.Application")
'...neue Email erzeugen
Set MyMessage = MyOutApp.CreateItem(0)
sBodyHeader = " "background-color:#FFFFFF;" & _
"color:#000000;" & _
"font-family:Arial;" & _
"font-size:10pt" & _
""">"
' Werte den Eigenschaften zuweisen...
With MyMessage
.To = ""
.CC = ""
.BCC = ""
'Betreffzeile
.Subject = ""
'PDF als Anhang anfügen
.Attachments.Add NewFilePDF
.Display
Kill NewFilePDF
'.Send
End With
'Objekte sauber auflösen
Set MyOutApp = Nothing
Set MyMessage = Nothing
Nun möchte ich in die PDF-Datei auf einem neuen Blatt folgenden Bereich integrieren:
ThisWorkbook.Sheets("Draw_S_ES_S").Range("A1:S61")
Dies bekomme ich leider nicht hin. Ich hoffe ihr könnt mir hier weiterhelfen.
Besten Dank und Grüße
Alex