Come importare in batch i compleanni dal foglio di lavoro di Excel al calendario di Outlook

Se hai un elenco di informazioni sui compleanni in un foglio di lavoro di Excel, potresti voler importare questi compleanni nel tuo calendario di Outlook come eventi. Questo articolo ti guiderà a realizzarlo in tempi rapidi.

Dall'articolo precedente - "Come importare in batch i compleanni da Excel ai corrispondenti contatti di Outlook", puoi imparare i mezzi per aggiungere informazioni sui compleanni in un Excel ai contatti pertinenti. Analogamente, alcuni utenti vorrebbero creare eventi di compleanno di Outlook dai dati in un foglio Excel. Esaminando questo problema, esporremo un altro pezzo di codice VBA per aiutarti a ottenerlo con facilità.

Importa in batch i compleanni da Excel al calendario di Outlook

1. Prima di tutto, apri il file Excel specifico. Il mio file Excel di esempio è come mostrato nella figura seguente.
2. Quindi, premi "Alt + F11" per attivare l'editor VBA di Excel.
3. Successivamente, nella nuova finestra “Microsoft Visual Basic for Applications”, abilitare il riferimento a “MS Outlook Object Library” secondo “Come aggiungere un riferimento a una libreria di oggetti in VBA".
4. Successivamente, copia il seguente codice VBA in un progetto o modulo.

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

Attenzione: 1. Cambia il foglio specifico secondo il tuo caso.

2. Modifica l'intervallo di celle corrispondente in base al tuo file Excel.
3. Infine, premi direttamente il tasto "F5" per eseguire questa macro.
4. Al termine della macro, puoi aprire la cartella del calendario predefinita di Outlook, in cui puoi vedere tutti i nuovi eventi di compleanno importati, come lo screenshot qui sotto.

File PST di Outlook vulnerabili

Come i documenti di Word e le cartelle di lavoro di Excel, virtualmente, i file PST di Outlook sono gli stessi vulnerabili. Per anni, molti utenti sono stati soggetti a danni ai file di Outlook. In quella situazione, devono tentare nodoso Riparazione PST. Tuttavia, comunemente, strumento di correzione integrato: Scanpst non è sempre in grado di farlo. Pertanto, in questo corso, è altamente richiesto uno strumento esterno più specializzato e di alto livello, come ad esempio DataNumen Outlook Repair, che può aiutarti a estrarre il massimo dei dati dal file PST corrotto.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui sql corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com