Hallo,

ich habe ein Makro, welches mir doppelte Mails erkennen soll. Weil das Makro eine gewisse Zeit beschäftigt ist, habe ich ein Kontroll-Popup eingebaut. Das funktioniert auch problemlos. Allerdings friert das Fenster nach einer gewissen Zeit ein. In der Titelleiste erscheint dann "keine Rückmeldung". Das Makro läuft aber korrekt weiter und kommt auch zum Ende! Nur ist damit die Anzeige des Popup leider unnütz, wenn ich nicht erkennen kann bei welcher Mail die Verarbeitung ist.

Ich habe ein Beispiel: es sind 1963 Mails zu durchsuchen. Die Anzeige bleibt bei Satz 132 oder 148 oder einer anderen Angabe mit "keine Rückmeldung" stehen.

Nehme ich die If-Schleife raus, läuft die Anzeige wie erwartet durch bis zum Ende ohne Einfrieren.

Hat jemand eine Idee?

Sub pruef_mail(F As MAPIFolder)

UF3.Caption = "in " & F.items.Count & " Mails doppelte suchen ..."
zahl = 1
UF3.Show

For Each i In F.items
    If betreff = i.Subject _
    And absender = i.sender.name _
    And text = i.Body _
    And zeitpunkt = Mid(i.SentOn, 1, 16) _
    Then
       dopp = dopp + 1
       txt = txt & i.ReceivedTime & "   "
       i.Delete
    Else
       betreff = i.Subject
       absender = i.sender.name
       text = i.Body
       zeitpunkt = Mid(i.SentOn, 1, 16)
    End If
    
    UF3.nachricht = "geprüfte Mails: " & zahl & vbTab & vbTab & "doppelt: " & dopp
    UF3.Repaint
    zahl = zahl + 1
Next

txt = txt & vbCr
UF3.Hide
End Sub