Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

E-Mail im Lesebereich anzeigen (VBA)

Frage Entwicklung VB for Applications

Mitglied: ahstax

ahstax (Level 2) - Jetzt verbinden

08.09.2011 um 16:27 Uhr, 4694 Aufrufe, 2 Kommentare

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

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.
...
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
Mitglied: Gertruede
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.
Bitte warten ..
Mitglied: ahstax
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
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Aus VBA E-Mail und HTML Dokument erstellen lassen (3)

Frage von Pago159 zum Thema VB for Applications ...

Linux
gelöst E-Mail Adressen zählen (2)

Frage von plutowitsch zum Thema Linux ...

Batch & Shell
E-Mail Client für Kommandozeile (6)

Frage von Androxin zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
SSL Zertifikat für HTTPS (33)

Frage von Hendrik2586 zum Thema Verschlüsselung & Zertifikate ...

Grafikkarten & Monitore
24" oder 27" mit Full HD oder doch mehr Auflösung? (21)

Frage von brutzler zum Thema Grafikkarten & Monitore ...

Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...