Kaip paketu importuoti gimtadienius iš „Excel“ darbalapio į „Outlook“ kalendorių

Jei „Excel“ darbalapyje turite gimtadienio informacijos sąrašą, galbūt norėsite importuoti šiuos gimtadienius į „Outlook“ kalendorių kaip įvykius. Šis straipsnis padės jums tai padaryti greitai.

Iš ankstesnio straipsnio „Kaip grupiškai importuoti gimtadienius iš „Excel“ į atitinkamus „Outlook“ kontaktus“ galite sužinoti, kaip įtraukti gimtadienio informaciją „Excel“ prie atitinkamų kontaktų. Panašiai, kai kurie vartotojai norėtų sukurti „Outlook“ gimtadienio įvykius iš „Excel“ lapo duomenų. Nagrinėdami šią problemą, pateiksime dar vieną VBA kodo dalį, kuri padės jums ją lengvai gauti.

Gimtadienių paketo importavimas iš „Excel“ į „Outlook“ kalendorių

1. Pirmiausia atidarykite konkretų „Excel“ failą. Mano pavyzdys „Excel“ failas yra toks, kaip parodyta toliau pateiktame paveikslėlyje.
2. Tada paspauskite „Alt + F11“, kad paleistumėte „Excel“ VBA redaktorių.
3. Toliau naujame lange „Microsoft Visual Basic for Applications“ įjunkite nuorodą į „MS Outlook objektų biblioteką“ pagal „Kaip pridėti objektų bibliotekos nuorodą VBA".
4. Po to nukopijuokite šį VBA kodą į projektą arba 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

Pastaba: 1. Pakeiskite konkretų lapą pagal savo atvejį.

2. Pakeiskite atitinkamą langelių diapazoną, atsižvelgdami į savo Excel failą.
3. Galiausiai, tiesiogiai paspauskite klavišą „F5“, kad paleistumėte šią makrokomandą.
4. Baigę makrokomandą, galite atidaryti numatytąjį „Outlook“ kalendoriaus aplanką, kuriame galite matyti visus naujus importuotus gimtadienio įvykius, pvz., toliau pateiktą ekrano kopiją.

Pažeidžiami Outlook PST failai

Kaip ir „Word“ dokumentai ir „Excel“ darbaknygės, „Outlook PST“ failai yra tokie pat pažeidžiami. Daugelį metų daugelis vartotojų patyrė „Outlook“ failų pažeidimus. Esant tokiai situacijai, jie turi bandyti sukti PST remontas. Tačiau dažniausiai įmontuotas taisymo įrankis – „Scanpst“ visada negali to atlikti. Todėl šiame kurse labai reikalingas labiau specializuotas ir aukščiausio lygio išorinis įrankis, pvz DataNumen Outlook Repair, kuris gali padėti iš sugadinto PST failo išgauti maksimalų duomenų kiekį.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com