¿Cómo importar cumpleaños desde Excel al calendario de Outlook?

Si tiene una extensa lista de cumpleaños en una hoja de cálculo y desea importarlos a su calendario de Outlook como eventos, ¿cómo puede hacerlo de forma rápida?

---

Importar cumpleaños desde Excel al calendario de Outlook con código VBA

Normalmente, no existe una forma directa de importar los cumpleaños al calendario de Outlook. A continuación, le presento un código VBA que resuelve este problema. Siga estos sencillos pasos:

1. Abra la hoja de cálculo que contiene los cumpleaños que desea importar a Outlook y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.

Código VBA: Importar cumpleaños al calendario de Outlook

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. Todavía en la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias. En el cuadro de diálogo emergente Referencias: VBAProject, active la opción Microsoft Outlook 16,0 Object Library en el cuadro de lista Referencias disponibles. Consulte la captura de pantalla:

4. A continuación, haga clic en Aceptar para cerrar este cuadro de diálogo. Ahora, pulse la tecla F5 para ejecutar este código y aparecerá un cuadro de diálogo en el que deberá seleccionar las columnas de nombre y cumpleaños. Consulte la captura de pantalla:

5. A continuación, haga clic en el botón Aceptar y los cumpleaños se importarán inmediatamente al calendario de Outlook. Abra Outlook para ver el resultado; consulte la captura de pantalla: