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)

Frage Entwicklung VB for Applications

Mitglied: ahstax

ahstax (Level 2) - Jetzt verbinden

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

Outlook & Mail
E-Mail Verlauf im Outlook 2007 anzeigen lassen..?
Frage von Mr.HeisenbergOutlook & Mail2 Kommentare

Hi, wenn ich im Outlook 2007 mehrere Ordner mit Unterordner habe und ich über die Suchfunktion nach einer E-Mail ...

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

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 2 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 3 TagenWebbrowser7 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 3 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Digitiales Fernsehen

Apple TV: Amazon Prime App ist verfügbar

Information von Frank vor 4 TagenDigitiales Fernsehen4 Kommentare

Die Amazon Prime Video App kann ab sofort auf einem Apple TV ab der 3 Generation installiert werden. Einfach ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...