excel - 创建邮件并将焦点设置到此窗口

Question

我在 Excel 中有 VBA 代码来创建 Outlook 电子邮件。电子邮件并不总是被带到最前面。

我添加了OApp.ActiveExplorer.Activate，但这会带来 Outlook 应用程序而不是新电子邮件。

新的电子邮件窗口将具有动态窗口名称，因此难以通过代码定位。

    Set OApp = CreateObject("Outlook.Application")
    Set email= OApp .CreateItem(0)
    With email
        .To = address
        .Subject = subject
        .Display
    End With
    OApp.ActiveExplorer.Activate

标签： excelvbaoutlook

Answer 1

打电话email.GetInspector.Activate后打电话Display。