显示“选择姓名”对话框以解析收件人
该示例尝试解析 recips 参数所提供的收件人，并为每个因不明确而无法解析的收件人显示 Outlook“选择姓名”对话框。
示例
此代码示例调用 SelectNamesDialog 对象，以调出显示 Outlook 通讯簿的“选择姓名”对话框。 通过此对话框，用户可以从通讯簿中选择姓名。 如果姓名无法解析，此代码示例便会从 recips 中删除相应收件人。 如果姓名已解析，此代码示例便会向 recips 返回相应收件人的 AddressEntry 对象。
如果使用 Visual Studio 测试此代码示例，必须先添加对 Microsoft Outlook 15.0 对象库组件的引用，并在导入 Microsoft.Office.Interop.Outlook 命名空间时指定 Outlook 变量。 不得将 Imports 或 using 语句直接添加到此代码示例中的函数前面，这两个语句必须后跟公共类声明。 下面的代码行演示了如何在 Visual Basic 和 C# 中执行导入和分配。
Imports Outlook = Microsoft.Office.Interop.Outlook
using Outlook = Microsoft.Office.Interop.Outlook;
Private Sub ResolveRecipients(ByVal recips As Outlook.Recipients)
If recips Is Nothing Then
Throw New ArgumentNullException()
End If
If recips.ResolveAll() Then
Return
Else
For i As Integer = recips.Count To 1 Step -1
If Not (recips(i).Resolve()) Then
Dim snd As Outlook.SelectNamesDialog = _
Application.Session.GetSelectNamesDialog()
snd.Recipients.Add(recips(i).Name)
snd.NumberOfRecipientSelectors = _
Outlook.OlRecipientSelectors.olShowTo
snd.AllowMultipleSelection = False
snd.Display()
If Not (snd.Recipients.ResolveAll()) Then
recips.Remove(i)
Else
recips.Remove(i)
recips.Add(snd.Recipients(1).Address)
End If
snd = Nothing
End If
Next
End If
End Sub
private void ResolveRecipients(Outlook.Recipients recips)
{
if (recips == null)
{
throw new ArgumentNullException();
}
if (recips.ResolveAll())
{
return;
}
else
{
for (int i = recips.Count; i > 0; i--)
{
if (!recips[i].Resolve())
{
Outlook.SelectNamesDialog snd =
Application.Session.
GetSelectNamesDialog();
snd.Recipients.Add(recips[i].Name);
snd.NumberOfRecipientSelectors =
Outlook.OlRecipientSelectors.olShowTo;
snd.AllowMultipleSelection = false;
snd.Display();
if (!snd.Recipients.ResolveAll())
{
recips.Remove(i);
}
else
{
recips.Remove(i);
recips.Add(snd.Recipients[1].Address);
}
snd = null;
}
}
}
}