gistfile1.vb

Private Sub Application_Reminder(ByVal Item As Object)                  'Grab the outlook reminder fire event and force reminder window to front
        If Not (Application.ActiveWindow Is Nothing) Then               'If the ActiveWindow exists
            Dim myOutlook As Object                                     'Outlook application object declaration
            Set myOutlook = GetObject(, "Outlook.Application")          'Get the outlook application object
            If myOutlook.ActiveWindow.WindowState = olMinimized Then    'If outlook application minimized then
                Application.ActiveExplorer.Activate                     'Activate Outlook application window
            Else                                                        'If Outlook application not minimized then
                Application.ActiveExplorer.Activate                     'Activate Outlook application window
            End If

        End If
End Sub