VBA Skript funktioniert auf lokalen Zugriff, aber nicht auf Netzwerkshare

    ' Create a WshShell to get the current directory  
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")  

' Create an Excel instance  
Dim myExcelWorker
Set myExcelWorker = CreateObject("Excel.Application")   

' Disable Excel UI elements  
myExcelWorker.DisplayAlerts = False
myExcelWorker.AskToUpdateLinks = False
myExcelWorker.AlertBeforeOverwriting = False
myExcelWorker.FeatureInstall = msoFeatureInstallNone

' Tell Excel what the current working directory is   
' (otherwise it can't find the files)  
Dim strSaveDefaultPath
Dim strPath
strSaveDefaultPath = myExcelWorker.DefaultFilePath
strPath = "\\Server\share"  
myExcelWorker.DefaultFilePath = strPath

' Open the Workbook specified on the command-line   
Dim oWorkBook
Dim strWorkerWB
strWorkerWB = strPath & "\meine_Excel.xlsm"  

Set oWorkBook = myExcelWorker.Workbooks.Open(strWorkerWB)

' Build the macro name with the full path to the workbook  
Dim strMacroName
strMacroName = "'" & strPath & "\meine_Excel.xlsm'" & "!SendMail.AttachActiveSheetPDF"  
on error resume next 
   ' Run the calculation macro  
   myExcelWorker.Run strMacroName
   if err.number <> 0 Then
      ' Error occurred - just close it down.  
   End If
   err.clear
on error goto 0 
 
' Clean up and shut down  
Set oWorkBook = Nothing

' Don’t Quit() Excel if there are other Excel instances   
' running, Quit() will   

if myExcelWorker.Workbooks.Count = 0 Then
   myExcelWorker.Quit
End If

Set myExcelWorker = Nothing
Set WshShell = Nothing

Option Explicit

Sub AttachActiveSheetPDF()
  Dim IsCreated As Boolean
  Dim i As Long
  Dim PdfFile As String, Title As String
  Dim OutlApp As Object
 
  ' Not sure for what the Title is  
  Title = Range("A1")  
 
  ' Define PDF filename  
  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, ".")  
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & "_" & ActiveSheet.Name & ".pdf"  
 
  ' Export activesheet as PDF  
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With
 
  ' Use already open Outlook if possible  
  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
 
  ' Prepare e-mail with PDF attachment  
  With OutlApp.CreateItem(0)
   
    ' Prepare e-mail  
    .Subject = "blabla"  
    .To = "blabla@domain.de"  
    .Body = "Hallo @all," & vbLf & vbLf _  
          & "blabla." & vbLf & vbLf _  
          & "MfG" & vbLf _  
          & Application.UserName & vbLf & vbLf
    .Attachments.Add PdfFile
   
    ' Try to send  
    On Error Resume Next
    .Send
    Application.Visible = False

    On Error GoTo 0
   
  End With
 
  ' Delete PDF file  
  Kill PdfFile
 
  ' Quit Outlook if it was created by this code  
  If IsCreated Then OutlApp.Quit
 
  ' Release the memory of object variable  
  Set OutlApp = Nothing
 
End Sub