Hoe verjaardagen importeren van Excel naar Outlook-agenda?

Als u een lange lijst met verjaardagsgegevens in een werkblad hebt, wilt u deze verjaardagen nu als gebeurtenissen in uw Outlook-agenda importeren. Hoe zou je deze taak kunnen aanpakken met enkele snelle methoden?

---

Importeer verjaardagen van Excel naar Outlook-agenda met VBA-code

Normaal gesproken is er geen directe manier om de verjaardagen in de Outlook-agenda te importeren, hier zal ik een VBA-code maken om dit probleem op te lossen, doe dit als volgt:

1. Open het werkblad met de verjaardagen die u in Outlook wilt importeren en houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: verjaardagen importeren in Outlook-agenda

Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
  MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
  Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
  Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
  With xAppointmentItem
    .Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
    .AllDayEvent = True
    .Start = xRng.Cells(xRow, 2)
    Set xRecurrencePattern = .GetRecurrencePattern
    xRecurrencePattern.RecurrenceType = olRecursYearly
    .Save
  End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub

3. Nog steeds in de Microsoft Visual Basic voor toepassingen venster klikt Toolbox > Referenties. In de pop-out Referenties - VBAProject dialoogvenster, vink aan Microsoft Outlook 16.0 Objectbibliotheek optie vorm de Beschikbare referenties keuzelijst, zie screenshot:

4. Dan klikken OK om dit dialoogvenster te sluiten. Druk nu op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster, selecteer de naam- en verjaardagskolommen, zie screenshot:

5. En klik dan OK knop, worden de verjaardagen in één keer geïmporteerd in de Outlook-agenda, u kunt uw Outlook starten om het resultaat te bekijken, zie screenshot: