將新創建的Outlook約會窗口置於最前面

Question

有什么方法可以將新創建​​的Outlook約會窗口置於前面以使用Sendkeys函數？ 我正在用Excel創建新約會，將數據從工作簿復制到正文，並通過發送密鑰將約會修改為Skype會議。 但是，有時約會在Excel后面打開，SendKeys操作不起作用。

我嘗試使用AppActivate但是我想我做錯了，因為調試器說Invalid procedure call or argument 。 也歡迎替代方案。

我也嘗試過，但是它一直都無法正常工作，有時約會窗口仍然在后台打開：

Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
.....

Dim olAppt As Outlook.AppointmentItem
Dim HWNDSrc As Long
.....
Set olAppt = olApp.CreateItem(olAppointmentItem)

    SetForegroundWindow HWNDSrc
.....

這是我的完整代碼：

Sub CreateNewOutlookAppointment()

Dim olApp As Outlook.Application
Dim olAppt As Outlook.AppointmentItem

Set olAppt = Nothing
Set olApp = Outlook.Application
Set olAppt = olApp.CreateItem(olAppointmentItem)

AppActivate olApp

    With olAppt
        .Subject = "Bid review" & ", " & ThisWorkbook.Sheets("Other Data").Range("P23").Value
        ThisWorkbook.Sheets("Templates").Range("M202:M223").Copy
        .Display
        .GetInspector.WordEditor.Windows(1).Selection.PasteAndFormat wdPASTERTF
    End With
        Application.SendKeys ("%HOM")
Set olAppt = Nothing

End Sub

Answer 1

嘗試調用Inspector.Activate 。