共用方式為

Outlook) (Folder.AddressBookName 屬性

  • 發行項

會傳回或設定 String ，指出代表 Contacts 資料夾之 Folder 物件的通訊錄名稱。 讀取/寫入。

語法

expression。 AddressBookName

表達 代表 Folder 物件的 變數。

註解

如果您嘗試在非 Contacts 資料夾中設定 AddressBookName 屬性，則會傳回錯誤。

範例

下列範例會變更預設 [連絡人] 資料夾的 [通訊錄] 名稱，並將新名稱顯示給使用者。 副程式會接受資料夾物件及代表新通訊錄名稱的字串。

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

另請參閱

Folder 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。