Ako dávkový import narodenín z pracovného hárka programu Excel do kalendára programu Outlook

Ak máte v pracovnom hárku programu Excel zoznam informácií o narodeninách, možno budete chcieť tieto narodeniny importovať do svojho kalendára Outlook ako udalosti. Tento článok vás prevedie jeho dosiahnutím v krátkom čase.

Z predchádzajúceho článku - „Ako hromadne importovať narodeniny z Excelu do zodpovedajúcich kontaktov programu Outlook“ sa môžete dozvedieť, ako pridať informácie o narodeninách v programe Excel k príslušným kontaktom. Niektorí používatelia by podobne chceli vytvoriť narodeninové udalosti programu Outlook z údajov v hárku programu Excel. Pri pohľade na toto vydanie zverejníme ďalší kúsok kódu VBA, ktorý vám pomôže tento kód ľahko získať.

Dávkový import narodenín z programu Excel do kalendára programu Outlook

1. Najskôr otvorte konkrétny súbor programu Excel. Môj vzorový súbor programu Excel je znázornený na nasledujúcom obrázku.
2. Potom stlačte kombináciu klávesov „Alt + F11“ a spustite editor Excel VBA.
3. Ďalej v novom okne „Microsoft Visual Basic for Applications“ povoľte odkaz na „Knižnicu objektov MS Outlook“ podľa „Ako pridať odkaz na knižnicu objektov vo VBA".
4. Potom skopírujte nasledujúci kód VBA do projektu alebo modulu.

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

Poznámka: 1. Zmeňte konkrétny hárok podľa vášho prípadu.

2. Zmeňte zodpovedajúci rozsah buniek v závislosti od vlastného súboru programu Excel.
3. Nakoniec toto makro spustíte priamo stlačením klávesu „F5“.
4. Po dokončení makra môžete otvoriť predvolený priečinok kalendára programu Outlook, v ktorom uvidíte všetky nové importované udalosti narodenín, napríklad snímku obrazovky nižšie.

Zraniteľné súbory Outlook PST

Rovnako ako dokumenty Word a zošity Excel sú aj súbory PST aplikácie Outlook rovnako zraniteľné. Mnoho rokov bolo mnoho používateľov vystavených poškodeniu súborov aplikácie Outlook. V tejto situácii sa musia pokúsiť zauzliť Oprava PST. Napriek tomu je bežne zabudovaný nástroj na opravu - program Scanpst ho vždy nedokáže dosiahnuť. Preto je v tomto kurze vysoko potrebný špecializovanejší a špičkový externý nástroj, ako napr DataNumen Outlook Repair, ktoré vám môžu pomôcť extrahovať maximum údajov z poškodeného súboru PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skorumpovaný sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S