Méthode Application.GetAddress (Word)

  • Article

Renvoie une adresse extraite du carnet d'adresses par défaut.

Syntaxe

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

expression Obligatoire. Variable qui représente un objet Application.

Parameters

Nom Requis/Facultatif Type de données Description
Name Facultatif Variant Nom du destinataire, tel qu'il est spécifié dans la boîte de dialogue Rechercher du carnet d'adresses.
AddressProperties Facultatif Variant Si UseAutoText a la valeur True, cet argument indique le nom d’une entrée d’insertion automatique qui définit une séquence de propriétés de carnet d’adresses. Si UseAutoText a la valeur False ou omise, cet argument définit une disposition personnalisée.

Les noms de propriétés de carnet d’adresses valides ou les jeux de noms de propriétés sont entourés de crochets ("<" and ">") et séparés par un espace ou une marque de paragraphe (par exemple, "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>").

Si le paramètre AddressProperties est omis , une entrée d’insertion automatique par défaut nommée « AddressLayout » est utilisée. Si « AddressLayout » n’a pas été défini, la définition de disposition d’adresse suivante est utilisée : "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>".

Pour obtenir la liste des noms de propriétés carnet adresses valides, voir la méthode AddAddress.
UseAutoText Facultatif Variant True si AddressProperties spécifie le nom d’une entrée d’insertion automatique qui définit une séquence de propriétés du carnet d’adresses ; False si elle spécifie une disposition personnalisée.
DisplaySelectDialog Facultatif Variant Spécifie si la boîte de dialogue Sélectionner un nom s’affiche, comme indiqué dans la table Résultats .
SélectionnerDialog Facultatif Variant Spécifie comment la boîte de dialogue Sélectionner un nom doit être affichée (c’est-à-dire dans quel mode), comme indiqué dans le tableau Mode d’affichage .
CheckNamesDialog Facultatif Variant True pour afficher la boîte de dialogue Vérifier les noms lorsque la valeur de l’argument Name n’est pas suffisamment spécifique.
RecentAddressesChoice Facultatif Variant True pour utiliser la liste des dernières adresses d'expéditeur utilisées.
UpdateRecentAddresses Facultatif Variant True pour ajouter une adresse à la liste des adresses récemment utilisées ; False pour ne pas ajouter l’adresse. Si SelectDialog est défini sur 1 ou 2, cet argument est ignoré.

Résultats

Valeur Résultat
0 (zéro) La boîte de dialogue Sélectionner un nom n'est pas affichée.
1 ou aucune La boîte de dialogue Sélectionner un nom est affichée.
2 La boîte de dialogue Sélectionner un nom n'est pas affichée, et aucune recherche d'un nom spécifique n'est exécutée. L'adresse renvoyée par cette méthode sera la dernière adresse sélectionnée.

Mode d'affichage

Valeur Mode d'affichage
0 (zéro) ou aucune Mode Parcourir
1 Mode Composer, avec uniquement le champ À
2 Mode Composer, avec les champs À et Cc

Valeur renvoyée

String

Exemple

Cet exemple montre comment définir la variable strAddress sur l’adresse de John Smith, déplacer le point d’insertion au début du document et insérer l’adresse. L'adresse insérée comprendra les propriétés de carnet d'adresses par défaut.

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

Cet exemple montre comment renvoyer l'adresse de John Smith, en utilisant l'insertion automatique « My Address Layout » comme définition de la mise en page. Cette insertion automatique est définie dans le modèle actif et contient un ensemble de propriétés d'adresse affectées à la variable text$. Cet exemple montre également comment ajouter l'adresse de John Smith dans la liste des dernières adresses utilisées.

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)

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.