在Outlook中选择正确的联系人 [英] Select correct contact in Outlook

问题描述

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Try
        ' Create an Outlook application.
        Dim oApp As Outlook._Application = New Outlook.Application()

        ' Get the MAPI namespace.
        Dim oNS As Outlook.NameSpace = oApp.Session

        ' Get the Global Address List.
        Dim oALs As Outlook.AddressLists = oNS.AddressLists
        Dim oGal As Outlook.AddressList = oALs.Item("Contacts")

        ' Get all the entries.
        Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries
        Dim oEntry As Outlook.AddressEntry

        Dim i As Integer

        For i = 1 To oEntries.Count

            oEntry = oEntries.Item(i)
            ComboBox1.Items.Add(oEntry.Name)
        Next

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    Try
        ' Create an Outlook application.
        Dim oApp As Outlook._Application = New Outlook.Application()

        ' Get the MAPI namespace.
        Dim oNS As Outlook.NameSpace = oApp.Session

        ' Get the Global Address List.
        Dim oALs As Outlook.AddressLists = oNS.AddressLists
        Dim oGal As Outlook.AddressList = oALs.Item("Contacts")


        ' Get all the entries.
        Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries
        Dim oDL As Outlook.AddressEntry
        oDL = oEntries.Item(ComboBox1.SelectedItem.ToString)

        TextBox2.Text = oDL.GetContact.FullName

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

问题是：



ComboBox1.SelectedItem =所选联系人

oDL =下一个联系ComboBox1而不是s当选联系人



任何帮助都会很棒Thanx

Tim

The problem is;

The ComboBox1.SelectedItem = the selected contact
The oDL = the next contact in ComboBox1 NOT the selected contact

Any help would be great Thanx
Tim

推荐答案

这篇关于在Outlook中选择正确的联系人的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！