Comment : associer une page Web à un dossier Outlook par programmation

Cet exemple vérifie la présence d'un dossier nommé HtmlView dans Microsoft Office Outlook.Si le dossier n'existe pas, le code crée le dossier et lui assigne une page Web.Si le dossier existe, le code en affiche le contenu.

S'applique à : Les informations contenues dans cette rubrique s'appliquent aux projets de niveau application pour Outlook 2013 et Outlook 2010. Pour en savoir plus, consultez Fonctionnalités disponibles par type d'application et de projet Office.

Exemple

Private Sub CreateHtmlView()
    Dim newView As Outlook.MAPIFolder = Nothing
    Dim viewName As String = "HtmlView"
    Dim inBox As Outlook.MAPIFolder = Me.Application.ActiveExplorer(). _
        Session.GetDefaultFolder(Outlook.OlDefaultFolders _
        .olFolderInbox)
    Dim searchFolders As Outlook.Folders = inBox.Folders()
    Dim foundView As Boolean = False
    For Each searchFolder As Outlook.MAPIFolder In searchFolders
        If searchFolder.Name = viewName Then
            newView = inBox.Folders(viewName)
            foundView = True
        End If
    Next
    If foundView = False Then
        newView = inBox.Folders.Add(viewName, _
        Outlook.OlDefaultFolders.olFolderInbox)
        newView.WebViewURL = "https://www.microsoft.com"
        newView.WebViewOn = True
    End If
    Application.ActiveExplorer.SelectFolder(newView)
    Application.ActiveExplorer.CurrentFolder.Display()
End Sub

private void CreateHtmlFolder()
{
    Outlook.MAPIFolder newView = null;
    string viewName = "HtmlView";
    Outlook.MAPIFolder inBox = (Outlook.MAPIFolder)
        this.Application.ActiveExplorer().Session.GetDefaultFolder(Outlook
        .OlDefaultFolders.olFolderInbox);
    Outlook.Folders searchFolders = (Outlook.Folders)inBox.Folders;
    bool foundView = false;
    foreach (Outlook.MAPIFolder searchFolder in searchFolders)
    {
        if (searchFolder.Name == viewName)
        {
            newView = inBox.Folders[viewName];
            foundView = true;
        }
    }
    if (!foundView)
    {
        newView = (Outlook.MAPIFolder)inBox.Folders.
            Add("HtmlView", Outlook.OlDefaultFolders.olFolderInbox);
        newView.WebViewURL = "https://www.microsoft.com";
        newView.WebViewOn = true;
    }
    Application.ActiveExplorer().SelectFolder(newView);
    Application.ActiveExplorer().CurrentFolder.Display();
}

Voir aussi

Tâches

Comment : récupérer un dossier par nom par programmation

Comment : créer des éléments de dossier personnalisés par programmation

Concepts

Utilisation des dossiers