Porady: Programowane kojarzenie strony sieci Web z folderem programu Outlook

W tym przykładzie sprawdza, czy do folderu o nazwie HtmlView w Microsoft Office Outlook.Jeśli folder nie istnieje, kod tworzy folder i przypisuje ją strony sieci Web.Jeśli folder nie istnieje, kod wyświetla zawartość folderu.

Zastosowanie: Informacje przedstawione w tym temacie mają zastosowanie do projektów na poziomie aplikacji obsługiwanych w programach Outlook 2013 i Outlook 2010. Aby uzyskać więcej informacji, zobacz Funkcje dostępne w aplikacjach pakietu Office i typ projektu.

Przykład

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();
}

Zobacz też

Zadania

Porady: Programowane pobieranie folderu na podstawie nazwy

Porady: Programowane tworzenie niestandardowych elementów folderu

Koncepcje

Praca z folderami