Inbox van Outlook inlezen via VBA

Status
Niet open voor verdere reacties.
S

sanders1969

Gebruiker
Lid geworden
29 dec 2018
Berichten
243
Weet iemand toevallig hoe je alleen de Inbox van Outlook kan inlezen?
Ik heb in Google diverse code gevonden om de folders binnen de Inbox te lezen maar Inbox zelf kan ik niet vinden ;-(
Onderstaande code had ik gehoopt de Inbox tegen te komen maar zag dat alleen de foldernamen.
Het zal vast iets makkelijks zijn maar ik zie het even niet meer...

Code: 
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As NameSpace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant

    On Error GoTo OutlookFolderInlezenErr
    
    Set OutlookApp = New Outlook.Application
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    For i = 1 To 100
        Debug.Print "Mapnaam: " & OutlookNamespace.GetDefaultFolder(olFolderInbox).folders(i)
    'Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).folders(2)
    Next i
    
    For Each item In Folder.Items
    
        strID = item.EntryID
        strOnderwerp = item.Subject
        strTijd = item.ReceivedTime
        strNaam = item.SenderName
        strOmschrijving = item.Body
    Next item
    
    OutlookFolderInlezen = True
    
    Set Folder = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookApp = Nothing
    Set OutlookMail = Nothing

OutlookFolderInlezenErr:
If Err.number > 0 Then
    Err.Clear
End If
 
Kwestie van iets te ver doorrijden...
Code: 
    Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)
 
Ha Octafish, het werkt!
Alleen in mijn inbox heb e-mails van 2010 jaja wie bewaard die heeft wat en ik ben zo'n authist die niets weggooid haha...
Nu begint ie helemaal onderaan dus bij de e-mails van 2010.
Hoe krijg ik dat ie begint bij de nieuwste ipv de oudste?
 
Hoi Octafish

Even snel gefikst en code verdiend geen schoonheidsprijs maar moet snel door...
Nog bedankt voor het opsturen van de oplossing!

Code: 
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)
    lngMax = Folder.Items.Count
    For iRow = 0 To lngMax
        j = lngMax - iRow
        strTijd = Folder.Items(j).ReceivedTime
        strID = Folder.Items(j).EntryID
        strOnderwerp = Folder.Items(j).Subject
        strNaam = Folder.Items(j).SenderName
        strOmschrijving = Folder.Items(j).Body
        
    Next iRow
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan