PDF erstellen
25.09.2020 11:37:43
Blume
Danke an Franz, der mir dort sehr weiter geholfen hat. Allerdings hat es bei mir aus dem zweiten Teil des Codes (unten) leider nur die PDF Datei erstellt und anschließend nicht versendet.
Sub Blatt_versenden_PDF()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String, wksMail As Worksheet
Dim print_Range_old As String
Set wksMail = ActiveWorkbook.Sheets("Infoblattversenden")
With wksMail
.Range("A1").Select
AWS = Environ("UserProfile") & "\Desktop\" & Format(Date, "YYMMDD") & "_" _
& .Range("C6") & "_Test123" & ".PDF"
print_Range_old = .PageSetup.PrintArea
.PageSetup.PrintArea = "$A$1:$H$20"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=AWS, Quality:=xlQualityStandard, _
Ignoreprintareas:=False
.PageSetup.PrintArea = print_Range_old
End With
Application.Visible = True
Exit Sub
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Range("C18")
.CC = ""
.Subject = "Test123" & Date & " " & Time
.Attachments.Add AWS
.Body = "Liebes Team der " & Range("C6") & _
", anbei erhalten Sie das Informationsblatt. Viele Grüße" & Range("B3") & vbCrLf & ""
.Send
End With
Kill AWS
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub