主页 / user-28092646

Yeti's questions

Martin Hope
Yeti
Asked: 2024-11-08 00:29:45 +0800 CST
  • 5

我对 VBA 还很陌生，正在努力解决一些我认为应该很简单的问题。在 Outlook 用户表单中，我想使用从全局地址列表中选择的电子邮件地址为标签（“CourrielSup”）添加标题。

我尝试使用 Microsoft 知识库中的 SelectNamesDialog.Display 方法来访问全局地址簿。这种方法很有效，当我单击命令按钮“ListeAdresse”时，会弹出显示地址簿的对话框。但我找不到让选定的电子邮件地址成为标签标题的方法。考虑到我的新手，我尝试了一些随机方法，看看是否可行，但我不知所措，而且我找不到在线资源来帮助我。这是我的非功能性代码：

Private Sub ListeAdresse_Click()
 Dim Courriel As String
 Dim oDialog As SelectNamesDialog
 Set oDialog = Application.Session.GetSelectNamesDialog
 With oDialog
 .InitialAddressList = Application.Session.GetGlobalAddressList
 If .Display Then
    CourrielSup.Caption = .Recipients
 End If
 End With
End Sub
vba