Thema Datum  Von Nutzer Rating
Antwort
Rot Regelfehler (Speichern) durch Schleife beseitigen oder abfangen
 01.09.2017 00:01:12 Tom
NotSolved

Ansicht des Beitrags:
Von:
Tom		 Datum:
01.09.2017 00:01:12		 Views:
1011		 Rating:
     
Antwort:
  Ja
Thema:
Regelfehler (Speichern) durch Schleife beseitigen oder abfangen

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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Regelfehler (Speichern) durch Schleife beseitigen oder abfangen
 01.09.2017 00:01:12 Tom
NotSolved