Hilfe PDF per Email
26.04.2022 09:51:51
Sam
Ich bin absoluter Anfänger und kämpfe mich da gerade etwas durch .. war stolz dass die Email bei mir öffnet udn auch die PDF generiert wird alles funktioniert bei mir ...
jedoch sobald ein anderer die Tabelle öffnet , bekommt dieser einen Downloadfehler in der PDF Die Email öffnet zwar mittlerweile aber die PDF wird nicht erzeugt?!
Woran kann das liegen ich kopiere den Text mal hier rein ..
Sub PDF_per_EMail()
'** Dimensionierung der Variablen
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object
'** Vorgaben definieren
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)
'** PDF erzeugen
'**Sheets("Fehlersammelkarte").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Nachbearbeitungsuebersicht.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
'** E-Mail versenden
strPDF = ThisWorkbook.Path & "\Nachbearbeitungsuebersicht.pdf"
With strEmail
.To = ""
.CC = ""
.Subject = "Nachbearbeitungs- und Fehlerübersicht (Top30Pools/Rest)/ (nötige Nacharbeit/Antrags-Fehler)" 'Betreffzeile
.body = "Hallo zusammen." & vbCrLf & "" & vbCrLf & "Anbei die aktuelle Übersicht bzgl. der Nachbearbeitungen und Antragsfehler." & vbCrLf & "PDF-Formular als Anlage anbei." & vbCrLf & "" & vbCrLf & "!!!Bitte die Ansicht per Zoom auf Bildschirmgrösse anpassen!!!" & vbCrLf & "" & vbCrLf & "Mit freundlichen Grüssen" & vbCrLf &
.Attachments.Add strPDF
.Display
'.Send 'Damit wir die E-Mail sofort versendet
'.Kill strPDF
End With
'** Objektvariablen wieder löschen
Set OutlookApp = Nothing
Set strEmail = Nothing
End
Sub