Hoe u verjaardagen van Excel-werkblad naar Outlook-agenda kunt importeren

Als u een lijst met verjaardagsinformatie in een Excel-werkblad heeft, wilt u deze verjaardagen misschien als afspraken in uw Outlook-agenda importeren. Dit artikel zal u helpen om dit in korte tijd te bereiken.

Uit het vorige artikel - “Hoe u verjaardagen in batches kunt importeren vanuit Excel naar de corresponderende Outlook-contactpersonen”, kunt u leren hoe u verjaardagsinformatie in Excel kunt toevoegen aan relevante contactpersonen. Vergelijkbaar met dat, willen sommige gebruikers Outlook-verjaardagsevenementen maken op basis van de gegevens in een Excel-blad. Als we naar dit probleem kijken, zullen we nog een stuk VBA-code blootleggen om u te helpen het gemakkelijk te krijgen.

Batch Import Verjaardagen van Excel naar Outlook-agenda

1. Open allereerst het specifieke Excel-bestand. Mijn voorbeeld van een Excel-bestand is zoals weergegeven in de volgende afbeelding.
2. Druk vervolgens op "Alt + F11" om de Excel VBA-editor te activeren.
3. Schakel vervolgens in het nieuwe venster "Microsoft Visual Basic for Applications" de verwijzing naar "MS Outlook Object Library" in volgens de instructies.Hoe voeg je een verwijzing naar een objectbibliotheek toe in VBA?'.
4. Kopieer daarna de volgende VBA-code naar een project of 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

Opmerking: 1. Verander het specifieke blad volgens uw geval.

2. Wijzig het bijbehorende celbereik afhankelijk van uw eigen Excel-bestand.
3. Druk ten slotte rechtstreeks op de toets "F5" om deze macro uit te voeren.
4. Wanneer de macro is voltooid, kunt u uw Outlook-standaardagendamap openen, waarin u alle nieuwe geïmporteerde verjaardagsevenementen kunt zien, zoals de onderstaande schermafbeelding.

Kwetsbare Outlook PST-bestanden

Net als Word-documenten en Excel-werkmappen zijn Outlook PST-bestanden virtueel kwetsbaar. Jarenlang zijn veel gebruikers ooit het slachtoffer geweest van schade aan Outlook-bestanden. In die situatie moeten ze knoestig proberen PST-reparatie. Maar meestal is de ingebouwde reparatietool Scanpst altijd niet in staat om dit te bereiken. Daarom is in deze cursus een meer gespecialiseerde en hoogwaardige externe tool zeer vereist, zoals DataNumen Outlook Repair, waarmee u maximale gegevens uit een beschadigd PST-bestand kunt extraheren.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com