Outlook 2019 Macro GoTo user defined search folder

[Witzker]

Hi,

I want to speed up workflow in OL 2019 GERMAN version

I have this macro to goto inbox

Sub GoTo_Posteingang()
Set Application.ActiveExplorer.CurrentFolder = Session.GetDefaultFolder(olFolderInbox)
End Sub

How to modify this to GoTo the use defined seachfolder:

Hope for help

PS:
I tried with this macro to find the right name, but this does not work:

Sub ListSearchFolders()
    Dim myNamespace As NameSpace
    Dim mySearchFolders As Folders
    Dim myFolder As Folder
    Dim myItems As Items
    Dim myItem As Object
    Dim msgBody As String
   
    'Get the default Inbox folder and the search folders in it
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
    Set mySearchFolders = myFolder.Folders
   
    'Loop through each search folder and add its name to the message body
    For Each myFolder In mySearchFolders
        If myFolder.DefaultItemType = olMailItem And myFolder.IsSearchFolder Then
            msgBody = msgBody & vbCrLf & myFolder.Name
        End If
    Next myFolder
   
    'Create a new email message with the search folder names in the body
    Set myItems = myNamespace.GetDefaultFolder(olFolderDrafts).Items
    Set myItem = myItems.Add(olMailItem)
    myItem.To = "recipient@example.com"
    myItem.Subject = "List of Search Folders"
    myItem.Body = "The following search folders are defined in your Inbox:" & vbCrLf & msgBody
    myItem.Display
   
    'Clean up
    Set myNamespace = Nothing
    Set mySearchFolders = Nothing
    Set myFolder = Nothing
    Set myItems = Nothing
    Set myItem = Nothing
End Sub

 

[Diane Poremsky]

Are you just trying to make a list of search folders?

This might be a little more efficient:

Store.GetSearchFolders method (Outlook)

Office VBA reference topic

learn.microsoft.com

You need to replace the debug print with the email stuff, but it should be faster.

 

[Witzker]

Are you just trying to make a list of search folders?

This might be a little more efficient:

Store.GetSearchFolders method (Outlook)

Office VBA reference topic

learn.microsoft.com

You need to replace the debug print with the email stuff, but it should be faster.

THX The output was:
\\email@gmail.com\Suchordner\Ungelesene Nachrichten

What now to put in this macro to go there?

Sub GoTo_Ungelesene_Nachrichten()

Set Application.ActiveExplorer.CurrentFolder = Session.GetDefaultFolder(olFolderInbox)

End Sub

I tried this but the folder stay the same as it was when I satartd the macro

Sub GoToSearchFolder()
    Dim myFolder As Folder
    Dim myNamespace As NameSpace
    Dim mySearchFolder As searchFolder
    
    Set myNamespace = Application.GetNamespace("MAPI")
    Set mySearchFolder = myNamespace.GetSearchFolders().Item("Ungelesene Nachrichten")
    
    If Not mySearchFolder Is Nothing Then
        Set myFolder = mySearchFolder.Folder
        Set Application.ActiveExplorer.CurrentFolder = myFolder
    Else
        MsgBox "Search folder not found."
    End If
End Sub

Pls help to get this correct
Many THX

 

[Diane Poremsky]

So before or after the macro makes the search folder, you want to select the inbox? (The selected folder won't matter for search folders - they aren't in the inbox.)

If you want to switch to the inbox, use .Display

Session.GetDefaultFolder(olFolderInbox).display

or in your code:
myFolder.display

 

[Witzker]

NO! NO!
You total misunderstood my demand!
Sorry !
So I try again to explain what the desired macro should do

following this macro which worx:

Sub GoTo_Ungelesene_Nachrichten()

Set Application.ActiveExplorer.CurrentFolder = Session.GetDefaultFolder(olFolderInbox)

End Sub

I just want a new macro that sets the focus not in the INBOX! Instead of the INBOX, the existing standard Search Folder ("Ungelesene Nachrichten")
Should be adressed

so instead of GOTO INBOX - GOTO Seachfolder ("Ungelesene Nachrichten")

That's ALL
I hope I have now cleared me demand

many THX for the hint HowTo

 

[Witzker]

I found This, But

Sub EnumerateSearchFolderItems(ByVal sSearchFolderName As String)
    Dim oOutlook              As Object    'Outlook.Application
    Dim oNameSpace            As Object    'Outlook.Namespace
    Dim oStores               As Object    'Outlook.Stores
    Dim oStore                As Object    'Outlook.Store
    Dim oFolder               As Object    'Outlook.folder
    Dim i                     As Long

    On Error Resume Next
    Set oOutlook = GetObject(, "Outlook.Application")        'Bind to existing instance of Outlook
    If Err.Number <> 0 Then        'Could not get instance, so create a new one
        Err.Clear
        Set oOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo Error_Handler
    Set oNameSpace = oOutlook.GetNamespace("MAPI")
    Set oStores = oNameSpace.Session.Stores
    For Each oStore In oStores
        Set oFolder = oStore.GetSearchFolders.Item(sSearchFolderName)
        If Not oFolder Is Nothing Then
            With oFolder.items
                For i = 1 To .Count
                    Debug.Print i, .Item(i).SenderName, .Item(i).Subject, .Item(i).ReceivedTime, .Item(i).Categories
                Next i
            End With
            Exit For
        End If
    Next
Error_Handler_Exit:
    On Error Resume Next
    If Not oFolder Is Nothing Then Set oFolder = Nothing
    If Not oStore Is Nothing Then Set oStore = Nothing
    If Not oStores Is Nothing Then Set oStores = Nothing
    If Not oNameSpace Is Nothing Then Set oNameSpace = Nothing
    If Not oOutlook Is Nothing Then Set oOutlook = Nothing
    Exit Sub
 
Error_Handler:
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: EnumerateSearchFolderItems" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Sub

I do not understand how to modify to just GOTO my Seachfolder ("Ungelesene Nachrichten")

 

[Witzker]

Any news?
It sounds very simple jut to have a macro that goes to a search folder

But no solution?