expression.AddToFavorites(fNoUI, Name)
expression Required. An expression that returns a MAPIFolder object.
fNoUI Optional Variant. Specifies whether the Add Favorite dialog will be displayed. The default value is False, which displays the dialog. Specify True if you do not want to show the dialog to the user.
Name Optional Variant. Specifies the name of the favorite folder. The default value is the name of the folder.
Example
The following Microsoft Visual Basic/Visual Basic for Applications (VBA) example adds the current folder to the Favorites list in Internet Explorer. The subroutine accepts a MAPIFolder object and a String that represents the folder's name in the Favorites list. It executes the AddToFavorites method, using the String value supplied by the user as its argument.
Sub FaveChange()
Dim appolApp As Outlook.Application
Dim nmsName As Outlook.NameSpace
Dim fldFolder As Outlook.MAPIFolder
Dim strName As String
Set appolApp = New Outlook.Application
'Create instance of namespace
Set nmsName = appolApp.GetNamespace("MAPI")
Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
'Prompt user for a Favorites list name
strName = _
InputBox("Type the name of the folder as it will appear in the Favorites list.")
Call FaveList(fldFolder, strName)
End Sub
Sub FaveList(ByRef fldFolder As MAPIFolder, ByVal strName As String)
'Add a Folder object to the Favorites list in Internet Explorer
'Call method with strName as name argument
fldFolder.AddToFavorites fNoUI:= True, Name:=strName
'Display a message to the user
MsgBox "The folder " & fldFolder.Name & _
" was added to the Internet Explorer Favorites list as " & strName & "."
End Sub