Kako paketno uvoziti rojstne dneve iz Excelovega delovnega lista v Outlookov koledar

Če imate na Excelovem delovnem listu seznam podatkov o rojstnih dnevih, boste te rojstne dneve morda želeli uvoziti v Outlookov koledar kot dogodke. Ta članek vam bo pomagal, da to hitro dosežete.

Iz prejšnjega članka – »Kako paketno uvoziti rojstne dneve iz Excela v ustrezne Outlookove stike«, se lahko naučite, kako ustreznim stikom dodate informacije o rojstnem dnevu v Excelu. Podobno bi nekateri uporabniki radi ustvarili rojstnodnevne dogodke Outlooka iz podatkov v Excelovem listu. Če pogledamo to težavo, bomo izpostavili še en del kode VBA, ki vam bo pomagala, da jo zlahka dobite.

Paketni uvoz rojstnih dni iz Excela v Outlookov koledar

1. Najprej odprite določeno Excelovo datoteko. Moja vzorčna datoteka Excel je prikazana na naslednji sliki.
2. Nato pritisnite “Alt + F11”, da sprožite urejevalnik Excel VBA.
3. Nato v novem oknu »Microsoft Visual Basic for Applications« omogočite sklic na »Knjižnico objektov MS Outlook« v skladu z »Kako dodati referenco knjižnice objektov v VBA".
4. Po tem kopirajte naslednjo kodo VBA v projekt ali 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

Opomba: 1. Spremenite določen list glede na vaš primer.

2. Spremenite ustrezen obseg celic glede na lastno datoteko Excel.
3. Končno pritisnite tipko "F5", da zaženete ta makro.
4. Ko se makro konča, lahko odprete Outlookovo privzeto koledarsko mapo, v kateri si lahko ogledate vse nove uvožene rojstnodnevne dogodke, kot na spodnjem posnetku zaslona.

Ranljive Outlookove datoteke PST

Tako kot Wordovi dokumenti in Excelovi delovni zvezki so praktično tudi Outlookove datoteke PST enako ranljive. Številni uporabniki so bili leta izpostavljeni poškodbam Outlookovih datotek. V tej situaciji morajo poskusiti zavozlati Popravilo PST. Vendar pa običajno vgrajeno orodje za popravilo – Scanpst tega vedno ne zmore. Zato je v tem predmetu zelo potrebno bolj specializirano in vrhunsko zunanje orodje, kot je npr DataNumen Outlook Repair, ki vam lahko pomaga pridobiti največ podatkov iz poškodovane datoteke PST.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjen sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com