Geschuffelde
Gebruiker
- Lid geworden
- 29 jan 2003
- Berichten
- 153
Hallo - ik wil een UnifiedInbox met VBA maken en vond onderstaande query.
1. Helaas heet de inbox soms "Inbox" en soms "Postvak IN" - hoe kan ik de naam toevoegen aan de txtSearch?
2. Daarnaast heb ik meerdere info mailen mailboxen en wil daarvan niet de Inbox zien. Weet iemand hoe ik de Outlook Data File met de naam "Info" kan uitsluiten in de Query?
Dank alvast!!
Johan
***************
Sub UnifiedInbox()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:Inbox"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub
1. Helaas heet de inbox soms "Inbox" en soms "Postvak IN" - hoe kan ik de naam toevoegen aan de txtSearch?
2. Daarnaast heb ik meerdere info mailen mailboxen en wil daarvan niet de Inbox zien. Weet iemand hoe ik de Outlook Data File met de naam "Info" kan uitsluiten in de Query?
Dank alvast!!
Johan
***************
Sub UnifiedInbox()
Dim myOlApp As New Outlook.Application
txtSearch = "folder:Inbox"
myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders
Set myOlApp = Nothing
End Sub