Top-Themen

Aktuelle Themen (A bis Z)

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)

Mitglied: ahstax

ahstax (Level 2) - Jetzt verbinden

08.09.2011 um 16:27 Uhr, 4761 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

Frage von Pago159VB for Applications3 Kommentare

Hallo Kolleginnen und Kollegen, ich bin gerade dabei einige Outlook Makros zu schreiben, über die schnell Störungsmeldungen und Wartungsankündigungen ...

Exchange Server

Genaue E-Mail-Adresse anzeigen Exchange Outlook

gelöst Frage von horstigerdorschExchange Server2 Kommentare

Hallo liebe Leute, ich habe ein Problem: Auf einem Exchange 2010 Server wurden für den Benutzer X mehrere E-Mail ...

Outlook & Mail

Outlook: Weiterleiten - Absender E-Mail Adressen anzeigen

Frage von hugoooOutlook & Mail2 Kommentare

Hallo, ich habe soeben ein neues Laptop mit Office 2013 eingerichtet. Auf dem alten Laptop konnte ich eine E-Mail ...

Outlook & Mail

Kontakt nicht im Adressbuch anzeigen- Wie E-Mail "von senden"

gelöst Frage von xbast1xOutlook & Mail5 Kommentare

Hallo, durch zwei interne Firmen, habe ich vor längerer Zeit eine Subdomain angelegt. Die Outlook Kontakte der Firma 2 ...

Neue Wissensbeiträge
Datenschutz

Die Datenkrake Google verlängert ihr Arme mal wieder ein wenig, automatische Anmeldung

Tipp von magicteddy vor 5 StundenDatenschutz

Benutzer mit einem Google Account und gespeicherten Zugangsdaten werden von chrome 69 automatisch bei Google angemeldet, natürlich alles zum ...

Verschlüsselung & Zertifikate
Meine Wissenssammlung zu Bitlocker
Erfahrungsbericht von DerWoWusste vor 1 TagVerschlüsselung & Zertifikate3 Kommentare

Die Motivation für diesen Beitrag waren die vielen Posts rund um dieses Thema, die deutlich machen, wie viele Einzelaspekte ...

E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 3 TagenE-Mail11 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 3 TagenHyper-V1 Kommentar

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Heiß diskutierte Inhalte
Datenschutz
Gilt ein Ransomware-Befall als Datenpanne nach DSGVO?
Frage von MOS6581Datenschutz22 Kommentare

Moin Kollegen, wenn sich jemand Ransomware einfängt und dadurch bspw. Kundendaten verschlüsselt werden; gilt dies dann als meldepflichtige Datenpanne ...

Hardware
Sophos SG135 - Routing
gelöst Frage von Xaero1982Hardware22 Kommentare

Moin Zusammen, ich ersetze gerade nen alten Cisco DualWAN Router durch eine SG 135. Ich muss bestimmte Ziele über ...

E-Mail
Welche ist die beste E-Mail Groupware für die Zukunft?
Frage von ITCrowdSupporterE-Mail16 Kommentare

Guten Tag allerseits :) Ich möchte mich mit einer Frage heute mal an die Schwarmintelligenz wenden. Aktuell befasse ich ...

Windows 7
Mit gpedit gesetzte Richtlinien in rsop.msc nicht definiert und ausgegraut
gelöst Frage von 137006Windows 715 Kommentare

Hallo zusammen, anfangs verweise ich fairerweise daruf dass ich dieses Thema bereits im Forum angeschnitten habe, nachdem ich hier ...