Find Window handle by Partial Caption

[RobDog888]

I didnt see any code in here yet for this so here it is.
It will find the first window handle that contains the string passed.

For ex. if you want to find a window handle of Outlook but you dont know
which folder is currently being viewed (the folder name preceds ' - Microsoft
Outlook') you can go and pass " - Microsoft Outlook" and it will find Outlooks
handle if it is running.

Option Explicit
'<VB/OUTLOOK GURU 01/30/2004 - CODE TO FIND WINDOW HANDLE BASED ON PARTIAL WINDOW CAPTION>
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Const GW_HWNDNEXT = 2

Private Sub Command1_Click()
    Dim lhWndP As Long
    If GetHandleFromPartialCaption(lhWndP, " - Microsoft Outlook") = True Then
        MsgBox "Found Window Handle: " & lhWndP, vbOKOnly + vbInformation
    Else
        MsgBox "Window ' - Microsoft Outlook' not found!", vbOKOnly + vbExclamation
    End If
End Sub

Private Function GetHandleFromPartialCaption(ByRef lWnd As Long, ByVal sCaption As String) As Boolean
    Dim lhWndP As Long
    Dim sStr As String
    GetHandleFromPartialCaption = False
    lhWndP = FindWindow(vbNullString, vbNullString) 'PARENT WINDOW
    Do While lhWndP <> 0
        sStr = String(GetWindowTextLength(lhWndP) + 1, Chr$(0))
        GetWindowText lhWndP, sStr, Len(sStr)
        sStr = Left$(sStr, Len(sStr) - 1)
        If InStr(1, sStr, sCaption) > 0 Then
            GetHandleFromPartialCaption = True
            lWnd = lhWndP
            Exit Do
        End If
        lhWndP = GetWindow(lhWndP, GW_HWNDNEXT)
    Loop
End Function