gelöst E-Mail im Lesebereich anzeigen (VBA)
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
wird die fragliche Mail zwar angezeigt, aber in einem neuen, geöffneten Fenster.
Kennt jemand das Problem? Was muss ich machen/ändern?
Ach ja, kann ich irgendwie diese "hässlichen" Chr(9) und Chr(13) vermeiden?
Danke schon jetzt!
Grüße,
Andreas
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
01.
...
02.
While lastBestaetigteMailNum = 0 And j <= NumItems
03.
04.
Set CurrentItem = objInbox.Items(j)
05.
06.
If j > 1 And objInbox.Items(j).EntryID = InhaltStr Then
07.
08.
lastBestaetigteMailNum = j
09.
10.
lastBestaetigteMailSubject = objInbox.Items(j).Subject
11.
lastBestaetigteMailSenderName =objInbox.Items(j).SenderName
12.
lastBestaetigteMailReceivedTime = objInbox.Items(j).ReceivedTime
13.
lastBestaetigteEntryMailID = objInbox.Items(j).EntryID
14.
15.
16.
' hier wird die Mail angezeigt
17.
18.
Set myMailItem = CurrentItem
19.
myMailItem.Display
20.
21.
22.
Text = _
23.
"Bestätigungsversand wird ab der E-Mail von" & Chr(13) & Chr(13) & _
24.
Chr(9) & lastBestaetigteMailSenderName & Chr(13) & Chr(13) & "mit dem Betreff" & Chr(13) & Chr(13) & _
25.
Chr(9) & lastBestaetigteMailSubject & Chr(13) & Chr(13) & "Empfangen am " & Chr(13) & Chr(13) & _
26.
Chr(9) & lastBestaetigteMailReceivedTime & Chr(13) & Chr(13) & "durchgeführt."
27.
28.
Antwort = MsgBox(Text, vbOKCancel, "Versand starten?")
29.
30.
31.
ElseIf j = 1 And objInbox.Items(j).EntryID = _
32.
InhaltStr Then
33.
34.
Text = "Keine neuen zu bestätigende E-Mails vorhanden!"
35.
36.
MsgBox (Text), vbInformation, "Keine neuen E-Mails vorhanden!"
37.
38.
bolKeineNeue = True
39.
40.
lastBestaetigteMailNum = j
41.
42.
End If
43.
44.
j = j + 1
45.
46.
Wend
47.
...Kennt jemand das Problem? Was muss ich machen/ändern?
Ach ja, kann ich irgendwie diese "hässlichen" Chr(9) und Chr(13) vermeiden?
Danke schon jetzt!
Grüße,
Andreas
2 Antworten
- LÖSUNG Gertruede schreibt am 12.09.2011 um 15:24:50 Uhr
- LÖSUNG ahstax schreibt am 12.09.2011 um 16:04:37 Uhr
LÖSUNG 12.09.2011 um 15:24 Uhr
Hallo Andreas,
bei dem eigentlichen Problem (mit der Fensteranzeige) kann ich dir leider auch nicht helfen.
Aber zumindestens deine andere Frage kann ich Dir beantworten:
chr(9) = vbTab
chr(13) = vbCr
Falls Du mal Zeilenumbruch mit Rücklauf auf Zeilenpos.1 brauchst:
chr(13) & Chr(10) = vbCrLf
Grüße
G.
bei dem eigentlichen Problem (mit der Fensteranzeige) kann ich dir leider auch nicht helfen.
Aber zumindestens deine andere Frage kann ich Dir beantworten:
chr(9) = vbTab
chr(13) = vbCr
Falls Du mal Zeilenumbruch mit Rücklauf auf Zeilenpos.1 brauchst:
chr(13) & Chr(10) = vbCrLf
Grüße
G.
LÖSUNG 12.09.2011 um 16:04 Uhr
Herzlichen Dank für Deine Antwort!
Im Allgemeinen scheint das, was ich mir hier wünsche, nicht weit verbreitet zu sein....
Dabei soll doch eigentlich im Prinzip nur ein "Mausklick ohne Maus" auf eine Mail im Posteingang abgebildet werden...
Deswegen ist weiterhin jeder erne eingeladen, mich mit guten Hinweisen zu überschütten...!
Grüße,
Andreas
Im Allgemeinen scheint das, was ich mir hier wünsche, nicht weit verbreitet zu sein....
Dabei soll doch eigentlich im Prinzip nur ein "Mausklick ohne Maus" auf eine Mail im Posteingang abgebildet werden...
Deswegen ist weiterhin jeder erne eingeladen, mich mit guten Hinweisen zu überschütten...!
Grüße,
Andreas
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte
