Hallo miteiannder,

ich habe ein OL-Exchange-Postfach mit vielen, vielen E-Mails.
Ein Code arbeitet nacheinander diese E-Mails durch. Der Code sucht dazu eine als "letzte bearbeitete E-Mail" gespeicherte E-Mail, genauer deren Mail-ID, um ab der auf diese Mail folgenden (nächst jüngeren) E-Mail mit der neuen Bearbeitung zu beginnen. Vor der neuen Bearbeitung erhält der User eine Mitteilung, dass die Mails, ab der und der jetzt bearbeitet werden.

Soweit, so gut, funktioniert.

Ich würde nun gerne diese Mail, ab der die Bearbeitung weiter geführtwird, oder die letzte bearbeitete, gerne im Vorschaufenster (Lesebereich) anzeigen lassen. Mit

**********************<SNIP>*********************

...
    While lastBestaetigteMailNum = 0 And j <= NumItems
         
        Set CurrentItem = objInbox.Items(j)
        
            If j > 1 And objInbox.Items(j).EntryID = InhaltStr Then
              
                lastBestaetigteMailNum = j
                
                lastBestaetigteMailSubject = objInbox.Items(j).Subject
                lastBestaetigteMailSenderName =objInbox.Items(j).SenderName
                lastBestaetigteMailReceivedTime = objInbox.Items(j).ReceivedTime
                lastBestaetigteEntryMailID = objInbox.Items(j).EntryID
                

' hier wird die Mail angezeigt

                Set myMailItem = CurrentItem
                myMailItem.Display


                Text = _
                    "Bestätigungsversand wird ab der E-Mail von" & Chr(13) & Chr(13) & _
                    Chr(9) & lastBestaetigteMailSenderName & Chr(13) & Chr(13) & "mit dem Betreff" & Chr(13) & Chr(13) & _
                    Chr(9) & lastBestaetigteMailSubject & Chr(13) & Chr(13) & "Empfangen am " & Chr(13) & Chr(13) & _
                    Chr(9) & lastBestaetigteMailReceivedTime & Chr(13) & Chr(13) & "durchgeführt."
                
                Antwort = MsgBox(Text, vbOKCancel, "Versand starten?")
                
            
            ElseIf j = 1 And objInbox.Items(j).EntryID = _
                InhaltStr Then
            
                Text = "Keine neuen zu bestätigende E-Mails vorhanden!"
                
                MsgBox (Text), vbInformation, "Keine neuen E-Mails vorhanden!"
                
                bolKeineNeue = True
                
                lastBestaetigteMailNum = j

            End If

        j = j + 1
        
    Wend

...

**********************<SNIP>*********************

wird die fragliche Mail zwar angezeigt, aber in einem neu geöffneten Fenster.

Kennt jemand das Problem? Was muss ich machen/ändern?

Danke schon jetzt!

Grüße,
Andreas