Cómo: Crear elementos de carpeta personalizados

En este ejemplo se crea una nueva carpeta en Microsoft Office Outlook. El nombre del usuario que inició la sesión se utiliza como nombre de carpeta.

Se aplica a: la información de este tema se aplica a los proyectos de nivel de aplicación para Outlook 2007 y Outlook 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.

Ejemplo

Private Sub CreateNewFolder()
    Dim inBox As Outlook.MAPIFolder = Me.Application.ActiveExplorer().Session. _
        GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
    Dim userName As String = Me.Application.ActiveExplorer() _
        .Session.CurrentUser.Name
    Dim customFolder As Outlook.MAPIFolder
    Try
        customFolder = inBox.Folders.Add(userName, Outlook _
           .OlDefaultFolders.olFolderInbox)
        MsgBox("You have created a new folder named " _
            & userName & ".")
        inBox.Folders(userName).Display()
    Catch ex As Exception
        MsgBox("The following error occurred: " & ex.Message)
    End Try
End Sub

private void CreateCustomFolder()
{
    Outlook.MAPIFolder inBox = (Outlook.MAPIFolder)
        this.Application.ActiveExplorer().Session.GetDefaultFolder
        (Outlook.OlDefaultFolders.olFolderInbox);
    string userName = (string)this.Application.ActiveExplorer()
        .Session.CurrentUser.Name;
    Outlook.MAPIFolder customFolder = null;
    try
    {
        customFolder = (Outlook.MAPIFolder)inBox.Folders.Add(userName,
            Outlook.OlDefaultFolders.olFolderInbox);
        MessageBox.Show("You have created a new folder named " +
            userName + ".");
        inBox.Folders[userName].Display();
    }
    catch (Exception ex)
    {
        MessageBox.Show("The following error occurred: " + ex.Message);
    }
}

Vea también

Tareas

Cómo: Agregar una entrada a los contactos de Outlook

Cómo: Crear citas

Conceptos

Trabajar con carpetas