Help with opening Outlook VBA via access

[gojets1721]

Bit of an odd one...I use the below code to pull up Outlook and search something in the search bar. It works well except for one odd quirk.

Sub FilterOutlook(searchString As String)

Const olMaximized = 0
Dim app As Outlook.Application

On Error Resume Next

Set app = GetObject(, "Outlook.Application")

If app Is Nothing Then
    MsgBox "Please open Outlook."
Else
    app.ActiveExplorer.WindowState = olMaximized
    
    app.ActiveExplorer.Search searchString, olSearchScopeAllFolders
    
    Set app = Nothing
    
End If
End Sub

Ideally, when the code is executed by the user, then Outlook will pull up immediately on the user's screen (please note: Outlook must already be open for this code to work or else the user gets a message box)

If the Outlook is minimized, then it works perfectly. The user executes the code and then Outlook pulls up.

However, if Outlook is maximized, but simply has another screen in front of it (like Chrome for instance), then Outlook doesn't open in front of Chrome. It'll still search fine, but the user needs to click on the Outlook icon to get to it or minimize whatever is in front (like the Chrome)

Curious if there's a way around that (maybe not). It's not a huge issue but it would be nice if Outlook always pulled up, whether it was minimized or not.

 

[theDBguy]

May have to go with API calls...

 

[gojets1721]

Like to minimize chrome, other apps?

 

[theDBguy]

Like to minimize chrome, other apps?

More like to bring Outlook to the front.

SetForegroundWindow function (winuser.h) - Win32 apps

Brings the thread that created the specified window into the foreground and activates the window.

learn.microsoft.com