Sub
test()
Dim
Mailadresse
As
String
, Betreff
As
String
Dim
olApp
As
Object
Set
olApp = CreateObject(
"Outlook.Application"
)
Mailadresse = ActiveSheet.Range(
"J1"
)
Mailadresse2 = ActiveSheet.Range(
"J2"
)
Betreff = ActiveSheet.Range(
"J3"
)
Sheets(
"Hardware aus SAP"
).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ(
"USERPROFILE"
) &
"\Desktop\" & ActiveSheet.Range("
J3
") & Format(Now, "
YYYY.MM.DD
") & "
.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=
True
, IgnorePrintAreas:=
False
, OpenAfterPublish:=
False
With
olApp.CreateItem(0)
.
To
= Mailadresse
.CC = Mailadresse2
.Subject = Betreff
.Attachments.Add Environ(
"USERPROFILE"
) &
"\Desktop\" & ActiveSheet.Range("
J3
") & Format(Now, "
YYYY.MM.DD
") & "
.pdf"
.Display
End
With
Set
olApp =
Nothing
End
Sub