E-Mail-Versand aus Excel heraus
09.01.2019 13:52:43
Stefan
ich muss euch leider noch einmal nerven ...
Habe hier einen VBA-Code, mit dem aus einer Excel-Datei heraus das aktive Tabellenblatt erst in einem bestimmten Verzeichnis als PDF-Datei speichert und diese Datei dann per MS-Outlook versendet.
Das hat vor einigen Jahren mit der gleichen Excel-Version wunderbar funktioniert.
Nun plötzlich nicht mehr ... Hier der Code:
Private Sub OptionButton1_Click()
Unload UserForm17
Dim sBlatt As String
Dim Anhang As String
Dim OutApp As Object
Dim OutMail As Object
With ActiveSheet.PageSetup
'.LeftHeader = " "
'.CenterHeader = ""
'.RightHeader = ""
.LeftFooter = "xyz" & Chr(10) & "&Z&F&A"
.RightFooter = Now
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
' unter welchem Namen sollen die PDF-Dateien abgespeichert werden?
Anhang = "thisworkbook.path\Mail-Versand_temp\Anhang.PDF"
' speichert das aktuelle Blatt (=ActiveSheet) als PDF
ChDir ThisWorkbook.Path & "\Mail-Versand_temp\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Anhang, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
' Bezug zu Outlook herstellen...
Set OutApp = CreateObject("Outlook.Application")
' ...damit wir eine neue E-Mail erzeugen können
Set OutMail = OutApp.CreateItem(0)
' Werte den Eigenschaften zuweisen...
OutMail.To = "abc@xyz.de"
OutMail.CC = "abc@xyz.de"
'OutMail.BCC = ""
OutMail.Subject = "Auszug aus Statistik"
OutMail.Body = "Hallo Karin," & vbCrLf & _
vbCrLf & "anbei der gewünschte Auszug aus der Statistik. " & _
vbCrLf & vbCrLf & "LG" & vbCrLf & _
vbCrLf & "Stefan"
' Anhang hinzufügen: ja welchen denn?
OutMail.Attachments.Add Anhang
' ...und abschicken
OutMail.Send
' Objekte sauber auflösen
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Tabellenblatt wurde per E-Mail verschickt."
End Sub
Der Bereich, mit der die Erstellung des PDF-Dokuments erfolgen soll, wird als fehlerhaft angezeigt. Die PDF-Erstellung funktioniert aber grundsätzlich (nicht hier).Habt ihr eine Idee?
Gruß
Stefan