Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

wert aus Outlook nach Excel


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:

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

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:

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

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

Beiträge aus dem Excel-Forum zum Thema "wert aus Outlook nach Excel"