როგორ შევასრულოთ დაბადების დღეების ჯგუფური იმპორტი Excel-ის სამუშაო ფურცლიდან Outlook კალენდარში

Outlook Solutions სექტემბერი 29, 2025

თუ თქვენ გაქვთ Excel-ის სამუშაო ფურცელში დაბადების დღის ინფორმაციის სია, შეიძლება დაგჭირდეთ ამ დაბადების დღის იმპორტი Outlook-ის კალენდარში მოვლენების სახით. ეს სტატია დაგეხმარებათ სწრაფად მიაღწიოთ მას.

წინა სტატიიდან – „როგორ მოვახდინოთ დაბადების დღეების ჯგუფური იმპორტი Excel-დან Outlook-ის შესაბამის კონტაქტებში“, შეგიძლიათ ისწავლოთ როგორ დაამატოთ დაბადების დღის ინფორმაცია Excel-ში შესაბამის კონტაქტებში. ამის მსგავსად, ზოგიერთ მომხმარებელს სურს შექმნას Outlook დაბადების დღის მოვლენები Excel-ის ფურცლის მონაცემებიდან. ამ საკითხის განხილვისას ჩვენ გამოვაქვეყნებთ VBA კოდის კიდევ ერთ ნაწილს, რომელიც დაგეხმარებათ მარტივად მიიღოთ იგი.

დაბადების დღეების ჯგუფური იმპორტი Excel-დან Outlook კალენდარში

უპირველეს ყოვლისა, გახსენით კონკრეტული Excel ფაილი. ჩემი Excel ფაილის ნიმუში არის როგორც ნაჩვენებია შემდეგ ფიგურაში.
შემდეგ დააჭირეთ "Alt + F11" Excel VBA რედაქტორის გასააქტიურებლად.
შემდეგ, ახალ ფანჯარაში „Microsoft Visual Basic for Applications“, ჩართეთ მითითება „MS Outlook Object Library“-ზე „როგორ დავამატოთ ობიექტის ბიბლიოთეკის მითითება VBA-ში".
ამის შემდეგ დააკოპირეთ შემდეგი VBA კოდი პროექტში ან მოდულში.

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

შენიშვნა: 1. შეცვალეთ კონკრეტული ფურცელი თქვენი შემთხვევის მიხედვით.

შეცვალეთ უჯრედების შესაბამისი დიაპაზონი თქვენი Excel ფაილის მიხედვით.
და ბოლოს, პირდაპირ დააჭირეთ "F5" ღილაკს ამ მაკროს გასაშვებად.
როდესაც მაკრო დასრულდება, შეგიძლიათ გახსნათ თქვენი Outlook-ის ნაგულისხმევი კალენდრის საქაღალდე, რომელშიც შეგიძლიათ იხილოთ დაბადების დღის ყველა ახალი იმპორტირებული ღონისძიება, როგორიცაა ქვემოთ მოცემული ეკრანის სურათი.

დაუცველი Outlook PST ფაილები

Word დოკუმენტების და Excel სამუშაო წიგნების მსგავსად, პრაქტიკულად, Outlook PST ფაილები იგივე დაუცველია. წლების განმავლობაში, ბევრი მომხმარებელი ექვემდებარება Outlook ფაილის დაზიანებას. ამ სიტუაციაში, მათ უნდა სცადონ კვანძი PST შეკეთება. თუმცა, ჩვეულებრივ, ჩაშენებული გამოსწორების ინსტრუმენტი – Scanpst ყოველთვის ვერ ახერხებს მის შესრულებას. აქედან გამომდინარე, ამ კურსში ძალიან საჭიროა უფრო სპეციალიზებული და უმაღლესი დონის გარე ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair, რომელიც დაგეხმარებათ ამოიღოთ მაქსიმალური მონაცემები კორუმპირებული PST ფაილიდან.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად