Метод Application.GetAddress (Word)

Возвращает адрес из адресной книги по умолчанию.

Синтаксис

выражение. GetAddress (Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)

выражение (обязательно). Переменная, представляющая объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Необязательно заполнять.	Variant	Имя адресата, указанное в диалоговом окне "Поиск имени " в адресной книге.
Свойства адреса	Необязательный	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	True , если AddressProperties указывает имя записи автотекста, определяющей последовательность свойств адресной книги; Значение False , если указывается пользовательский макет.
DisplaySelectDialog	Необязательный	Variant	Отображение диалогового окна "Выбор имени ", как показано в таблице результатов .
Диалоговое окно выбора	Необязательный	Variant	Указывает, как должно отображаться диалоговое окно "Выберите имя " (т. е. в каком режиме), как показано в таблице режимов отображения .
ДиалогCheckNamesDialog	Необязательный	Variant	Значение "true " — диалоговое окно "Проверка имен", если аргумент "Имя" недостаточно конкретен.
RecentAddressesChoice	Необязательный	Variant	Значение true , чтобы использовать список недавно использованных обратных адресов.
UpdateRecentAddresses	Необязательный	Variant	True , чтобы добавить адрес в список недавно использованных адресов; Значение false , чтобы не добавлять адрес. Если для SelectDialog задано значение 1 или 2, этот аргумент игнорируется.

Результаты

Значение	Результат
0 (ноль)	Диалоговое окно "Выберите имя " не отображается.
1 или опущен	Откроется диалоговое окно "Выбрать имя ".
2	Диалоговое окно "Выберите имя " не отображается, и поиск конкретного имени не выполняется. Адрес, возвращаемый этим методом, будет ранее выбранным адресом.

Режим отображения

Значение	Режим отображения
0 (ноль) или опущен	Режим просмотра
1	Compose режиме только с полем "Кому:"
2	Compose режиме с полями "Кому" и "CC:"

Возвращаемое значение

String

Пример

В этом примере переменная strAddress задается по адресу Джона Смита, перемещает точку вставки в начало документа и вставляет адрес. Вставленный адрес будет включать свойства адресной книги по умолчанию.

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

В следующем примере возвращается адрес Джона Смита, используя в качестве определения макета запись автотекста "Макет моего адреса". "My Address Layout" определен в активном шаблоне и содержит набор свойств адреса, назначенных переменной text$. В примере также добавляется адрес Джона Смита в список недавно использовавшихся адресов.

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 и обратная связь.