Propriété Folder.AddressBookName (Outlook)

Article
04/07/2023

Renvoie ou définit une valeur de type String qui indique le nom du carnet d’adresses pour l’objet Folder représentant un dossier Contacts. Lecture-écriture.

Syntaxe

expression. AddressBookName

expression Variable qui représente un objet Folder.

Remarques

Si vous essayez de définir la propriété AddressBookName dans un dossier non-Contacts, une erreur est retournée.

Exemple

L'exemple de code suivant montre comment changer le nom du carnet d'adresses d'un dossier Contacts par défaut et comment afficher le nouveau nom. La sous-routine accepte l'objet dossier et une chaîne représentant le nouveau nom du carnet d'adresses.

Sub BookName() 
 
 Dim nmsName As Outlook.NameSpace 
 
 Dim fldFolder As Outlook.Folder 
 
 Dim strAns As String 
 
 
 
 'Create a reference to namespace 
 
 Set nmsName = Application.GetNamespace("MAPI") 
 
 'Create an instance of the Contacts folder 
 
 Set fldFolder = nmsName.GetDefaultFolder(olFolderContacts) 
 
 'Prompt user for input 
 
 strAns = InputBox("Type the name of the new address book") 
 
 'Call Sub procedure 
 
 Call Changebook(fldFolder, strAns) 
 
End Sub 
 
 
 
Sub Changebook(ByRef fldFolder As Folder, ByVal strName As String) 
 
 'Changes the name of the address book for a given folder 
 
 'Set address book name to user input 
 
 fldFolder.AddressBookName = strName 
 
 'Display message to user 
 
 MsgBox ("The new address book name for the " & fldFolder.Name & " folder is " _ 
 
 & strName & ".") 
 
End Sub

Voir aussi

Folder, objet

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.

Partager via