VB.NET Outlook.SelectNamesDialog zu suchender Name in Suchfeld eintragen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von JTrum.

    VB.NET Outlook.SelectNamesDialog zu suchender Name in Suchfeld eintragen

    Wenn ein Name mit resolveAll() nicht aufgelöst werden kann, will ich mit dem SelectNamesDialog den Namen entsprechend suchen und auswählen. Soweit so gut. Habe ein Beispiel gefunden, wo der zu suchende Name in Outlook.OlRecipientSelectors.olShowTo geschrieben wird.Wie kriege ich es hin, dass das Suchfeld oben in SelectNamesDialog mit dem zu suchenden Namen gefüllt wird. Wie heißt das Suchfeld? Wie spreche ich es an?

    VB.NET-Quellcode

    1. Dim objOutlook As Outlook.Application = GetApplicationObject()
    2. Dim myRecipient As Outlook.Recipient
    3. Dim myRecipients As Outlook.Recipients
    4. Dim myMail As Outlook.MailItem
    6. Try
    7. myMail = CType(objOutlook.CreateItem(Outlook.OlItemType.olMailItem), _
    8. Outlook.MailItem)
    9. myRecipients = myMail.Recipients
    10. myRecipients.Add("Mayer, Max")
    11. myRecipients.ResolveAll()
    12. For Each myRecipient In myRecipients
    13. If myRecipient.Resolved Then
    14. Debug.Print(myRecipient.Address & " - " & myRecipient.Name)
    15. userName = myRecipient.Name
    16. Exit For
    17. Else
    18. Debug.Print("Alias für: " & userName & " konnte nicht aufgelöst werden!")
    19. For i As Integer = 1 To myRecipients.Count
    20. Dim snd As Outlook.SelectNamesDialog = _
    21. objOutlook.Session.GetSelectNamesDialog()
    22. snd.Recipients.Add(userName)
    23. snd.NumberOfRecipientSelectors = Outlook.OlRecipientSelectors.olShowTo
    24. snd.AllowMultipleSelection = False
    25. snd.Display()
    26. If Not (snd.Recipients.ResolveAll()) Then
    27. myRecipients.Remove(i)
    28. userName = ""
    29. Exit For
    30. Else
    31. myRecipients.Remove(i)
    32. myRecipients.Add(snd.Recipients(1).Name)
    33. userName = snd.Recipients(1).Name
    34. Exit For
    35. End If
    36. Next
    37. End If
    38. Next
    39. Catch ex As Exception
    40. Debug.Print(ex.ToString)
    41. End Try

    Dann doch nochmal eine Frage.
    Habe jetzt das Beispiel unter vboffice.net/en/developers/get…ialog-pre-fill-search-box
    in mein VB.net Projekt eingebaut, wobei ich an einer Stelle nicht weiterkomme.

    VB.NET-Quellcode

    1. ​
    2. Public Sub DisplayDialog(FindThisName As String)
    3. On Error GoTo ERR_HANDLER
    4. Dim Dlg As Outlook.SelectNamesDialog
    5. m_DialogCaption = "Select Names: *"
    6. m_FindThisName = FindThisName
    8. If hEvent = 0 Then
    9. Dlg = Application.Session.GetSelectNamesDialog
    10. hEvent = SetTimer(0&, 0&, 500, AddressOf TimerProc)
    11. Dlg.Display()
    12. End If
    14. Exit Sub
    15. ERR_HANDLER:
    16. DisableTimer()
    17. End Sub
    19. Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
    20. If uMsg = WM_TIMER Then
    21. DisableTimer()
    22. PrefillSelectNames()
    23. End If
    24. End Sub


    Application.Session.GetSelectNamesDialog wird nicht erkannt. Was ist das richtige Pendant?
    AddressOf TimerProc auch nicht.

    Wie korrekt ansprechen, damit ich weiterkomme?

    LG Jörg

    Hallo Jörg
    Ich hab das ganze einmal in VB.net übersetzt.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    3. Imports System.Threading
    5. Imports Microsoft.Office.Interop
    7. Public Class Form1
    9. Dim objOutlook As Outlook.Application
    10. Dim onNamespace As Outlook.NameSpace
    12. <DllImport("user32.dll", SetLastError:=False)>
    13. Private Shared Function GetDesktopWindow() As IntPtr
    14. End Function
    16. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    17. Private Shared Function GetWindow(ByVal hWnd As IntPtr, ByVal uCmd As UInt32) As IntPtr
    18. End Function
    20. Private Enum GetWindowType As UInteger
    21. GW_HWNDFIRST = 0
    22. GW_HWNDLAST = 1
    23. GW_HWNDNEXT = 2
    24. GW_HWNDPREV = 3
    25. GW_OWNER = 4
    26. GW_CHILD = 5
    27. GW_ENABLEDPOPUP = 6
    28. End Enum
    30. <DllImport("user32.dll", EntryPoint:="GetWindowText")>
    32. Private Shared Function GetWindowText(ByVal hwnd As IntPtr, ByVal
    33. lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
    34. End Function
    36. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    37. Private Shared Function GetWindowTextLength(ByVal hwnd As IntPtr) As Integer
    38. End Function
    40. <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    42. Private Shared Function GetClassName(ByVal hWnd As System.IntPtr,
    43. ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As
    44. Integer) As Integer
    45. End Function
    47. <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    49. Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg
    50. As UInteger, ByVal wParam As IntPtr,
    51. <MarshalAs(UnmanagedType.LPWStr)> ByVal lParam As String) As
    52. IntPtr
    53. End Function
    55. Private Enum WindowsMessages As UInteger
    56. WM_SETTEXT = &HC
    57. End Enum
    59. Private hEvent As Thread
    61. Private m_FindThisName As String
    62. Private m_DialogCaption As String
    64. Public Sub DisplayDialog(FindThisName As String)
    65. Try
    67. objOutlook =
    68. CType(System.Runtime.InteropServices.Marshal.GetActiveObject("Outlook.Application"),
    69. Outlook.Application)
    70. onNamespace = objOutlook.Session
    72. Dim Dlg As Outlook.SelectNamesDialog
    73. m_DialogCaption = "Namen auswählen: *"
    74. m_FindThisName = FindThisName
    76. If hEvent Is Nothing Then
    78. Dlg = onNamespace.GetSelectNamesDialog
    80. hEvent = New Thread(AddressOf TimerProc)
    81. hEvent.Start()
    83. Dlg.Display()
    84. End If
    86. Catch ex As ArgumentException
    88. End Try
    90. End Sub
    92. Public Sub TimerProc()
    93. Thread.Sleep(500)
    94. PrefillSelectNames()
    95. End Sub
    97. Private Sub PrefillSelectNames()
    99. Dim hnd As IntPtr
    100. Dim OK As Boolean
    102. hnd = GetDesktopWindow()
    103. hnd = FindChildWindowText(hnd, m_DialogCaption)
    105. If hnd.ToInt32 <> 0 Then
    106. hnd = FindChildClassName(hnd, "RichEdit20W")
    107. If hnd.ToInt32 <> 0 Then
    108. SetText(hnd, m_FindThisName)
    109. OK = True
    110. End If
    111. End If
    112. If OK = False Then
    113. MessageBox.Show("Fenster nicht gefunden")
    114. End If
    115. End Sub
    117. Private Function FindChildWindowText(ByVal lHwnd As IntPtr, sFind As String) As IntPtr
    118. Dim lRes As IntPtr
    119. Dim sFindLC As String
    121. lRes = GetWindow(lHwnd, GetWindowType.GW_CHILD)
    122. If lRes.ToInt32 <> 0 Then
    123. sFindLC = sFind.ToLower
    124. Do
    125. If GetText(lRes).ToLower Like sFindLC Then
    126. Return lRes
    127. End If
    128. lRes = GetWindow(lRes, GetWindowType.GW_HWNDNEXT)
    129. Loop While lRes.ToInt32 <> 0
    130. End If
    131. Return IntPtr.Zero
    132. End Function
    134. Public Function GetText(ByVal hWnd As IntPtr) As String
    135. Dim length As Integer
    136. If hWnd.ToInt32 = 0 Then
    137. Return ""
    138. End If
    139. length = GetWindowTextLength(hWnd)
    140. If length = 0 Then
    141. Return ""
    142. End If
    143. Dim sb As New System.Text.StringBuilder("", length)
    145. GetWindowText(hWnd, sb, sb.Capacity + 1)
    146. Return sb.ToString()
    147. End Function
    149. Private Function FindChildClassName(ByVal lHwnd As IntPtr, ByRef sFind As String) As IntPtr
    150. Dim lRes As IntPtr
    151. Dim sFindLC As String
    153. lRes = GetWindow(lHwnd, GetWindowType.GW_CHILD)
    154. If lRes.ToInt32 <> 0 Then
    155. sFindLC = sFind.ToLower
    156. Do
    157. If GetClassName(lRes).ToLower = sFindLC Then
    158. Return lRes
    159. End If
    160. lRes = GetWindow(lRes, GetWindowType.GW_HWNDNEXT)
    161. Loop While lRes.ToInt32 <> 0
    162. End If
    163. Return IntPtr.Zero
    164. End Function
    166. Private Function GetClassName(ByVal lHwnd As IntPtr) As String
    167. Dim sBuffer As New StringBuilder("", 256)
    168. Dim lSize As Integer = GetClassName(lHwnd, sBuffer, sBuffer.Capacity)
    169. If lSize > 0 Then
    170. Return sBuffer.ToString
    171. Else
    172. Return ""
    173. End If
    174. End Function
    176. Private Function SetText(ByVal hwnd As IntPtr, ByVal sText As String) As IntPtr
    177. SetText = SendMessage(hwnd, WindowsMessages.WM_SETTEXT, IntPtr.Zero, sText)
    178. End Function
    180. Private Sub Btn_Test_1_Click(sender As System.Object, e As System.EventArgs) Handles btn_Test_1.Click
    181. DisplayDialog("Jörg")
    182. End Sub
    184. End Class

    Hy Henry,

    joo, das funzt. Danke, bin hellauf begeistert.

    Habe dann noch nach Dlg.Display() folgendes eingebaut, um das Ergebnis weiterbearbeiten zu können:

    VB.NET-Quellcode

    1. ​
    2. 'befinde mich in einer Schleife
    3. If (Dlg.Recipients.Count = 0) Then
    4. myRecipients.Remove(i)
    5. userName = ""
    6. Exit For
    7. Else
    8. myRecipients.Remove(i)
    9. myRecipients.Add(Dlg.Recipients(1).Name)
    10. userName = Dlg.Recipients(1).Name
    11. Exit For
    12. End If

Facebook
Telefonspende