How to maximize and set focus to foreground of the opened outlook email message?

[Waleed_wwn]

I am using below code to open an email item (with specific conditions).
I need after that to maximize the opened outlook email window and set focus for it to be foreground.

Option Explicit
    Option Compare Text
    Public WithEvents MyItem As Outlook.MailItem
    Public EventsDisable As Boolean

    Private Sub Application_ItemLoad(ByVal Item As Object)
        If EventsDisable = True Then Exit Sub
        If Item.Class = olMail Then
            Set MyItem = Item
        End If
    End Sub

    Private Sub myItem_Open(Cancel As Boolean)
        EventsDisable = True
            If MyItem.Subject = "Auto Plan" And Application.ActiveExplorer.CurrentFolder.Name = "MyTemplate" Then
       'Code to maximize the opened outlook email window and set focus for it to be foreground
            End If
        EventsDisable = False
    End Sub

the following Windows API function,But I do not know how to use

#If Win64 Then
        Private Declare PtrSafe Function SetForegroundWindow Lib "user32" _
                   (ByVal hWnd As LongPtr) As LongPtr
    #Else
        Private Declare Function SetForegroundWindow Lib "user32" _
                   (ByVal hWnd As Long) As Long
    #End If
    
    Public Sub Bring_to_front()
        Dim setFocus As Long
        setFocus = SetForegroundWindow(xxxxxxx.hWnd)
    End Sub

thanks for any useful comments and answer.