|
Hallo zusammen,
ich habe eine EXCEL in der die aktuelle Tabelle per Mail (Outlook) als .PDF versendet werden soll.
Der Code funktioniert einwandfrei, solange die Datei auf einem normalen laufwerk abgelegt ist. Durch die umstellung auf SharePoint funktioniert das senden leider nicht mehr.
Es kommt immer die Meldung:
Laufzeit 1004
Das Dokument wurde nicht gespeichert. DasDokument ist möglicherweise geöffnet, oder beim Speichern ist ein fehler aufgetreten.
Aktuell wird folgender Code verwendet:
Private Sub Senden_Click()
Dim olApp As Object
Dim AWS As String
Dim olOldBody As String
'define temporary Path and Filename
AWS = MyPath & "\" & Format(Date, "DD.MM.YYYY") & "_" & Format(Time, "hhmm") & "_" & _
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 = "XY ;XY"
.CC = "XY"
.Subject = "ABCD"
.HTMLBody = "<FONT SIZE = 3> ABC <BR><BR> ABC." & 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
Kann hier jemand helfen?
Vielen Dank im vorraus.
|