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
|