Andere inbox behalve default inbox selecteren

Status
Niet open voor verdere reacties.
S

sanders1969

Gebruiker
Lid geworden
29 dec 2018
Berichten
243
Ik heb in Outlook drie inboxen, de ene heet Inbox en de andere zijn twee andere e-mailadressen.
Ik heb van Octafish een methode gekregen om de Inbox in te lezen echter wil ik weten hoe ik de andere kan inlezen.

Coderegel: Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox) kan je de Inbox inlezen nogmaals hoe kan ik in de andere twee terechtkomen?

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")

    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
 
Waarschijnlijk
email@email.com veranderen naar je echte email adressen.
Code: 
Set Folder = OutlookNamespace.Folders("email@email.com").GetDefaultFolder(olFolderInbox).Items
 
Dankje gast0660 alleen loopt het vast op .GetDefaultFolder(olFolderInbox)
Ik heb al een methode geschreven die de e-mailbox inlees echter niet de inbox van dat e-mailaccount.
Stel ik heb een account die info@BEDRIJFSNAAM.nl
In Outlook zie je dat account en in dat account heb je een folder genaamd Inbox.
Als ik de bedrijfsnaam account heb gevonden dan kan ik de e-mails opvragen via code: Set Folder = OutlookNamespace.folders(iFolder)
Alleen de e-mails staan in een folder in dit account en die kan ik nu niet tackelen.
Ik hoopte dat: .GetDefaultFolder(olFolderInbox) de oplossing zou bieden maar deze liep vast.

Code: 
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As NameSpace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim iFolder As Integer
    
    On Error GoTo OutlookFolderInlezenErr
    
    Set OutlookApp = New Outlook.Application
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    
    For i = 1 To 10
        strEffe = OutlookNamespace.folders(i)
        If InStr(strEffe, "BEDRIJFSNAAM") > 0 Then
            iFolder = i
            Exit For
        End If
    Next i
    
    If iFolder = 0 Then
        Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)
    Else
        'Set Folder = OutlookNamespace.folders(iFolder)
        Set Folder = OutlookNamespace.folders(iFolder).GetDefaultFolder(olFolderInbox).Items
    End If
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan