Comment importer par lots des anniversaires d'une feuille de calcul Excel vers le calendrier Outlook

Si vous disposez d'une liste d'informations sur les anniversaires dans une feuille de calcul Excel, vous souhaiterez peut-être importer ces anniversaires dans votre calendrier Outlook en tant qu'événements. Cet article vous guidera pour l'accomplir en un temps record.

Dans l'article précédent - "Comment importer par lots des anniversaires d'Excel vers les contacts Outlook correspondants", vous pouvez apprendre les moyens d'ajouter des informations d'anniversaire dans un Excel aux contacts pertinents. De la même manière, certains utilisateurs souhaitent créer des événements d'anniversaire Outlook à partir des données d'une feuille Excel. En examinant ce problème, nous allons exposer un autre morceau de code VBA pour vous aider à l'obtenir facilement.

Importation par lots des anniversaires d'Excel vers le calendrier Outlook

1. Tout d'abord, ouvrez le fichier Excel spécifique. Mon exemple de fichier Excel est illustré dans la figure suivante.
2. Ensuite, appuyez sur "Alt + F11" pour lancer l'éditeur Excel VBA.
3. Ensuite, dans la nouvelle fenêtre « Microsoft Visual Basic pour Applications », activez la référence à « Bibliothèque d’objets MS Outlook » conformément à « Comment ajouter une référence à une bibliothèque d'objets en VBA" .
4. Après cela, copiez le code VBA suivant dans un projet ou un module.

Sub ImportBirthdaysToCalendar()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objOutlookApp As Outlook.Application
    Dim objCalendar As Outlook.Folder
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Get the specific sheet
    Set objWorksheet = ThisWorkbook.Sheets(1)
    nLastRow = objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row
 
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objCalendar = objOutlookApp.Session.GetDefaultFolder(olFolderCalendar)
 
    For nRow = 2 To nLastRow
        Set objBirthdayEvent = objCalendar.Items.Add("IPM.Appointment")
 
        'Create birthday events
        With objBirthdayEvent
            .Subject = objWorksheet.Range("A" & nRow) & Chr(39) & "s Birthday"
            .AllDayEvent = True
            .Start = objWorksheet.Range("B" & nRow)
         Set objRecurrencePattern = .GetRecurrencePattern
         objRecurrencePattern.RecurrenceType = olRecursYearly
            .Save
        End With
    Next
End Sub

À noter: 1. Modifiez la feuille spécifique selon votre cas.

2. Modifiez la plage de cellules correspondante en fonction de votre propre fichier Excel.
3. Enfin, appuyez directement sur la touche "F5" pour exécuter cette macro.
4. Lorsque la macro se termine, vous pouvez ouvrir votre dossier de calendrier Outlook par défaut, dans lequel vous pouvez voir tous les nouveaux événements d'anniversaire importés, comme la capture d'écran ci-dessous.

Fichiers Outlook PST vulnérables

Comme les documents Word et les classeurs Excel, virtuellement, les fichiers Outlook PST sont également vulnérables. Pendant des années, de nombreux utilisateurs ont subi des dommages aux fichiers Outlook. Dans cette situation, ils doivent tenter de nouer Réparation PST. Pourtant, généralement, outil de réparation intégré - Scanpst est toujours incapable de l'accomplir. Par conséquent, dans ce cours, un outil externe plus spécialisé et de premier plan est fortement requis, tel que DataNumen Outlook Repair, qui peut vous aider à extraire un maximum de données d'un fichier PST corrompu.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris sql corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com