Hallo,

ich habe mir (auch mit Eurer Hilfe :)) ein schönes Skript gebastelt, dass Anlagen entweder als PDF oder XML speichert.

Dies läuft meißt stabil, führ aber gelegentlich in Outlook zu einem "Regelfehler - Anlage kann nicht gespeichert werden" und die Regel wird deaktiviert. Ich gehe davon aus, dass die Verbindung zum Netzlaufwerk (hier T:) nicht zügig genug aufgebaut werden kann, und das Skript daher abbricht/die Anlage nicht speichern kann.

Ich habe mir gedacht, dass es sinnvoll wäre, wenn das Skript so gebaut wäre, dass es zunächst einige "Durchläufe" macht (vlt. mit einigen Sekunden Pause) und dann eine Fehlermeldung als Alert ausgibt.

Das sollte dazu führen, das Outlook "zufrieden" ist, auch wenn die Anlage nicht gespeichert wird und die Regel nicht deaktiviert wird.

Das bisherige Skript steht unten. Wer kann helfen?

Danke

Tom

Public Sub BLENDED_TrailB(itm As Outlook.MailItem)
   
   
Dim objAtt As Outlook.Attachment
  
Dim saveFolder As String
Dim saveFolder2 As String
  
  
Dim Trenner
Trenner = " - "
  
  
  
saveFolder = "T:\emc\I1"            'Hier ist der Pfad anzugeben, wohin der Anhang gespeichert werden soll!
saveFolder2 = "T:\emc\2"            'Hier ist der Pfad anzugeben, wohin der Anhang gespeichert werden soll!
  
   
For Each objAtt In itm.Attachments
          
        If InStr(objAtt.DisplayName, ".pdf") Or _
        InStr(objAtt.DisplayName, ".PDF") Then
            objAtt.SaveAsFile saveFolder & "\" & "xxxxxxxxxxxxxxxxxxxxxxx" & Trenner & objAtt.DisplayName
  
        End If
        If InStr(objAtt.DisplayName, ".xml") Or _
        InStr(objAtt.DisplayName, ".XML") Then
            objAtt.SaveAsFile saveFolder2 & "\" & "xxxxxxxxxxxxxxxxxxxxxxx.xml"
  
              
        End If
   
objAtt.Delete
Set objAtt = Nothing
  
Next
   
  
  
End Sub