Enregistrement d’un calendrier sur disque

Cet exemple montre comment enregistrer un calendrier entier sur le disque au format de fichier iCalendar (.ics).

Exemple

Cet exemple de code utilise l'objet CalendarSharing qui prend en charge l'enregistrement d'un calendrier entier ou d'une plage de rendez-vous du calendrier sur le disque. Outlook optimise automatiquement un fichier .ics afin que les rendez-vous périodiques n'y soient pas enregistrés en tant que rendez-vous individuels. Selon la taille du calendrier enregistré, l'enregistrement sur disque peut être relativement long. Pendant l'enregistrement du calendrier, la fenêtre Outlook ne répond plus à l'utilisateur.

L'exemple de code commence par appeler la méthode GetCalendarExporter sur le dossier Calendrier par défaut pour obtenir un objet CalendarSharing. Il définit ensuite les propriétés de l'objet CalendarSharing afin de spécifier les critères de l'exportation, comme le fait que le calendrier entier doit être enregistré et inclure les détails des rendez-vous marqués comme « privés ».

Pour enregistrer les informations au format de fichier .ics, l’exemple de code appelle la méthode SaveAsICal de l’objet CalendarSharing.

Si vous utilisez Visual Studio pour tester cet exemple de code, vous devez d’abord ajouter une référence au composant Bibliothèque d’objets Microsoft Outlook 15.0 et spécifier la variable lorsque vous importez l’espace de noms Microsoft.Office.Interop.Outlook. L'instruction Importer ou utilisation ne doit pas se produire juste avant les fonctions de l'exemple de code, mais doit être ajoutée avant la déclaration publique. Les lignes de code suivantes montrent comment effectuer l’importation et l’affectation dans Visual Basic et dans C#.

Imports Outlook = Microsoft.Office.Interop.Outlook

using Outlook = Microsoft.Office.Interop.Outlook;

Private Sub SaveCalendarToDisk(ByVal calendarFileName As String)
    If String.IsNullOrEmpty(calendarFileName) Then
        Throw New ArgumentException( _
        "Parameter must contain a value.", "calendarFileName")
    End If

    Dim calendar As Outlook.Folder = TryCast( _
        Application.Session.GetDefaultFolder(_
        Outlook.OlDefaultFolders.olFolderCalendar), Outlook.Folder)
    Dim exporter As Outlook.CalendarSharing = _
        calendar.GetCalendarExporter()

    '' Set the properties for the export
    exporter.CalendarDetail = Outlook.OlCalendarDetail.olFullDetails
    exporter.IncludeAttachments = True
    exporter.IncludePrivateDetails = True
    exporter.RestrictToWorkingHours = False
    exporter.IncludeWholeCalendar = True

    '' Save the calendar to disk
    exporter.SaveAsICal(calendarFileName)
End Sub

private void SaveCalendarToDisk(string calendarFileName)
{
    if (string.IsNullOrEmpty(calendarFileName))
        throw new ArgumentException("calendarFileName", 
        "Parameter must contain a value.");

    Outlook.Folder calendar = Application.Session.GetDefaultFolder(
        Outlook.OlDefaultFolders.olFolderCalendar) as Outlook.Folder;
    Outlook.CalendarSharing exporter = calendar.GetCalendarExporter();

    // Set the properties for the export
    exporter.CalendarDetail = Outlook.OlCalendarDetail.olFullDetails;
    exporter.IncludeAttachments = true;
    exporter.IncludePrivateDetails = true;
    exporter.RestrictToWorkingHours = false;
    exporter.IncludeWholeCalendar = true;

    // Save the calendar to disk
    exporter.SaveAsICal(calendarFileName);
}

Voir aussi

• Calendar