|
Hallo zusammen,
ich möchte ein bestimmtes Tabellenblatt einer Exceldatei als .pdf über Outlook versenden. Die Datei selbst muss nicht gespeichert werden, kann also nach dem senden wieder gelöscht werden. Ich habe mir aus dem Herber Forum einen Code rausgesucht, der scheinbar das tun sollte. Bekomme jedoch immer den debug fehler.
Hat jamend eine Idee, bzw. kann mir weiterhelfen?
Danke schonmal im vorraus.
hier mal der Code aus dem Forum:
Private Sub SendSheetOutlook(sSubject As String, sTo As String, sCC As String, sText As String)
Dim olApp As Object
Dim AWS As String
Dim olOldBody As String
'define temporary Path and Filename
AWS = MyPath & "\" & Format(Date, "YYYYMMDD") & "_" & Format(Time, "hhmmss") & "_" & _
WorksheetFunction.Substitute(ActiveWorkbook.Name, ".xlsm", "")
'export File as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=AWS, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
AWS = AWS & ".pdf"
'Make Email
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.To = sTo
.cc = sCC
.Subject = sSubject
.htmlBody = sText & olOldBody
.Attachments.Add AWS
End With
'remove TEMP file
'********************************
'wenn du das PDF behalten möchtest, diese Zeile auskommentieren!
'sonst wird das temporäre PDF wieder gelöscht
'Kill AWS
'********************************
End Sub
|