Office 2010 Makros - Ohne Adminrechte nicht ausfürhbar

cr1zz · 14. April 2015

Hallo zusammen,

ich bin derzeit dabei unsere Clients auf 'Non-Admin-Rights' umzustellen.

Bei einem Testclient ist mir jetzt aufgefallen, dass ein Outlook Makro, welches E-Mails in einem öffentlichen Ordner verschiebt und löscht nicht mehr funktioniert.

Mir ist jedoch neu, dass man hierfür Adminrechte benötigt.

Hat jemand eine Idee?

Ich danke im Voraus.

Sunny61 · 14. April 2015

ich bin derzeit dabei unsere Clients auf 'Non-Admin-Rights' umzustellen.

Bei einem Testclient ist mir jetzt aufgefallen, dass ein Outlook Makro, welches E-Mails in einem öffentlichen Ordner verschiebt und löscht nicht mehr funktioniert.

Mir ist jedoch neu, dass man hierfür Adminrechte benötigt.

Tja, was soll man dazu schreiben? Wie weit kommt denn der Code? Wo genau im uns unbekannten Makro hängt Outlook mit genau welcher Fehlermeldung?

cr1zz · 15. April 2015

Sorry, anbei das Script ;)

Option Explicit


Sub ******_bereinigen()

    Const Version_******_bereinigen = "03.02.2015"
    
    Const Loeschen_Absender = "_AUTOANTWORT;_AUTOREPLY;AUTO-REPLY;AUTOANTWORT;AUTOMAILER;AUTOMATISCHE-ANTWORT;AUTOMATISCHE.ANTWORT;AUTOMATISCHE_ANTWORT;AUTOREPLY;AUTOREPLYLZO;AUTORESPONDER;AUTORESPONSE;EINGANGSBESTAETIGUNG;IHRE_KREISSPARKASSE_DUESSELDORF;INFOANTWORT;KREISSPARKASSE-ANHALT-BITTERFELD;KREISSPARKASSE_PEINE;MAILGATE;MAILRESPONDER;NACHRICHTENEINGANG;NO-REPLY;NOREPLY;NORESPONSE;ODER.SPREE;POSTMASTER;REPLY.KSK_GOTHA;REPLYINFO;SPARKASSE;SPARKASSE-GENGENBACH;ZUSTELLBESTAETIGUNG"
    Const Loeschen_Betreff = "AUTOREPLY;AUTOMATISCHE;DIESE MAIL WIRD AUTOMATISCH ERSTELLT;BESTÄTIGUNGSMAIL;EINGANGSBESTÄTIGUNG;EMPFANGSBESTÄTIGUNG"
    
    Dim Quellordner As MAPIFolder
    Dim Ziel_1_Anmeldung As MAPIFolder
    Dim Ziel_2_Tagungsband As MAPIFolder
    Dim Ziel_3_Absage As MAPIFolder
    Dim Ziel_4_News_Anmeldung As MAPIFolder
    Dim Ziel_5_News_Abmeldung As MAPIFolder
    Dim Ziel_6_Autoresponder As MAPIFolder
    Dim Ziel_7_Loeschen As MAPIFolder
    Dim Ziel_8_Manuell As MAPIFolder
    Dim EMail
    Dim Absender As String
    Dim Betreff As String
    Dim Meldung As String
    Dim Benutzername As String
    
    On Error GoTo Err_Autoresponder_aus_******_loeschen

    ' ---  Intitalisierungen  ---
    Benutzername = " - " & Application.GetNamespace("MAPI").CurrentUser.AddressEntry.GetExchangeUser.Alias
    On Error Resume Next
    Set Quellordner = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***")
    If Err.Number <> 0 Then
        Benutzername = " - " & Application.GetNamespace("MAPI").CurrentUser.Name
    Set Quellordner = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***")
    End If
    Set Ziel_1_Anmeldung = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("1_Veranstaltung Anmeldung")
    Set Ziel_2_Tagungsband = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("2_Veranstaltung Tagungsband")
    Set Ziel_3_Absage = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("3_Veranstaltung Absage")
    Set Ziel_4_News_Anmeldung = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("4_Nachrichtenverteiler Anmeldung")
    Set Ziel_5_News_Abmeldung = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("5_Nachrichtenverteiler Abmeldung")
    Set Ziel_6_Autoresponder = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("6_Autoresponder")
    Set Ziel_7_Loeschen = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("7_Löschen")
                        ' *** Diesen Ordner gibt es nur vorübergehend, um das Verfahren zu testen.
    Set Ziel_8_Manuell = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("8_Manuell")
    
    ' ---  Workflow  ---
    Call Auto_Eingangsbestaetigung_loeschen(Quellordner)
    Do While Quellordner.Items.Count > 0
        For Each EMail In Quellordner.Items
            Betreff = EMail.Subject
