如何最大化并将重点放在打开的Outlook电子邮件的前景上？

Question

我正在使用以下代码打开电子邮件项目（特定条件）。
之后，我需要最大化打开的Outlook电子邮件窗口，并将重点设置为前景。

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

以下Windows API功能

#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

感谢您的任何有用的评论和答案。

Answer 1

调用 mailItem.display ，然后通过调用 boce> Inspector> Inspector.activate 来激活 Inspector 对象。 Inspector 可以从 mailItem.getInspector 中检索对象。

要记住的一件事是，如果父进程不在前景中，窗户不会将窗户带到前景。您需要使用 attactthreadinput 函数 - 请参见 332059

Answer 2

您可以使用 activate 或 Inspector 从Outlook对象模型类。

为了最大化窗口，您可以使用 showwindow 从Windows API中的方法，这是VBA中可能的声明：

Public Declare Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long

private SW_MAXIMIZE as Long = 3;
private SW_MINIMIZE as Long = 6;

因此，您需要传递窗口句柄，而SW_Maximimime值则作为第二个参数以最大化窗口。请参阅如何最小化/最大化打开的应用程序以获取更多信息。

Answer 3

为了激活“ 打开的Outlook电子邮件消息窗口”，您需要“确定其句柄”。为此，您可以使用其标题。

1. 请使用顶部的下一个声明（在声明区域）：

 Public Const MyApp As String = "myOutlook", Sett As String = "Settings", wHwnd As String = "Wind_Hwnd" 'changed to be `Public` and keeping the handle

中复制下一个API函数：

#If Win64 Then
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
                    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Public Declare PtrSafe Function SetForegroundWindow Lib "user32" _
                                                 (ByVal hwnd As LongPtr) As LongPtr
    Public Declare PtrSafe Function ShowWindow Lib "user32" _
              (ByVal hwnd As LongPtr, ByVal nCmdSHow As Long) As Long
    
     
#Else
    Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function SetForegroundWindow Lib "user32" _
                                             (ByVal hWnd As Long) As Long
    Public Declare Function ShowWindow Lib "user32" _
        (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long
#End If

1.a请在同一标准模块 变量对于供应，保存和使用必要的窗口句柄（在注册表中/从注册表中）

2. 进行适应 myitem_open 以下一个方式：

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
           #If Win64 Then
               Dim meHwnd As LongPtr
           #Else
               Dim meHwnd As Long
           #End If
           meHwnd = FindWindow(vbNullString, MyItem.GetInspector.Caption) 'find the necessary window handle
           SaveSetting MyApp, Sett, wHwnd, CStr(meHwnd) 'memorize it, converted to string
        End If
    EventsDisable = False
End Sub

3.1如果必须从 的VBA中显示邮件窗口，则应用程序，从上方的声明和API函数也必须在模块的顶部复制，以保留必要的（以下）子。

3.2复制下一个改编的 sub 并运行它（在Outlook中显示必要的邮件窗口后，当然... ）：

Sub Bring_to_front()
  Dim winHwnd As String, i As Long
  winHwnd = GetSetting(MyApp, Sett, wHwnd, "No Value")
  If winHwnd <> "No Value" Then
        #If Win64 Then
            Dim mailWindHwnd As LongPtr
            mailWindHwnd = CLngPtr(winHwnd)
        #Else
            Dim mailWindHwnd As Long
            mailWindHwnd = CLng(winHwnd)
        #End If
        SetForegroundWindow mailWindHwnd
        ShowWindow mailWindHwnd, 3
  End If
End Sub

请尝试并发送一些反馈。