Folder.AddressBookName プロパティ (Outlook)

返すまたは、連絡先フォルダーを表す Folder オブジェクトのアドレス帳の名前を示す 文字列 を設定します。 値の取得と設定が可能です。

構文

式。 AddressBookName

式Folder オブジェクトを表す変数。

注釈

AddressBookName プロパティを [連絡先以外のフォルダーに設定しようとすると、エラーが戻されます。

例

次の例は、既定の連絡先フォルダーのアドレス帳の名前を変更し、新しい名前をユーザーに表示します。 2 番目のサブルーチンは、引数として、フォルダー オブジェクトおよび新しいアドレス帳名を表す文字列を受け取ります。

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

関連項目

フォルダー オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。