Handle auf aktives Office Window

[ThAigner]

Hallo alle,


Ich brauche zum Starten einer Applikation einen Handle auf das aktuelle Office Window (z.B. meine aktuelle offene Mail). Ich habe schon vieles Verschiedene versucht aber nichts war von erfolg. Ich bekomme nie denn Handle auf das aktuelle Window. Ich habe meinen Source Code angehängt.


' Return a handle to the active Window
Public Function GetActiveApplicationWindow(applicationName As String) As Long

If applicationName = "Outlook" Then

Dim appOL As Outlook.Application
Set appOL = New Outlook.Application

Dim actWin As Object
Dim hwnd As Long
hwnd = Empty


Set actWin = appOL.ActiveWindow
Dim actItem As Object
If TypeName(actWin) = "Inspector" Then
Set actItem = appOL.ActiveInspector.CurrentItem
hwnd = FindWindow(vbNullString, appOL.ActiveInspector.Caption)


ElseIf TypeName(actWin) = "Explorer" Then
Dim myOlSel As Outlook.Selection
Set myOlSel = appOL.ActiveExplorer.Selection
If (myOlSel.Count > 0) Then
Set actItem = myOlSel.item(1)
GetActiveApplicationWindow = FindWindow(vbNullString, appOL.ActiveExplorer.Caption)


Bin für jede Hilfe Dankbar,


Thomas