Use the OutlookBar object with the Group "Shortcuts" and add whatever you
want there.
'pass in a MAPIFolder object to a procedure as objFolder
Dim colBarShortcuts As Outlook.OutlookBarShortcuts
Dim oBarShortcut As Outlook.OutlookBarShortcut
Dim oPane As Outlook.OutlookBarPane
Dim oGroup As Outlook.OutlookBarGroup
Dim blnAdd As Boolean
On Error Resume Next
Set oPane = olApp.Explorers.Item(1).Panes.Item("OutlookBar")
If Not (oPane Is Nothing) Then
Set oGroup = oPane.Contents.Groups.Item("Shortcuts")
If oGroup Is Nothing Then
Set oGroup = oPane.Contents.Groups.Add("Shortcuts")
End If
Set colBarShortcuts = oGroup.Shortcuts
blnAdd = True
For Each oBarShortcut In colBarShortcuts
If oBarShortcut.Name = objFolder.Name Then
blnAdd = False
Exit For
End If
Next
If blnAdd Then
colBarShortcuts.Add objFolder, objFolder.Name
End If
End If
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm
"Bill Hobson" <I.Hate.spamb-(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I would like to create a Favorites Folder section at the top of the Folder
> List pane in the Navigation Pane. Of course I hit a blank wall on the MS
> Knowledge Base (sometimes I wonder why I even bother to search there). You
> can right click anything you want and then click "add to my favorite
> folders", but there isn't any such thing as a Favorites Folder by default
> on
> the Folder List view of the Navigation Pane. Anyone know how to add one?
>
>
Similar Threads
