Word) (Application.GetAddress 方法

傳回預設通訊錄中的地址。

語法

運算式。GetAddress (Name、 AddressProperties、 UseAutoText、 DisplaySelectDialog、 SelectDialog、 CheckNamesDialog、 RecentAddressesChoice、 UpdateRecentAddresses)

需要 expression。 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Name	選用	Variant	The name of the addressee, as specified in the Search Name dialog box in the address book.
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是表示 當Name引數的值不夠明確時，顯示 [檢查名稱] 對話方塊。
RecentAddressesChoice	選用	Variant	True 可使用的清單最近使用過地址。
UpdateRecentAddresses	選用	Variant	True 是表示 最近新增至清單的地址使用位址 ； False 不新增地址。 如果 SelectDialog 設定為 1 或 2，則會忽略此引數。

結果

值	結果
0 (零)	The Select Name dialog box isn't displayed.
1 或省略	The Select Name dialog box is displayed.
2	The Select Name dialog box isn't displayed, and no search for a specific name is performed. The address returned by this method will be the previously selected address.

顯示模式

值	顯示模式
0 (零) 或省略	瀏覽模式
1	Compose mode, with only the To: box
2	Compose mode, with both the To: and CC: boxes

傳回值

字串

範例

本範例會將變數 strAddress 設定為 John Smith 的位址、將插入點移至檔的開頭，然後插入位址。 插入的地址將會包含預設的通訊錄屬性。

Dim strAddress 
 
strAddress = Application.GetAddress(Name:="John Smith", _ 
    CheckNamesDialog:=True) 
ActiveDocument.Range(Start:=0, End:=0).InsertAfter strAddress

下列範例會使用 "My Address Layout" 自動圖文集項目做為配置定義，傳回 John Smith 的地址。 "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)

另請參閱

• Application 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。