从默认通讯簿中返回地址。
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)