Si të importoni ditëlindje në grup nga fleta e punës e Excel në kalendarin e Outlook

Nëse keni një listë të informacionit të ditëlindjes në një fletë pune në Excel, mund të dëshironi t'i importoni këto ditëlindje në kalendarin tuaj të Outlook si ngjarje. Ky artikull do t'ju udhëzojë për ta arritur atë në një kohë të shpejtë.

Nga artikulli i mëparshëm – “Si të importoni ditëlindje nga Excel në kontaktet përkatëse të Outlook”, mund të mësoni mënyrat për të shtuar informacionin e ditëlindjes në një Excel në kontaktet përkatëse. Ngjashëm me këtë, disa përdorues dëshirojnë të krijojnë ngjarje të ditëlindjes së Outlook nga të dhënat në një fletë Excel. Duke parë këtë çështje, ne do të ekspozojmë një pjesë tjetër të kodit VBA për t'ju ndihmuar ta merrni atë me lehtësi.

Batch Import Ditëlindje nga Excel në Kalendari Outlook

1. Para së gjithash, hapni skedarin specifik Excel. Shembulli im i skedarit Excel është siç tregohet në figurën e mëposhtme.
2. Më pas, shtypni "Alt + F11" për të aktivizuar redaktorin Excel VBA.
3. Më pas, në dritaren e re "Microsoft Visual Basic for Applications", aktivizoni referencën për "MS Outlook Object Library" sipas "Si të shtoni një referencë të bibliotekës së objekteve në VBA".
4. Pas kësaj, kopjoni kodin e mëposhtëm VBA në një projekt ose 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

Shënim: 1. Ndryshoni fletën specifike sipas rastit tuaj.

2. Ndryshoni gamën përkatëse të qelizave në varësi të skedarit tuaj Excel.
3. Së fundi, shtypni drejtpërdrejt butonin "F5" për të ekzekutuar këtë makro.
4. Kur makroja përfundon, mund të hapni dosjen tuaj të paracaktuar të kalendarit të Outlook, në të cilën mund të shihni të gjitha ngjarjet e reja të importuara të ditëlindjes, si pamja e ekranit më poshtë.

Skedarët PST të cenueshëm të Outlook

Ashtu si dokumentet e Word-it dhe librat e punës në Excel, praktikisht, skedarët e Outlook PST janë po aq të cenueshëm. Për vite me radhë, shumë përdorues kanë qenë ndonjëherë subjekt i dëmtimit të skedarëve të Outlook. Në këtë situatë, ata duhet të përpiqen të nyjëzohen Riparimi i PST. Megjithatë, zakonisht, mjeti i integruar i rregullimit - Scanpst nuk është gjithmonë në gjendje ta përmbushë atë. Prandaj, në këtë kurs, kërkohet shumë një mjet i jashtëm më i specializuar dhe i rangut të lartë, si p.sh DataNumen Outlook Repair, i cili mund t'ju ndihmojë të nxirrni të dhëna maksimale nga skedari i korruptuar PST.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë sql e korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com