Tug'ilgan kunlarni Excel ish varag'idan Outlook taqvimiga qanday ommaviy import qilish mumkin

Agar Excel ish varag'ida tug'ilgan kun ma'lumotlari ro'yxati mavjud bo'lsa, ushbu tug'ilgan kunlarni Outlook taqvimingizga voqealar sifatida import qilishni xohlashingiz mumkin. Ushbu maqola sizga tezda buni amalga oshirishga yordam beradi.

Oldingi maqoladan - "Tug'ilgan kunlarni Excel-dan tegishli Outlook kontaktlariga qanday to'plamli import qilish" dan siz Excel-da tug'ilgan kun ma'lumotlarini tegishli kontaktlarga qo'shish usullarini o'rganishingiz mumkin. Shunga o'xshab, ba'zi foydalanuvchilar Excel varaqidagi ma'lumotlardan Outlookning tug'ilgan kuni voqealarini yaratmoqchi. Ushbu muammoni ko'rib chiqsak, biz VBA kodining yana bir qismini sizga osonlik bilan olishingizga yordam beramiz.

Tug'ilgan kunlarni Exceldan Outlook taqvimiga to'plamli import qilish

1. Avvalo, maxsus Excel faylini oching. Mening namunaviy Excel faylim quyidagi rasmda ko'rsatilganidek.
2. Keyin, Excel VBA muharririni ishga tushirish uchun "Alt + F11" tugmasini bosing.
3. Keyin, yangi “Microsoft Visual Basic for Applications” oynasida “MS Outlook Object Library” ga havolani yoqing.VBA da obyekt kutubxonasi havolasini qanday qo'shish mumkin".
4. Shundan so'ng, quyidagi VBA kodini loyiha yoki modulga nusxalang.

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

Eslatma: 1. Muayyan varaqni sizning holatingizga qarab o'zgartiring.

2. O'zingizning Excel faylingizga qarab tegishli katakchalar diapazonini o'zgartiring.
3. Nihoyat, ushbu makrosni ishga tushirish uchun to'g'ridan-to'g'ri "F5" tugmasini bosing.
4. Makros tugagach, Outlookning standart kalendar papkasini ochishingiz mumkin, unda siz quyidagi skrinshot kabi barcha yangi import qilingan tug'ilgan kun voqealarini ko'rishingiz mumkin.

Zaif Outlook PST fayllari

Word hujjatlari va Excel ish kitoblari kabi, deyarli Outlook PST fayllari ham bir xil zaifdir. Ko'p yillar davomida ko'plab foydalanuvchilar Outlook fayliga zarar etkazishadi. Bunday vaziyatda ular tugunga harakat qilishlari kerak PST ta'mirlash. Biroq, odatda, o'rnatilgan tuzatish vositasi - Scanpst har doim ham buni amalga oshira olmaydi. Demak, ushbu kursda ko'proq ixtisoslashgan va yuqori darajadagi tashqi vosita talab qilinadi, masalan DataNumen Outlook Repair, bu sizga buzilgan PST faylidan maksimal ma'lumotlarni olishga yordam beradi.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan sql va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com