将当前文件夹添加到公用文件夹“收藏夹”中。
expression.AddToPFFavorites
expression 必选。该表达式返回 MAPIFolder 对象。
只能将公用文件夹添加到该“收藏夹”。
以下示例使用 AddToPFFavorites 方法将“Internet Newsgroups”公用文件夹添加到用户的“收藏夹”中。
Sub AddToFavorites()
'Adds a Public Folder to the List of favorites
Dim olapp As Outlook.Application
Dim objFolder As MAPIFolder
Set olapp = Outlook.Application
Set objFolder = _
olapp.GetNamespace("mapi").Folders.Item(1).Folders(2). _
Folders("Internet Newsgroups")
objFolder.AddToPFFavorites
End Sub