Vielen Dank das hat geklappt.
Mein code sieht jetzt so aus falls jemand den braucht:
Sub ImportWorksheet()
ChDir "X:\Tagesreport\"
Workbooks.Open "Statistik V0.9.5.xlsx"
Sheets("Tagesbericht1").Select
ActiveWorkbook.RefreshAll
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Tagesreport1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("Tagesbericht2").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Tagesreport2.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Workbooks("Statistik V0.9.5.xlsx").Close SaveChanges:=True
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.SentOnBehalfOfName = "projektmanagement@xxx.de.com"
.To = "mj@xxx.de"
.Subject = "Tagesreport"
.Attachments.Add "X:\Tagesreport\Tagesreport1.pdf"
.Attachments.Add "X:\Tagesreport\Tagesreport2.pdf"
.Body = "Sehr geehrte Damen und Herren, anbei erhalten Sie den Tagesreport. Mit freundlichen Grüßen"
.Display
End With
End Sub
|