返回或设置文件夹是否作为“Outlook 通讯簿”显示。Boolean 类型。可读写。
expression.ShowAsOutlookAB
expression 必选。该表达式返回 MAPIFolder 对象。
以下示例创建对新文件夹的引用,然后修改其 ShowAsOutlookAB 属性以便作为通讯簿显示。
Sub FaveChange()
Dim olApp As Outlook.Application
Dim nmsName As namespace
Dim fldFolder As MAPIFolder
Set olApp = Outlook.Application
'Create instance of namespace
Set nmsName = olApp.GetNamespace("Mapi")
Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
'Display the folder as Outlook Address Book
fldFolder.ShowAsOutlookAB = True
End Sub