Kā sērijveidā importēt dzimšanas dienas no Excel darblapas uz Outlook kalendāru

Ja Excel darblapā ir dzimšanas dienas informācijas saraksts, iespējams, vēlēsities importēt šīs dzimšanas dienas savā Outlook kalendārā kā notikumus. Šis raksts palīdzēs jums to paveikt ātri.

No iepriekšējā raksta - “Kā sērijveidā importēt dzimšanas dienas no Excel uz atbilstošajiem Outlook kontaktiem” varat uzzināt, kā attiecīgajiem kontaktiem pievienot dzimšanas dienas informāciju programmā Excel. Līdzīgi tam daži lietotāji vēlētos izveidot Outlook dzimšanas dienas notikumus no Excel lapas datiem. Apskatot šo jautājumu, mēs atklāsim vēl vienu VBA koda daļu, kas palīdzēs jums to viegli iegūt.

Sērijveida importēšanas dzimšanas dienas no Excel uz Outlook kalendāru

1. Atveriet konkrēto Excel failu. Mans Excel faila paraugs ir tāds, kā parādīts nākamajā attēlā.
2. Pēc tam nospiediet “Alt + F11”, lai aktivizētu Excel VBA redaktoru.
3. Pēc tam jaunajā logā “Microsoft Visual Basic for Applications” iespējojiet atsauci uz “MS Outlook objektu bibliotēku” atbilstoši “Kā pievienot objektu bibliotēkas atsauci VBA valodā".
4. Pēc tam kopējiet šo VBA kodu projektā vai 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

Piezīme: 1. Mainiet konkrēto lapu atbilstoši jūsu gadījumam.

2. Mainiet atbilstošo šūnu diapazonu atkarībā no sava Excel faila.
3. Visbeidzot, tieši nospiediet taustiņu “F5”, lai palaistu šo makro.
4. Kad makro ir pabeigts, varat atvērt Outlook noklusējuma kalendāra mapi, kurā varat redzēt visus jaunos importētos dzimšanas dienas notikumus, piemēram, zemāk redzamo ekrānuzņēmumu.

Neaizsargātie Outlook PST faili

Tāpat kā Word dokumenti un Excel darbgrāmatas, arī Outlook PST faili ir tikpat neaizsargāti. Gadiem ilgi daudziem lietotājiem ir bijuši pakļauti Outlook failu bojājumi. Tādā situācijā viņiem ir jāmēģina mezglot PST remonts. Tomēr parasti iebūvēts labošanas rīks - Scanpst to vienmēr nespēj paveikt. Tādējādi šajā kursā ļoti nepieciešams specializētāks un augstāka līmeņa ārējs rīks, piemēram, DataNumen Outlook Repair, kas var palīdzēt iegūt maksimālu datu daudzumu no korumpēta PST faila.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar