Excel mit Makro über Powershell öffnen

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