VB.net中的激活窗口

Question

我在VBA中將應用程序寫入Outlook，現在我想在VB.net中再次編寫它（以使其成為獨立的應用程序）。 我有一個我找不到答案的特定問題-在我編寫的Outlook Explorer中導航，該過程將激活Explorer，向下發送鍵並再次激活表單。 當我在Visual Studio中啟動應用程序時，此過程可以正常運行，但是當我關閉VS並運行單個exe時，Outlook Explorer無法激活-它僅在任務欄上閃爍，然后sendkey不起作用，並且未選擇下一封電子郵件。 這是代碼：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim app As Type = Type.GetTypeFromProgID("Outlook.Application")
        Dim oApp As Object = Activator.CreateInstance(app)

        oApp.ActiveExplorer.Activate()

        SendKeys.Send("{Down}")

        Me.Activate()

    End Sub

誰能幫我這個？

Answer 1

在Visual Studio中，嘗試在“調試”菜單中嘗試“不進行調試就開始”。 這應該等效於運行可執行文件，但是您可以在調試器啟動后附加調試器（調試菜單中的“附加到進程”），看看是否有線索.....

Answer 2

我用下面的代碼做到了;）

    Dim p As Process
    Dim window_name As String

    For Each p In Process.GetProcessesByName("outlook")
        window_name = p.MainWindowTitle.ToString
    Next

    AppActivate(window_name)

    Thread.Sleep(100)

    SendKeys.Send("{Up}")

    Me.Activate()

謝謝你的線索;）