次の方法で共有

[お気に入りのフォルダー] グループにフォルダーを追加する

  • [アーティクル]

NavigationGroup オブジェクトの NavigationFolders コレクションの Add メソッドを使用して、Microsoft Outlook の [お気に入りのフォルダー] ナビゲーション グループにフォルダーを追加できます。 Add メソッドは、カスタム ナビゲーション フォルダーが関連付けられている Folder オブジェクト参照を受け入れます。

NavigationGroups オブジェクトの GetDefaultNavigationGroup メソッドを使用して、指定したナビゲーション グループの種類の既定のナビゲーション グループへの NavigationGroup オブジェクト参照を取得できます。

この例では、重要なアイテム用のメール フォルダーを新規に作成し、作成したフォルダーに対するユーザー設定のナビゲーション フォルダーを、メール モジュールのお気に入りフォルダー ナビゲーション グループに追加します。

メモ ソリューション モジュール用に作成されたソリューション固有のフォルダーを [お気に入りのフォルダー] の一覧に追加しようとすると、Outlook でエラーが発生します。

実行する処理は以下のとおりです。

  1. NameSpace オブジェクトの GetDefaultFolder メソッドを使用して、現在のユーザーの既定の 受信トレイ フォルダーを表す Folder オブジェクトへの参照を取得します。

  2. 次に、受信トレイの既定のフォルダーの Folders コレクションに、新しいメール フォルダーを表す "重要なアイテム" という名前の新しい Folder オブジェクトを作成します。

  3. アクティブなエクスプローラーの NavigationPane オブジェクトへの参照を取得し、 NavigationModules コレクションの GetNavigationModule メソッドを使用して MailModule オブジェクトへの参照を取得します。

  4. 次に、MailModule の NavigationGroups コレクションの GetDefaultNavigationGroup メソッドを使用して、Favorite Folders ナビゲーション グループへの NavigationGroup オブジェクト参照を取得します。

  5. 最後に、そのナビゲーション グループの NavigationGroups コレクションの Add メソッドを使用して、この例で作成した Folder オブジェクトに基づく新しい NavigationFolder オブジェクトをナビゲーション グループに追加します。

Private Sub CreateImportantFavoritesFolder() 
    Dim objNamespace As NameSpace 
    Dim objInbox As Folder 
    Dim objFolder As Folder 
     
    Dim objPane As NavigationPane 
    Dim objModule As MailModule 
    Dim objGroup As NavigationGroup 
    Dim objNavFolder As NavigationFolder 
     
    On Error GoTo ErrRoutine 
     
    ' First, retrieve the default Inbox folder. 
    Set objNamespace = Application.GetNamespace("MAPI") 
    Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox) 
     
    ' Create a new mail folder named "Important Items". 
    Set objFolder = objInbox.Folders.Add("Important Items") 
         
    ' Get the NavigationPane object for the 
    ' currently displayed Explorer object. 
    Set objPane = Application.ActiveExplorer.NavigationPane 
     
    ' Get the mail module from the Navigation Pane. 
    Set objModule = objPane.Modules.GetNavigationModule(olModuleMail) 
     
    ' Get the "Favorite Folders" navigation group from the 
    ' mail module. 
    With objModule.NavigationGroups 
        Set objGroup = .GetDefaultNavigationGroup(olFavoriteFoldersGroup) 
    End With 
     
    ' Add a new navigation folder for the "Important Items" 
    ' folder in the "Favorite Folders" navigation group. 
    Set objNavFolder = objGroup.NavigationFolders.Add(objFolder) 
     
EndRoutine: 
    On Error GoTo 0 
    Set objNavFolder = Nothing 
    Set objFolder = Nothing 
    Set objGroup = Nothing 
    Set objModule = Nothing 
    Set objPane = Nothing 
    Set objNamespace = Nothing 
    Exit Sub 
 
ErrRoutine: 
    MsgBox Err.Number & " - " & Err.Description, _ 
        vbOKOnly Or vbCritical, _ 
        "CreateImportantFavoritesFolder" 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。