Paano Mag-Batch ng Mga Kaarawan mula sa Excel Worksheet papunta sa Outlook Calendar

Kung mayroon kang listahan ng impormasyon ng kaarawan sa isang worksheet ng Excel, maaaring gusto mong i-import ang mga kaarawan na ito sa iyong kalendaryo sa Outlook bilang mga kaganapan. Gagabayan ka ng artikulong ito upang magawa ito sa mabilis na panahon.

Mula sa nakaraang artikulo - "Paano Mag-batch ng Mga Kaarawan mula sa Excel patungo sa Kaukulang Mga Contact sa Outlook", maaari mong matutunan ang mga paraan upang magdagdag ng impormasyon ng kaarawan sa isang Excel sa mga nauugnay na contact. Katulad nito, ang ilang mga gumagamit ay gustong lumikha ng mga kaganapan sa kaarawan ng Outlook mula sa data sa isang Excel sheet. Sa pagtingin sa isyung ito, ilalantad namin ang isa pang piraso ng VBA code upang matulungan kang makuha ito nang madali.

Batch Import Birthdays mula sa Excel papunta sa Outlook Calendar

1. Una sa lahat, buksan ang partikular na Excel file. Ang aking sample na Excel file ay tulad ng ipinapakita sa sumusunod na figure.
2. Pagkatapos, pindutin ang "Alt + F11" upang ma-trigger ang editor ng Excel VBA.
3. Susunod, sa bagong window na "Microsoft Visual Basic for Applications", paganahin ang pagtukoy sa "MS Outlook Object Library" ayon sa "Paano Magdagdag ng Sanggunian sa Object Library sa VBA".
4. Pagkatapos nito, kopyahin ang sumusunod na VBA code sa isang proyekto o module.

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

tandaan: 1. Baguhin ang partikular na sheet ayon sa iyong kaso.

2. Baguhin ang kaukulang hanay ng cell depende sa iyong sariling Excel file.
3. Panghuli, direktang pindutin ang "F5" key upang patakbuhin ang macro na ito.
4. Kapag natapos na ang macro, maaari mong buksan ang iyong default na folder ng kalendaryo sa Outlook, kung saan makikita mo ang lahat ng bagong na-import na kaganapan sa kaarawan, tulad ng screenshot sa ibaba.

Maaapektuhang Outlook PST Files

Tulad ng mga dokumento ng Word at Excel workbook, halos, ang mga Outlook PST file ay parehong mahina. Sa loob ng maraming taon, maraming mga gumagamit ang napapailalim sa pinsala sa file ng Outlook. Sa sitwasyong iyon, kailangan nilang subukang buhol-buhol Pagkumpuni ng PST. Gayunpaman, karaniwan, ang built-in na tool sa pag-aayos - Palaging hindi ito magawa ng Scanpst. Samakatuwid, sa kursong ito, ang isang mas dalubhasa at nangungunang panlabas na tool ay lubos na kinakailangan, tulad ng DataNumen Outlook Repair, na makakatulong sa iyong kunin ang maximum na data mula sa sira na PST file.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang tiwaling sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa