|
Probier mal folgendes und stell sicher, dass es C:\Temp\ auch tatsächlich gibt:
Dim sDateiname As String
Dim sPfad As String
sPfad = "c:\Temp\"
sDateiname = "Test.pdf"
'++ PDF erzeugen vom aktuellen Tabellenblatt
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sPfad & sDateiname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
With CreateObject("Outlook.Application")
With .CreateItem(0)
.To = ""
.CC = ""
.Subject = sDateiname
.BodyFormat = 2
.Attachments.Add sPfad & sDateiname
.Display
End With
End With
Löschen kannst Du mit Kill(), aber vergiss nicht sicherzustellen, dass die Datei davor geschlossen wurde.
Derzeit lässt Du sie ja noch anzeigen.
|