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