Cómo importar cumpleaños por lotes desde la hoja de cálculo de Excel al calendario de Outlook

Si tiene una lista de información de cumpleaños en una hoja de cálculo de Excel, es posible que desee importar estos cumpleaños a su calendario de Outlook como eventos. Este artículo lo guiará para lograrlo en poco tiempo.

En el artículo anterior - "Cómo importar cumpleaños por lotes desde Excel a los contactos de Outlook correspondientes", puede aprender los medios para agregar información de cumpleaños en un Excel a los contactos relevantes. De manera similar, a algunos usuarios les gustaría crear eventos de cumpleaños de Outlook a partir de los datos en una hoja de Excel. Al analizar este problema, expondremos otra pieza de código VBA para ayudarlo a obtenerlo con facilidad.

Importar cumpleaños por lotes desde Excel al calendario de Outlook

1. Primero de todo, abra el archivo específico de Excel. Mi archivo de ejemplo de Excel es como se muestra en la siguiente figura.
2. Luego, presione "Alt + F11" para activar el editor de Excel VBA.
3. A continuación, en la nueva ventana “Microsoft Visual Basic para Aplicaciones”, habilite la referencia a “Biblioteca de objetos de MS Outlook” según “Cómo agregar una referencia a una biblioteca de objetos en VBA".
4. Después de eso, copie el siguiente código VBA en un proyecto o módulo.

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

Nota: 1. Cambie la hoja específica según su caso.

2. Cambie el rango de celda correspondiente según su propio archivo de Excel.
3. Finalmente, presione directamente la tecla "F5" para ejecutar esta macro.
4. Cuando finaliza la macro, puede abrir su carpeta de calendario predeterminada de Outlook, en la que puede ver todos los nuevos eventos de cumpleaños importados, como la captura de pantalla a continuación.

Archivos PST de Outlook vulnerables

Al igual que los documentos de Word y los libros de trabajo de Excel, virtualmente, los archivos PST de Outlook son igualmente vulnerables. Durante años, muchos usuarios han estado sujetos a daños en los archivos de Outlook. En esa situación, tienen que intentar nudosos Reparación de PST. Sin embargo, comúnmente, herramienta de reparación incorporada: Scanpst siempre no puede lograrlo. Por lo tanto, en este curso, se requiere una herramienta externa más especializada y de primer nivel, como DataNumen Outlook Repair, que puede ayudarlo a extraer el máximo de datos de un archivo PST corrupto.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo sql corrupto y productos de software de reparación de Outlook. Para más información visite www.datanumen.com