'            Absender = ""
'            On Error Resume Next
'            Call Get_SenderName_by_EMailAdress(EMail.SenderEmailAddress, Absender, Meldung)
'            Absender = EMail.Sender(1)
            If InStr(Betreff, "***.*** Nachrichtenverteiler: ANMELDUNG") > 0 Then
                EMail.Move Ziel_4_News_Anmeldung
            ElseIf InStr(Betreff, "***.*** Nachrichtenverteiler: ABMELDUNG") > 0 Then
                EMail.Move Ziel_5_News_Abmeldung
            ElseIf InStr(Betreff, "ANMELDUNG") > 0 Then
                EMail.Move Ziel_1_Anmeldung
            ElseIf InStr(Betreff, "BESTELLUNG kostenloser TAGUNGSBAND") > 0 Then
                EMail.Move Ziel_2_Tagungsband
            ElseIf InStr(Betreff, "TAGUNGSBAND") > 0 Then
                EMail.Move Ziel_2_Tagungsband
            ElseIf InStr(Betreff, "ABSAGE") > 0 Then
                EMail.Move Ziel_3_Absage
            ElseIf InStr(Betreff, "AUTO") > 0 Then
                EMail.Move Ziel_6_Autoresponder
            ElseIf InStr(Betreff, "Rückkehr") > 0 Then
                EMail.Move Ziel_6_Autoresponder
            ElseIf InStr(Betreff, "Abwesenheit") > 0 Then
                EMail.Move Ziel_6_Autoresponder
            ElseIf InStr(Betreff, "Eingangsbestätigung") > 0 Then
                EMail.Move Ziel_7_Loeschen
            ElseIf InStr(UCase(Betreff), Loeschen_Betreff) > 0 Then
                EMail.Move Ziel_7_Loeschen
            ElseIf InStr(UCase(Absender), "_AUTOANTWORT") > 0 Or InStr(UCase(Absender), "_AUTOREPLY") > 0 _
                                                              Or InStr(UCase(Absender), "AUTO-REPLY") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOMAILER") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOMATISCHE-ANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOMATISCHE.ANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOMATISCHE_ANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOREPLY") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOREPLYLZO") > 0 _
                                                              Or InStr(UCase(Absender), "AUTORESPONDER") > 0 _
                                                              Or InStr(UCase(Absender), "AUTORESPONSE") > 0 _
                                                              Or InStr(UCase(Absender), "EINGANGSBESTAETIGUNG") > 0 _
                                                              Or InStr(UCase(Absender), "IHRE_KREISSPARKASSE_DUESSELDORF") > 0 _
                                                              Or InStr(UCase(Absender), "INFOANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "KREISSPARKASSE-ANHALT-BITTERFELD") > 0 _
                                                              Or InStr(UCase(Absender), "KREISSPARKASSE-PEINE") > 0 _
                                                              Or InStr(UCase(Absender), "MAILGATE") > 0 _
                                                              Or InStr(UCase(Absender), "MAILRESPONDER") > 0 _
                                                              Or InStr(UCase(Absender), "NACHRICHTENEINGANG") > 0 _
                                                              Or InStr(UCase(Absender), "NO-REPLY") > 0 _
                                                              Or InStr(UCase(Absender), "NOREPLY") > 0 _
                                                              Or InStr(UCase(Absender), "NORESPONSE") > 0 _
                                                              Or InStr(UCase(Absender), "ODER.SPREE") > 0 _
                                                              Or InStr(UCase(Absender), "REPLYINFO") > 0 _
                                                              Or InStr(UCase(Absender), "ZUSTELLBESTAETIGUNG") > 0 Then
                EMail.Move Ziel_7_Loeschen
            ElseIf InStr(Betreff, "Autoreply") > 0 Or InStr(Betreff, "Automatische Antwort") > 0 _
                                                   Or InStr(Betreff, "Automatische Mail") > 0 _
                                                   Or InStr(Betreff, "Vielen Dank für Ihre Nachricht, wir haben diese erhalten") > 0 _
                                                   Or InStr(Betreff, "Automatische Mailantwort") > 0 _
                                                   Or InStr(Betreff, "Automatische Benachrichtigung") > 0 _
                                                   Or InStr(Betreff, "Diese Mail wird automatisch erstellt") > 0 _
                                                   Or InStr(Betreff, "Diese Mail wurde automatisch erstellt") > 0 _
                                                   Or InStr(Betreff, "Bestätigungsmail") > 0 _
                                                   Or InStr(Betreff, "Eingangsbestätigung") > 0 _
                                                   Or InStr(Betreff, "Empfangsbestätigung") > 0 Then
                EMail.Move Ziel_6_Autoresponder
            Else
                EMail.Move Ziel_8_Manuell
            End If
        Next EMail
    Loop
    
    MsgBox ("Das Makro " & Chr(13) & Chr(10) & """***.*** bereinigen (Autoreply)"", Version " & Version_******_bereinigen & Chr(13) & Chr(10) & " wurde erogreich ausgeführt.")

Err_Autoresponder_aus_******_loeschen:
    Exit Sub
End Sub

Sub Auto_Eingangsbestaetigung_loeschen(ByVal Projectfolder As MAPIFolder)
    
    Const Loeschliste = "_AUTOANTWORT;_AUTOREPLY;AUTO-REPLY;AUTOANTWORT;AUTOMAILER;AUTOMATISCHE-ANTWORT;AUTOMATISCHE.ANTWORT;AUTOMATISCHE_ANTWORT;AUTOREPLY;AUTOREPLYLZO;AUTORESPONSE;EINGANGSBESTAETIGUNG;EMPFANGSBESTAETIGUNG;INFOANTWORT;MAILGATE;MAILRESPONDER;NACHRICHTENEINGANG;NO-REPLY;NOREPLY;NORESPONSE;NORESPONSE;REPLYINFO;ZUSTELLBESTAETIGUNG"
    Const Loeschliste2 = "AUTOANTWORT;AUTOMATISCHE_ANTWORT;AUTORESPONDER;IHRE_KREISSPARKASSE-DUESSELDORF;INFOANTWORT;KREISSPARKASSE-ANHALT-BITTERFELD;KREISSPARKASSE_PEINE;ODER.SPREE;POSTMASTER;REPLY.KSK_GOTHA;SPARKASSE-GENGENBACH;SPARKASSE"
    
    Dim EMail
    Dim EMailAdressSender As String
    Dim Meldung As String
    Dim Ziel_7_Loeschen As MAPIFolder                           ' *** nur zu Testzwecken
    Dim Benutzername As String
    
    On Error GoTo Err_Auto_Eingangsbestaetigung_loeschen

    
    ' ---  Intitalisierungen  ---
    Benutzername = " - " & Application.GetNamespace("MAPI").CurrentUser.AddressEntry.GetExchangeUser.Alias
    On Error Resume Next
    Set Ziel_7_Loeschen = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("7_Löschen")
    If Err.Number <> 0 Then
        Benutzername = " - " & Application.GetNamespace("MAPI").CurrentUser.Name
    Set Ziel_7_Loeschen = Application.GetNamespace("MAPI"). _
                        Folders("Öffentliche Ordner" & Benutzername). _
                        Folders("Alle Öffentlichen Ordner"). _
                        Folders("***.***"). _
                        Folders("7_Löschen")
    End If
    ' *** Diesen Ordner gibt es nur vorübergehend, um das Verfahren zu testen.
                        
    
    
    For Each EMail In Projectfolder.Items
        Meldung = ""
        Call Get_SenderName_by_EMailAdress(EMail.SenderEmailAddress, EMailAdressSender, Meldung)
        If Meldung = "" Then
            If InStr(Loeschliste, EMailAdressSender) > 0 Then
                EMail.Delete
            ElseIf InStr(Loeschliste2, EMailAdressSender) > 0 Then         ' *** nur zu Testzwecken
                EMail.Move Ziel_7_Loeschen
            ElseIf Left(UCase(EMail.Subject), Len("AUTOREPLY")) = "AUTOREPLY" Or _
                   Left(UCase(EMail.Subject), Len("AUTOMATISCHE")) = "AUTOMATISCHE" Or _
                   Left(UCase(EMail.Subject), Len("DIESE MAIL WIRD AUTOMATISCH ERSTELLT")) = "DIESE MAIL WIRD AUTOMATISCH ERSTELLT" Or _
                   Left(UCase(EMail.Subject), Len("BESTÄTIGUNGSMAIL")) = "BESTÄTIGUNGSMAIL" Or _
                   InStr(UCase(EMail.Subject), "EINGANGSBESTÄTIGUNG") > 0 Or _
                   InStr(UCase(EMail.Subject), "EMPFANGSBESTÄTIGUNG") > 0 Then
                EMail.Move Ziel_7_Loeschen
            End If
        End If
    Next EMail

Err_Auto_Eingangsbestaetigung_loeschen:
    Exit Sub

End Sub

Sub Get_SenderName_by_EMailAdress(ByVal EMailAdresse As String, _
                              ByRef SenderName As String, _
                              ByRef Meldung As String)
    '--------------------------------------------------------------------
    ' Die Funktion liefert den Namensteil aus der E-Mail Adresse zurück.
    '--------------------------------------------------------------------
    
    On Error GoTo Err_Get_SenderName_by_EMailAdress
    
    If InStr(1, EMailAdresse, "@") > 0 Then
        SenderName = Trim(UCase(Left(EMailAdresse, InStr(1, EMailAdresse, "@") - 1)))
    Else
        SenderName = ""
        Meldung = "Aus der E-Mail Adresse " & EMailAdresse & " kann kein Absendername extrahiert werden."
    End If
    
    
Err_Get_SenderName_by_EMailAdress:
    Exit Sub
    
End Sub

Beim Ausführen dieses Scriptes, hängt Outlook sich auf.

Wurde auch schon mit Adminrechten getestet => gleiches Ergebnis.

Danke im Voraus.

zahni · 15. April 2015

Wie jetzt: Du hast doch ganz oben noch geschrieben, dass es mit "Adminrechten" geht. Unten nun nicht mehr?

Ansonsten musst Du wohl im Script eine paar Log-Ausgaben erzeugen, damit die Stell findest, bei der Outlook aussteigt.

Sunny61 · 15. April 2015

Man kann das IMHO auch debuggen, bzw. mit F9 einen Haltepunkt setzen und anschließend Zeile für Zeile F8 weitergehen. Irgendwann fliegt dir das dann um die Ohren.

Übrigens, ganz schlechte Konstellation in diesem Teil hier:

On Error GoTo Err_Autoresponder_aus_******_loeschen

' --- Intitalisierungen ---
Benutzername = " - " & Application.GetNamespace("MAPI").CurrentUser.AddressEntry.GetExchangeUser.Alias
On Error Resume Next
Set Quellordner = Application.GetNamespace("MAPI"). _
Folders("Öffentliche Ordner" & Benutzername). _
Folders("Alle Öffentlichen Ordner"). _
Folders("***.***")
If Err.Number <> 0 Then
Benutzername = " - " & Application.GetNamespace("MAPI").CurrentUser.Name
Set Quellordner = Application.GetNamespace("MAPI"). _
Folders("Öffentliche Ordner" & Benutzername). _
Folders("Alle Öffentlichen Ordner"). _
Folders("***.***")
End If

Zuerst ein On Error GoTo, dann mit On Error Resume Next alle Fehler übergehen und anschließend wird die Fehlernummer abgefragt.

Und in der sog. Fehlerbehandlung wird auch nur ein Exit Sub angewandt, d.h. es wird beendet. Lass dir doch an der Stelle die Fehlermeldung ausgeben. Dein Code:

Err_Autoresponder_aus_******_loeschen:
Exit Sub
End Sub

Mein Code:

Exit_Autoresponder_aus_******_loeschen:
   Exit Sub
Err_Autoresponder_aus_******_loeschen:
   MSgBox "Fehler: " & err.Number & " " & err.Description & " Autoresponder_aus_******_loeschen"
   Resume Exit_Exit_Autoresponder_aus_******_loeschen
End Sub

Gibt es einen Fehler, wird per Messagebox eine Fehlernummer mit Beschreibung ausgegeben. Ebenfalls steht die auslösende Sub mit dabei. Bau das mal in das bestehende Makro mit ein und mach einen Test. bearbeitet 15. April 2015 von Sunny61

cr1zz · 15. April 2015

Sorry, da war ich etwas vorschnell. Auch mit Adminrechten funktioniert das nicht.

@Sunny61: Vielen Dank für das Snippet. Habe es eingebaut und mit F8 bin ich das Script durchgegangen.

Leider durchläuft er immer wieder die folgende Schleife:

' ---  Workflow  ---
    Call Auto_Eingangsbestaetigung_loeschen(Quellordner)
    Do While Quellordner.Items.Count > 0
        For Each EMail In Quellordner.Items
            Betreff = EMail.Subject
'            Absender = ""
'            On Error Resume Next
'            Call Get_SenderName_by_EMailAdress(EMail.SenderEmailAddress, Absender, Meldung)
'            Absender = EMail.Sender(1)
            If InStr(Betreff, "****** Nachrichtenverteiler: ANMELDUNG") > 0 Then
                EMail.Move Ziel_4_News_Anmeldung
            ElseIf InStr(Betreff, "****** Nachrichtenverteiler: ABMELDUNG") > 0 Then
                EMail.Move Ziel_5_News_Abmeldung
            ElseIf InStr(Betreff, "ANMELDUNG") > 0 Then
                EMail.Move Ziel_1_Anmeldung
            ElseIf InStr(Betreff, "BESTELLUNG kostenloser TAGUNGSBAND") > 0 Then
                EMail.Move Ziel_2_Tagungsband
            ElseIf InStr(Betreff, "TAGUNGSBAND") > 0 Then
                EMail.Move Ziel_2_Tagungsband
            ElseIf InStr(Betreff, "ABSAGE") > 0 Then
                EMail.Move Ziel_3_Absage
            ElseIf InStr(Betreff, "AUTO") > 0 Then
                EMail.Move Ziel_6_Autoresponder
            ElseIf InStr(Betreff, "Rückkehr") > 0 Then
                EMail.Move Ziel_6_Autoresponder
            ElseIf InStr(Betreff, "Abwesenheit") > 0 Then
                EMail.Move Ziel_6_Autoresponder
            ElseIf InStr(Betreff, "Eingangsbestätigung") > 0 Then
                EMail.Move Ziel_7_Loeschen
            ElseIf InStr(UCase(Betreff), Loeschen_Betreff) > 0 Then
                EMail.Move Ziel_7_Loeschen
            ElseIf InStr(UCase(Absender), "_AUTOANTWORT") > 0 Or InStr(UCase(Absender), "_AUTOREPLY") > 0 _
                                                              Or InStr(UCase(Absender), "AUTO-REPLY") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOMAILER") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOMATISCHE-ANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOMATISCHE.ANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOMATISCHE_ANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOREPLY") > 0 _
                                                              Or InStr(UCase(Absender), "AUTOREPLYLZO") > 0 _
                                                              Or InStr(UCase(Absender), "AUTORESPONDER") > 0 _
                                                              Or InStr(UCase(Absender), "AUTORESPONSE") > 0 _
                                                              Or InStr(UCase(Absender), "EINGANGSBESTAETIGUNG") > 0 _
                                                              Or InStr(UCase(Absender), "IHRE_KREISSPARKASSE_DUESSELDORF") > 0 _
                                                              Or InStr(UCase(Absender), "INFOANTWORT") > 0 _
                                                              Or InStr(UCase(Absender), "KREISSPARKASSE-ANHALT-BITTERFELD") > 0 _
                                                              Or InStr(UCase(Absender), "KREISSPARKASSE-PEINE") > 0 _
                                                              Or InStr(UCase(Absender), "MAILGATE") > 0 _
                                                              Or InStr(UCase(Absender), "MAILRESPONDER") > 0 _
                                                              Or InStr(UCase(Absender), "NACHRICHTENEINGANG") > 0 _
                                                              Or InStr(UCase(Absender), "NO-REPLY") > 0 _
                                                              Or InStr(UCase(Absender), "NOREPLY") > 0 _
                                                              Or InStr(UCase(Absender), "NORESPONSE") > 0 _
                                                              Or InStr(UCase(Absender), "ODER.SPREE") > 0 _
                                                              Or InStr(UCase(Absender), "REPLYINFO") > 0 _
                                                              Or InStr(UCase(Absender), "ZUSTELLBESTAETIGUNG") > 0 Then
                EMail.Move Ziel_7_Loeschen
            ElseIf InStr(Betreff, "Autoreply") > 0 Or InStr(Betreff, "Automatische Antwort") > 0 _
                                                   Or InStr(Betreff, "Automatische Mail") > 0 _
                                                   Or InStr(Betreff, "Vielen Dank für Ihre Nachricht, wir haben diese erhalten") > 0 _
                                                   Or InStr(Betreff, "Automatische Mailantwort") > 0 _
                                                   Or InStr(Betreff, "Automatische Benachrichtigung") > 0 _
                                                   Or InStr(Betreff, "Diese Mail wird automatisch erstellt") > 0 _
                                                   Or InStr(Betreff, "Diese Mail wurde automatisch erstellt") > 0 _
                                                   Or InStr(Betreff, "Bestätigungsmail") > 0 _
                                                   Or InStr(Betreff, "Eingangsbestätigung") > 0 _
                                                   Or InStr(Betreff, "Empfangsbestätigung") > 0 Then
                EMail.Move Ziel_6_Autoresponder
            Else
                EMail.Move Ziel_8_Manuell
            End If
        Next EMail
    Loop

Was mache ich hier falsch?

zahni · 15. April 2015

"Do While Quellordner.Items.Count > 0" Vielleicht wird Quellordner.Items.Count niemals = 0 ?

Die Schleife (While) finde ich überhaupt etwas überflüssig. Die For-Schleife durchläuft doch schon alle Einträge.

Sunny61 · 15. April 2015

Kannst Du das nicht mit einer Transportregel auf dem Exchange direkt erschlagen?

daabm · 16. April 2015

Zahni hat recht :) .Count ist entweder Null, dann wird die Schleife gar nicht durchlaufen. Oder es ist größer Null, dann wird die Schleife ewig durchlaufen, da .Count sich nicht ändert, solange Quellordner nicht neu instanziiert wird.

Anmelden

Office 2010 Makros - Ohne Adminrechte nicht ausfürhbar

Empfohlene Beiträge

cr1zz 0

Link zu diesem Kommentar

Sunny61 806

Link zu diesem Kommentar

cr1zz 0

Link zu diesem Kommentar

zahni 550

Link zu diesem Kommentar

Sunny61 806

Link zu diesem Kommentar

cr1zz 0

Link zu diesem Kommentar

zahni 550

Link zu diesem Kommentar

Sunny61 806

Link zu diesem Kommentar

daabm 1.334

Link zu diesem Kommentar

Schreibe einen Kommentar

Menu

Aktivitäten