Método Application.GetAddress (Word)
Retorna um endereço do catálogo de endereços padrão.
Sintaxe
expressão. GetAddress (Nome, EndereçoProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)
expressão Obrigatório. Uma variável que representa um objeto Application.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Name | Opcional | Variant | O nome do destinatário, conforme especificado na caixa de diálogo Nome da pesquisa no catálogo de endereços. |
| AddressProperties | Opcional | Variantes | Se UseAutoText for True, esse argumento denota o nome de uma entrada do AutoText que define uma sequência de propriedades do catálogo de endereços. Se UseAutoText for False ou omitido, esse argumento definirá um layout personalizado. Nomes de propriedade do catálogo de endereços válidos ou conjuntos de nomes de propriedades são cercados por colchetes de ângulo ( "<" and ">") e separados por um espaço ou uma marca de parágrafo (por exemplo, "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>").Se o parâmetro AddressProperties for omitido, será usada uma entrada padrão do AutoText chamada "AddressLayout". Se "AddressLayout" não tiver sido definido, a seguinte definição de layout de endereço será usada: "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>".Para obter uma lista dos nomes de propriedade do catálogo de endereço válido, consulte o método AddAddress. |
| UseAutoText | Opcional | Variantes | True se AddressProperties especificar o nome de uma entrada do AutoText que define uma sequência de propriedades do catálogo de endereços; False se especificar um layout personalizado. |
| DisplaySelectDialog | Opcional | Variantes | Especifica se a caixa de diálogo Selecionar Nome é exibida, conforme mostrado na tabela Resultados . |
| SelectDialog | Opcional | Variantes | Especifica como a caixa de diálogo Selecionar Nome deve ser exibida (ou seja, em que modo), conforme mostrado na tabela Modo de exibição . |
| CheckNamesDialog | Opcional | Variantes | True para exibir a caixa de diálogo Verificar Nomes quando o valor do argumento Nome não for específico o suficiente. |
| RecentAddressesChoice | Opcional | Variantes | True para usar a lista de endereços de retorno recentemente usados. |
| UpdateRecentAddresses | Opcional | Variantes | True para adicionar um endereço à lista de recentemente usados endereços; False não adicionar o endereço. Se SelectDialog estiver definido como 1 ou 2, esse argumento será ignorado. |
Resultados
| Valor | Resultado |
|---|---|
| 0 (zero) | A caixa de diálogo Selecionar nome não é exibida. |
| 1 ou omitido | A caixa de diálogo Selecionar nome é exibida. |
| 2 | A caixa de diálogo Selecionar nome não é exibida e nenhuma pesquisa por um nome específico é efetuada. O endereço retornado por esse método será o endereço selecionado anteriormente. |
Modo de exibição
| Valor | Modo de exibição |
|---|---|
| 0 (zero) ou omitido | Modo de pesquisa |
| 1 | Modo Redigir, com apenas a caixa Para: |
| 2 | Modo Redigir, com ambas as caixas Para: e CC: |
Valor de retorno
Cadeia de caracteres
Exemplo
Este exemplo define a variável strAddress para o endereço de John Smith, move o ponto de inserção para o início do documento e insere o endereço. O endereço inserido incluirá as propriedades de catálogo de endereços padrão.
Dim strAddress
strAddress = Application.GetAddress(Name:="John Smith", _
CheckNamesDialog:=True)
ActiveDocument.Range(Start:=0, End:=0).InsertAfter strAddress
O exemplo a seguir retorna o endereço de John Smith, usando a entrada de AutoTexto "My Address Layout" como definição de layout. "My Address Layout" é definida no modelo ativo e contém um conjunto de propriedades de endereço atribuídas à variável text$. O exemplo também adiciona o endereço de John Smith à lista de endereços recentemente usados.
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)
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.