Thema Datum  Von Nutzer Rating
Antwort
Rot Aktuelle Tabelle als PDF aus SharePoint senden
04.01.2023 15:52:58 Gast71835
NotSolved
04.01.2023 17:08:37 ralf_b
NotSolved
04.01.2023 18:15:29 Gast12310
NotSolved
04.01.2023 19:45:53 ralf_b
Solved
04.01.2023 20:22:35 Gast53094
NotSolved
04.01.2023 21:06:43 Gast10424
NotSolved
04.01.2023 21:21:58 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Gast71835
Datum:
04.01.2023 15:52:58
Views:
44
Rating: Antwort:
  Ja
Thema:
Aktuelle Tabelle als PDF aus SharePoint senden

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.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Aktuelle Tabelle als PDF aus SharePoint senden
04.01.2023 15:52:58 Gast71835
NotSolved
04.01.2023 17:08:37 ralf_b
NotSolved
04.01.2023 18:15:29 Gast12310
NotSolved
04.01.2023 19:45:53 ralf_b
Solved
04.01.2023 20:22:35 Gast53094
NotSolved
04.01.2023 21:06:43 Gast10424
NotSolved
04.01.2023 21:21:58 ralf_b
NotSolved