Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Anzeige friert ein, kommt aber zum erfolgreichen Ende |
14.07.2020 10:09:37 |
kwu |
|
|
|
14.07.2020 11:03:34 |
Gast74565 |
|
|
|
14.07.2020 11:17:16 |
kwu |
|
|
|
14.07.2020 11:20:25 |
Gast75631 |
|
|
|
14.07.2020 11:31:21 |
kwu |
|
|
Von:
kwu |
Datum:
14.07.2020 10:09:37 |
Views:
841 |
Rating:
|
Antwort:
|
Thema:
Anzeige friert ein, kommt aber zum erfolgreichen Ende |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Anzeige friert ein, kommt aber zum erfolgreichen Ende |
14.07.2020 10:09:37 |
kwu |
|
|
|
14.07.2020 11:03:34 |
Gast74565 |
|
|
|
14.07.2020 11:17:16 |
kwu |
|
|
|
14.07.2020 11:20:25 |
Gast75631 |
|
|
|
14.07.2020 11:31:21 |
kwu |
|
|