Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema ListBox | |
|---|---|
 Screenshot zu ListBox |
ListBox-Seite mit Beispielarbeitsmappe aufrufen |
wert aus Outlook nach Excel
- wert aus Outlook nach Excel von J.Hass vom 15.09.2019 13:21:44
- AW: wert aus Outlook nach Excel - von Oberschlumpf am 15.09.2019 13:38:42
- AW: wert aus Outlook nach Excel - von Nepumuk am 15.09.2019 13:45:18
- AW: wert aus Outlook nach Excel - von Nepumuk am 15.09.2019 13:54:24
- AW: wert aus Outlook nach Excel - von J.Hass am 15.09.2019 14:10:52
- AW: wert aus Outlook nach Excel - von J.Hass am 15.09.2019 14:01:11
- AW: wert aus Outlook nach Excel - von Nepumuk am 15.09.2019 14:15:13
- AW: wert aus Outlook nach Excel - von J.Hass am 15.09.2019 14:02:48
Betrifft: wert aus Outlook nach Excel
von: J.Hass
Geschrieben am: 15.09.2019 13:21:44
Hallo
Brauch einmal Hilfe!
In Outlook wird neben dem Posteingang die Zahl der ungelesene Nachrichten angezeit.
Beispiel: Posteingang (2)= 2 ungelesene Nachricheten.
Kann man den Wert 2 (oder mehr) in eine Excel Datei anzeigen lassen?
MfG
johass
Betrifft: AW: wert aus Outlook nach Excel
von: 1713188.html
Geschrieben am: 15.09.2019 13:38:42
Hi,
ich glaub, hier findest du das Passende:
https://administrator.de/forum/excel-vba-outlook-posteingang-kennzeichnungsstatus-auslesen-262936.html
Hilfts?
Ciao
Thorsten
Betrifft: AW: wert aus Outlook nach Excel
von: 1713189.html
Geschrieben am: 15.09.2019 13:45:18
Hallo johass,
teste mal:
Public Sub Test()
Dim objOutlook As Object, objMail As Object
Dim lngCount As Long
Set objOutlook = CreateObject(Class:="Outlook.Application")
For Each objMail In objOutlook.Explorers.Item(1).CurrentFolder.Folders("Posteingang").Items
If objMail.UnRead Then lngCount = lngCount + 1
Next
Cells(1, 1).Value = lngCount
Set objOutlook = Nothing
End Sub
Die Anzahl wird in Zelle A1 der aktiven Tabelle ausgegeben.
Gruß
Nepumuk
Betrifft: AW: wert aus Outlook nach Excel
von: 1713190.html
Geschrieben am: 15.09.2019 13:54:24
Hallo,
ich noch mal, besser so:
Dim objOutlook As Object, objMail As Object
Dim lngCount As Long
Set objOutlook = CreateObject(Class:="Outlook.Application")
For Each objMail In objOutlook.GetNamespace("MAPI").GetDefaultFolder(6).Items
If objMail.UnRead Then lngCount = lngCount + 1
Next
Cells(1, 1).Value = lngCount
Set objOutlook = Nothing
End Sub
Bei der ersten Version durfte kein Ordner geöffnet sei sondern Outlook musst den "persönlichen Ordner" anzeigen.
Gruß
Nepumuk
Betrifft: AW: wert aus Outlook nach Excel
von: 1713193.html
Geschrieben am: 15.09.2019 14:10:52
Hallo Nepumuk
zweiter Code geht.
Danke für die Hilfe
Gruß joha
Betrifft: AW: wert aus Outlook nach Excel
von: 1713191.html
Geschrieben am: 15.09.2019 14:01:11
Hallo Nepumuk
leider gehts nicht.
Kanst Du mir eine Datei zusammen stellen
Gruß
Betrifft: AW: wert aus Outlook nach Excel
von: 1713194.html
Geschrieben am: 15.09.2019 14:15:13
Hallo johass,
bei mit funktioniert das:
https://www.herber.de/bbs/user/132045.xlsm
Gruß
Nepumuk
Betrifft: AW: wert aus Outlook nach Excel
von: 1713192.html
Geschrieben am: 15.09.2019 14:02:48
Hallo
leider nicht.
Gruß
Joha