Jak dávkově importovat narozeniny z listu aplikace Excel do kalendáře aplikace Outlook

Pokud máte v listu Excel seznam informací o narozeninách, možná budete chtít tyto narozeniny importovat do svého kalendáře Outlook jako události. Tento článek vás provede rychlým provedením.

Z předchozího článku - „Jak hromadně importovat narozeniny z aplikace Excel do odpovídajících kontaktů aplikace Outlook“ se můžete dozvědět, jak přidat informace o narozeninách v aplikaci Excel k příslušným kontaktům. Podobně jako někteří uživatelé by rádi vytvořili události narozenin aplikace Outlook z dat v listu aplikace Excel. Podíváme-li se na toto vydání, vystavíme další část kódu VBA, abychom vám ji snadno získali.

Dávkový import narozenin z aplikace Excel do kalendáře aplikace Outlook

1. Nejprve otevřete konkrétní soubor aplikace Excel. Můj ukázkový soubor Excel je znázorněn na následujícím obrázku.
2. Poté stisknutím kombinace kláves „Alt + F11“ spusťte editor Excel VBA.
3. Dále v novém okně „Microsoft Visual Basic for Applications“ povolte odkaz na „Knihovnu objektů MS Outlook“ podle pokynů „Jak přidat odkaz na knihovnu objektů ve VBA".
4. Poté zkopírujte následující kód VBA do projektu nebo 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. Změňte konkrétní list podle svého případu.

2. Změňte odpovídající rozsah buněk v závislosti na vašem vlastním souboru aplikace Excel.
3. Nakonec toto makro spusťte přímo stisknutím klávesy „F5“.
4. Po dokončení makra můžete otevřít výchozí složku kalendáře Outlooku, ve které uvidíte všechny nové importované události narozenin, například snímek obrazovky níže.

Zranitelné soubory PST aplikace Outlook

Stejně jako dokumenty Word a sešity aplikace Excel jsou soubory aplikace Outlook PST prakticky zranitelné. Po celá léta bylo mnoho uživatelů někdy vystaveno poškození souborů aplikace Outlook. V této situaci se musí pokusit o uzel Oprava PST. Obvykle však vestavěný nástroj pro opravu - Scanpst to vždy nedokáže. Proto je v tomto kurzu vysoce specializovaný a špičkový externí nástroj vysoce vyžadován, jako např DataNumen Outlook Repair, který vám pomůže extrahovat maximum dat z poškozeného souboru PST.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com