Thema Datum  Von Nutzer Rating
Antwort
Rot Eine "gemerkte" E-Mail soll mittels VBA im Lesebereich angezeigt werden.
 12.09.2011 16:10:06 Andreas Hess
NotSolved

Ansicht des Beitrags:
Von:
Andreas Hess		 Datum:
12.09.2011 16:10:06		 Views:
1907		 Rating:
     
Antwort:
  Ja
Thema:
Eine "gemerkte" E-Mail soll mittels VBA im Lesebereich angezeigt werden.

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>*********************

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
...
    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
?
1
...

**********************<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

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Eine "gemerkte" E-Mail soll mittels VBA im Lesebereich angezeigt werden.
 12.09.2011 16:10:06 Andreas Hess
NotSolved