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, 4786 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 ...

E-Mail

E-Mail Newsletter

Frage von ProtectedE-Mail7 Kommentare

Hallo, wir versenden im Monat rund 1.000 E-Mails mit unserem E-Mail Server. Leider gelangen wir oft in Spam-Ordner bei ...

Entwicklung

E-mail Textanalyse

gelöst Frage von BitconEntwicklung5 Kommentare

Hallo zusammen Ich möchte im Rahmen meiner Ausbildung zum Fachinformatiker ein Projekt für die meine Firma realisieren. Das Projekt ...

E-Mail

E-Mail Eingangsserver SSL, E-Mail Ausgangsserver TLS, warum?

gelöst Frage von JohnMcClaneE-Mail5 Kommentare

Hallo zusammen, warum wird bei GMX, AOL oder bei der Telekom beim Eingangsserver der Mails SSL verwendet und bei ...

Neue Wissensbeiträge
Exchange Server

1und1 IONOS: Probleme beim Mailversand mit Exchange

Information von reksierp vor 6 StundenExchange Server3 Kommentare

Hallo, seit Do, 17.1.19 etwa Mittags nimmt 1und1 IONOS keine Mails mehr über den Standard-Port SMTP 25 an. Nachdem ...

LAN, WAN, Wireless

Cisco Mikrotik VPN Standort Vernetzung mit dynamischem Routing

Anleitung von aqui vor 20 StundenLAN, WAN, Wireless

1. Allgemeine Einleitung Das nachfolgende Tutorial ist eine Fortführung der hier bei Administrator.de schon bestehenden VPN Tutorials und beschreibt ...

Windows Mobile

Support für Windows Mobile endet im Dezember 2019

Information von transocean vor 2 TagenWindows Mobile

Moin, Microsoft empfiehlt als Alternative den Umstieg auf iOS oder Android, wie man hier lesen kann. Gruß Uwe

Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 4 TagenInternet6 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Temporäre WLAN Verbindung für AD-Login
Frage von Christian.WidauerLAN, WAN, Wireless17 Kommentare

Hallo zusammen, ich weiß leider nicht unter welchem Begriff ich dafür suchen muss, daher habe ich bisher leider nichts ...

LAN, WAN, Wireless
Bekannte Drosselungen bei Providern ?
Frage von HenereLAN, WAN, Wireless15 Kommentare

Servus zusammen, in bereits angefangen, aber ich hoffe dass der Beitrag hier mehr Informationen bringt. Sind Portdrosselungen bzw gezielte ...

Netzwerkmanagement
Reverse Proxy für TCP und UDP Anfragen
gelöst Frage von flxklsNetzwerkmanagement14 Kommentare

Hallo zusammen, ich besitze einen Rootserver, der nur eine öffentliche IP besitzt und auf dem mehrere VMs laufen. Da ...

Windows Server
MSSQL Backup in Form von .sql einspielen
Frage von janosch12Windows Server14 Kommentare

Guten Morgen, wir verwenden das Tool SQLandFTPBackup ( ) zum sichern einiger MSSQL Datenbanken. Nun sichert das Toll die ...