Méthode Application.GetAddress (Word)
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.