Application.GetAddress 方法 (Word)

返回默认通讯簿中的地址。

语法

表达式。GetAddress (Name、AddressProperties、UseAutoText、DisplaySelectDialog、SelectDialog、CheckNamesDialog、RecentAddressesChoice、UpdateRecentAddresses)

expression 是必需的。 一个代表 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Name 可选 Variant 收件人姓名，与通讯簿中 "查找姓名" 对话框中所指定的相同。
AddressProperties 可选 Variant 如果 UseAutoText 为 True，则此参数表示定义通讯簿属性序列的 AutoText 条目的名称。 如果 UseAutoText 为 False 或被忽略，则此参数定义自定义布局。

有效的通讯簿属性名称或属性名称集用尖括号括起来 ("<" and ">") ，并由空格或段落标记分隔， (例如 "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>") 。

如果省略 AddressProperties 参数，则使用名为 “AddressLayout” 的默认 AutoText 条目。 如果尚未定义“AddressLayout”，则使用以下地址布局定义： "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>".

有效的地址簿属性名称的列表，请参阅 AddAddress 方法。
使用自动图文集 可选 Variant 如果 AddressProperties 指定定义通讯簿属性序列的 AutoText 条目的名称，则为 True;如果指定自定义布局，则为 False。
DisplaySelectDialog 可选 Variant 指定是否显示“ 选择名称”（Select Name ） 对话框，如 “结果”（Results ） 表所示。
SelectDialog 可选 Variant 指定 “选择名称”（Select Name ） 对话框应如何显示， (即在何种模式) ，如 “显示模式”（Display mode） 表所示。
CheckNamesDialog 可选 Variant 如果 Name 参数的值不够具体，则显示“检查名称”对话框为 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。

  • Last updated on