Application.GetAddress 方法 (Word)
返回默认通讯簿中的地址。
语法
表达式。GetAddress (Name、 AddressProperties、 UseAutoText、 DisplaySelectDialog、 SelectDialog、 CheckNamesDialog、 RecentAddressesChoice、 UpdateRecentAddresses)
expression 是必需的。 一个代表 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Name | 可选 | Variant | 收件人姓名，与通讯簿中 "查找姓名" 对话框中所指定的相同。 |
| AddressProperties | 可选 | Variant | 如果 UseAutoText 为 True，则此参数表示定义通讯簿属性序列的自动图文集条目的名称。 如果 UseAutoText 为 False 或省略，则此参数定义自定义布局。 有效的通讯簿属性名称或属性名称集由尖括号 ( "<" and ">") 括起来，并用空格或段落标记分隔 (例如 "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>") 。如果省略 AddressProperties 参数，则使用名为“AddressLayout”的默认自动图文集条目。 如果尚未定义“AddressLayout”，则使用以下地址布局定义： "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>"。有效的地址簿属性名称的列表，请参阅 AddAddress 方法。 |
| UseAutoText | 可选 | Variant | 如果 AddressProperties 指定用于定义通讯簿属性序列的自动图文集条目的名称，则为 True;如果指定自定义布局，则为 False。 |
| DisplaySelectDialog | 可选 | Variant | 指定是否显示 “选择名称 ”对话框，如 结果 表中所示。 |
| SelectDialog | 可选 | Variant | 指定应如何显示“ 选择名称 ”对话框 (即) 的模式，如 “显示模式 ”表所示。 |
| CheckNamesDialog | 可选 | Variant | 如果名称参数的值不够具体，则为 True，则显示“检查名称”对话框。 |
| RecentAddressesChoice | 可选 | Variant | 真 要使用列表中的最近使用的回信地址。 |
| UpdateRecentAddresses | 可选 | Variant | 如果该属性值为 True，则向最近使用的地址列表中添加一个地址；如果该属性值为 False，则不添加地址。 如果 SelectDialog 设置为 1 或 2，则忽略该参数。 |
结果
| 值 | 结果 |
|---|---|
| 0（零） | 不显示 "选择姓名" 对话框。 |
| 1 或省略 | 显示 "选择姓名" 对话框。 |
| 2 | 不显示 "选择姓名" 对话框，并且不搜索指定的姓名。 该方法返回的地址将是以前选择的地址。 |
显示模式
| 值 | 显示模式 |
|---|---|
| 0（零）或省略 | 浏览模式 |
| 1 | 紧凑模式，只显示 "收件人:" 框 |
| 2 | 紧凑模式， "收件人:" 和 "抄送:" 框都显示 |
返回值
字符串
示例
本示例将变量 strAddress 设置为 John Smith 的地址，将插入点移动到文档的开头，并插入地址。 插入的地址包括默认的通讯簿属性。
Dim strAddress
strAddress = Application.GetAddress(Name:="John Smith", _
CheckNamesDialog:=True)
ActiveDocument.Range(Start:=0, End:=0).InsertAfter strAddress
以下示例返回 John Smith 的地址，使用"My Address Layout"自动图文集词条作为布局定义。 "My Address Layout"在活动模板中定义，它包括一组指定给变量 text$ 的地址属性。 本示例还将 John Smith 的地址添加到最近使用的地址列表中。
Dim TagIDArray(0 To 3) As String
Dim ValueArray(0 To 3) As String
Dim strAddress As String
TagIDArray(0) = "PR_DISPLAY_NAME"
TagIDArray(1) = "PR_GIVEN_NAME"
TagIDArray(2) = "PR_SURNAME"
TagIDArray(3) = "PR_COMMENT"
ValueArray(0) = "Display_Name"
ValueArray(1) = "John"
ValueArray(2) = "Smith"
ValueArray(3) = "This is a comment"
Application.AddAddress TagID:=TagIDArray(), Value:=ValueArray()
strAddress = Application.GetAddress(Name:="John Smith", _
UpdateRecentAddresses:=True)
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。