ich habe ein Anliegen. Und zwar habe ich ein Powershell Skript welches eine Excel Datei öffnen soll und anschließen das Makro ausführen soll.
Das klappt soweit auch, bis auf, dass ein Fehler erscheint : "Objektvariable nicht festgelegt (Fehler 91)".
Ich weiß nicht wie ich diesen Fehler lösen kann und benötige eure Hilfe.
Anbei der VBA Code:
Sub PdfAndMail()
Dim PdfFileName As String
Dim OutlApp As Object
Dim title, mailTo, mailCc, mailBody As String
title = "Daily Support Report " + Date$
counter = Range("PivotDaten!A1").Value
mailTo = ""
mailCc = ""
mailBcc = "hueskes@itb-pim.de"
mailBody = ""
PdfFileName = "Daily_Support_Report_" + Date$ + ".pdf"
SheetsToMail = Array("Zusammenfassung")
ActiveWorkbook.RefreshAll
Sheets(SheetsToMail).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFileName, Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
IsCreated = True
End If
OutlApp.Visible = True
On Error GoTo 0
With OutlApp.CreateItem(0)
.Subject = title & " Offen: " & counter
.To = mailTo
.CC = mailCc
.Bcc = mailBcc
.Body = mailBody
.Attachments.Add = PdfFileName
On Error Resume Next
.Send
Application.Visible = True
End With
If IsCreated Then OutlApp.Quit
On Error GoTo 0
Set OutlApp = Nothing
Application.OnTime TimeSerial(0, 1, 0), "PdfAndMail"
End Sub
An der Stelle " With OutlApp.CreateItem(0)" kommt der Fehler.
Ich bedanke mich vorab schonmal für die Hilfe.