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

Ako imate listu informacija o rođendanima u Excel radnom listu, možda ćete želeti da uvezete ove rođendane u svoj Outlook kalendar kao događaje. Ovaj članak će vas uputiti da to postignete u kratkom vremenu.

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

Grupni uvoz rođendana iz Excela u Outlook kalendar

1. Kao prvo, otvorite određenu Excel datoteku. Moj primjer Excel datoteke je prikazan 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 uputstvu „Kako dodati referencu biblioteke objekata u VBA".
4. Nakon toga kopirajte sljedeći VBA kod u projekat 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 vašem slučaju.

2. Promijenite odgovarajući raspon ćelija ovisno o vlastitoj Excel datoteci.
3. Na kraju, direktno pritisnite tipku “F5” da pokrenete ovaj makro.
4. Kada se makro završi, možete otvoriti svoju zadanu mapu kalendara u Outlooku, u kojoj možete vidjeti sve nove uvezene rođendanske događaje, kao na slici ispod.

Ranjive Outlook PST datoteke

Poput Word dokumenata i Excel radnih knjiga, virtualno, Outlook PST datoteke su jednako ranjive. Godinama su mnogi korisnici ikada bili izloženi oštećenju Outlookovih datoteka. U toj situaciji, oni moraju pokušati knotty PST repair. Ipak, obično, ugrađeni alat za popravke – Scanpst to uvijek ne može postići. Stoga je u ovom kursu veoma potreban specijalizovaniji i vrhunski eksterni alat, kao što je npr DataNumen Outlook Repair, što vam može pomoći da izvučete maksimum podataka iz oštećene PST datoteke.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući korumpiran sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com