Cum să importați în loturi zilele de naștere din foaia de lucru Excel în calendarul Outlook

Dacă aveți o listă de informații despre ziua nașterii într-o foaie de lucru Excel, este posibil să doriți să importați aceste zile de naștere în calendarul dvs. Outlook ca evenimente. Acest articol vă va ghida pentru a o realiza în timp util.

Din articolul anterior – „Cum să importați în loturi zilele de naștere din Excel în contactele corespunzătoare din Outlook”, puteți afla modalitățile de a adăuga informații despre ziua de naștere într-un Excel la contactele relevante. Similar cu asta, unii utilizatori ar dori să creeze evenimente de naștere Outlook din datele dintr-o foaie Excel. Privind această problemă, vom expune o altă bucată de cod VBA pentru a vă ajuta să o obțineți cu ușurință.

Import în loturi zile de naștere din Excel în Calendar Outlook

1. În primul rând, deschideți fișierul Excel specific. Exemplul meu de fișier Excel este așa cum se arată în figura următoare.
2. Apoi, apăsați „Alt + F11” pentru a declanșa editorul Excel VBA.
3. Apoi, în noua fereastră „Microsoft Visual Basic for Applications”, activați referința la „MS Outlook Object Library” conform „Cum se adaugă o referință la o bibliotecă de obiecte în VBA".
4. După aceea, copiați următorul cod VBA într-un proiect sau modul.

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

Notă: 1. Schimbați foaia specifică în funcție de cazul dvs.

2. Modificați intervalul de celule corespunzătoare în funcție de propriul fișier Excel.
3. În cele din urmă, apăsați direct tasta „F5” pentru a rula această macrocomandă.
4. Când macrocomanda se termină, puteți deschide folderul calendar implicit Outlook, în care puteți vedea toate noile evenimente de naștere importate, cum ar fi captura de ecran de mai jos.

Fișiere PST Outlook vulnerabile

La fel ca documentele Word și registrele de lucru Excel, practic, fișierele PST Outlook sunt la fel de vulnerabile. De ani de zile, mulți utilizatori au fost supuși vreodată deteriorării fișierelor Outlook. În această situație, ei trebuie să încerce noduri reparație PST. Cu toate acestea, în mod obișnuit, instrumentul de remediere încorporat - Scanpst este întotdeauna în imposibilitatea de a realiza acest lucru. Prin urmare, în acest curs, este foarte necesar un instrument extern mai specializat și de top, cum ar fi DataNumen Outlook Repair, care vă poate ajuta să extrageți maximum de date din fișierul PST corupt.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv sql corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com