Kako grupno uvesti rođendane iz Excel radnog lista u Outlook kalendar

Ako imate popis informacija o rođendanima u Excel radnom listu, možda ćete htjeti uvesti te rođendane u svoj Outlook kalendar kao događaje. Ovaj članak će vas voditi kako to postići u kratkom vremenu.

Iz prethodnog članka – “Kako grupno uvesti rođendane iz Excela u odgovarajuće Outlook kontakte”, možete naučiti kako dodati informacije o rođendanima u Excel relevantnim kontaktima. Slično tome, neki korisnici željeli bi kreirati Outlook rođendanske događaje iz podataka u Excel tablici. Gledajući ovaj problem, izložit ćemo još jedan dio VBA koda kako bismo vam pomogli da ga lakše dobijete.

Skupni uvoz rođendana iz Excela u Outlook kalendar

1. Prije svega, otvorite određenu Excel datoteku. Moj primjer Excel datoteke prikazan je na sljedećoj slici.
2. Zatim pritisnite “Alt + F11” da pokrenete Excel VBA editor.
3. Zatim, u novom prozoru „Microsoft Visual Basic for Applications“ omogućite referencu na „MS Outlook Object Library“ prema uputama „Kako dodati referencu biblioteke objekata u VBA".
4. Nakon toga kopirajte sljedeći VBA kod u projekt ili 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

Bilješka: 1. Promijenite određeni list prema svom slučaju.

2. Promijenite odgovarajući raspon ćelija ovisno o vlastitoj Excel datoteci.
3. Na kraju, izravno pritisnite tipku “F5” za pokretanje ove makronaredbe.
4. Kada makronaredba završi, možete otvoriti zadanu mapu Outlook kalendara, u kojoj možete vidjeti sve nove uvezene rođendanske događaje, kao na snimci zaslona u nastavku.

Ranjive Outlook PST datoteke

Poput Wordovih dokumenata i Excelovih radnih knjiga, Outlook PST datoteke jednako su ranjive. Godinama su mnogi korisnici bili izloženi oštećenju Outlook datoteke. U toj situaciji, moraju pokušati začepiti PST popravak. Ipak, obično ugrađeni alat za popravak – Scanpst to uvijek ne može postići. Stoga je u ovom tečaju vrlo potreban specijaliziraniji i vrhunski vanjski alat, kao što je DataNumen Outlook Repair, koji vam može pomoći izvući maksimum podataka iz oštećene PST datoteke.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com