Comment : créer des éléments de dossier personnalisés
Mise à jour : novembre 2007
S'applique à |
---|
Les informations de cette rubrique s'appliquent uniquement aux projets et versions Visual Studio Tools pour Office spécifiés de Microsoft Office. Type de projet
Version de Microsoft Office
Pour plus d'informations, consultez Fonctionnalités disponibles par type d'application et de projet. |
Cet exemple crée un dossier dans Microsoft Office Outlook. Le nom de l'utilisateur connecté est utilisé pour le nom du dossier.
Exemple
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)
MessageBox.Show("You have created a new folder named " _
& userName & ".")
inBox.Folders(userName).Display()
Catch ex As Exception
MessageBox.Show("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);
}
}
Voir aussi
Tâches
Comment : ajouter une entrée aux contacts Outlook
Comment : créer des rendez-vous