Adds the current folder to the Public Folder's Favorites Folder.
expression.AddToPFFavorites
expression Required. An expression that returns a MAPIFolder object.
Only Public Folders can be added to the Favorites Folder.
The following example adds the public folder Internet Newsgroups to the user's Favorites Folder by using the AddToPFFavorites method.
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