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
|