Jump to content

Office 2010 Makros - Ohne Adminrechte nicht ausfürhbar

cr1zz

Von cr1zz
in Windows Forum — Scripting

Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

cr1zz Explorer

cr1zz   0

Geschrieben
Geschrieben

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.

Link zu diesem Kommentar
Sunny61 Grand Master

Sunny61   806

Geschrieben
Geschrieben

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?

Link zu diesem Kommentar
cr1zz Explorer

cr1zz   0

Geschrieben
  • Autor
Geschrieben

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.

Link zu diesem Kommentar
Sunny61 Grand Master

Sunny61   806

Geschrieben
Geschrieben (bearbeitet)

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 von Sunny61
Link zu diesem Kommentar
cr1zz Explorer

cr1zz   0

Geschrieben
  • Autor
Geschrieben

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?

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
Zurück zur Übersicht


×
×
  • Neu erstellen...