Question

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

expression.GetAddress(Name,AddressProperties,UseAutoText,DisplaySelectDialog,SelectDialog,CheckNamesDialog,RecentAddressesChoice,UpdateRecentAddresses)

expression 必需。该表达式返回一个 Application 对象。

Name Variant 类型，可选。地址名，与通讯簿中的“查找姓名”对话框所指定的相同。

AddressProperties Variant 类型，可选。如果UseAutoText 为 True，则本参数指定“自动图文集”词条名，该词条定义了一系列的通讯簿属性。如果UseAutoText 为 False 或被省略，则本参数定义一个自定义版面。用尖括号（“<”和“>”）标明有效的通讯簿属性名或该属性名的设置，并且使用空格或段落标记分隔属性名或是该属性名的设置（例如，"<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>"）。

如果省略本参数，则使用名为“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；如果AddressProperties 指定了一个定制版面，则本参数为 False。

DisplaySelectDialog Variant 类型，可选。指定是否显示“选择姓名”对话框。如下表所示：

0不显示“选择姓名”对话框。1 或省略显示“选择姓名”对话框。2不显示“选择姓名”对话框，并且不搜索指定的姓名。本方法返回的地址将是以前指定的地址。

值	结果

SelectDialog Variant 类型，可选。指定“选择姓名”对话框显示方式（即以何种模式进行选择）。如下表所示：

0（零）或省略浏览模式1紧凑模式，只显示“收件人”框2紧凑模式，“收件人”和“抄送”框都进行显示

值	显示模式

CheckNamesDialog Variant 类型，可选。如果本参数为 True，则在Name 参数的值指定不完整时显示“检查姓名”对话框。

RecentAddressesChoice Variant 类型，可选。如果本参数为 True，则使用最近使用的回信地址列表。

UpdateRecentAddresses Variant 类型，可选。如果本参数为 True，则向最近使用的地址列表中添加一个地址；如果本参数为 False，则不添加地址。如果SelectDialog 设置为 1 或 2，则忽略本参数。

示例

本示例将 John Smith 的地址赋给变量 strAddress，将插入点移到文档的开头，并插入地址。插入的地址具有默认的通讯簿属性。

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)