Herbers Excel-Forum - das Archiv

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

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

Option Explicit

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

Betrifft: AW: wert aus Outlook nach Excel
von: 1713190.html

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.GetNamespace("MAPI").GetDefaultFolder(6).Items
        If objMail.UnRead Then lngCount = lngCount + 1
    Next
    Cells(1, 1).Value = lngCount
    Set objOutlook = Nothing
End Sub

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