Ad günlərini Excel İş Vərəqindən Outlook Təqviminə necə toplu idxal etmək olar

Excel iş vərəqində ad günü məlumatlarının siyahısı varsa, bu ad günlərini Outlook təqviminizə hadisələr kimi idxal etmək istəyə bilərsiniz. Bu məqalə tez bir zamanda bunu həyata keçirməyə kömək edəcəkdir.

Əvvəlki məqalədən – “Ad günlərini Excel-dən Müvafiq Outlook Kontaktlarına Necə Toplu İdxal etmək olar” adlı məqalədən siz Excel-də ad günü məlumatını müvafiq kontaktlara əlavə etməyin yollarını öyrənə bilərsiniz. Eynilə, bəzi istifadəçilər Excel vərəqindəki məlumatlardan Outlook ad günü hadisələri yaratmaq istəyirlər. Bu məsələyə baxaraq, onu asanlıqla əldə etməyinizə kömək etmək üçün başqa bir VBA kodunu təqdim edəcəyik.

Ad günlərini Excel-dən Outlook Təqvimə toplu idxal edin

1. Hər şeydən əvvəl, xüsusi Excel faylını açın. Mənim nümunə Excel faylım aşağıdakı şəkildə göstərildiyi kimidir.
2. Sonra, Excel VBA redaktorunu işə salmaq üçün "Alt + F11" düyməsini basın.
3. Növbəti olaraq, yeni “Microsoft Visual Basic for Applications” pəncərəsində, “MS Outlook Object Library”-yə istinadı aktivləşdirin.VBA-da Obyekt Kitabxanasına İstinad necə əlavə olunur".
4. Bundan sonra, aşağıdakı VBA kodunu layihə və ya modula köçürün.

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

Qeyd: 1. İşinizə uyğun olaraq xüsusi vərəqi dəyişdirin.

2. Öz Excel faylınızdan asılı olaraq müvafiq hüceyrə diapazonunu dəyişdirin.
3. Nəhayət, bu makronu işə salmaq üçün birbaşa “F5” düyməsini sıxın.
4. Makro tamamlandıqda, siz Outlook defolt təqvim qovluğunu aça bilərsiniz, orada aşağıdakı ekran görüntüsü kimi bütün yeni idxal edilmiş ad günü hadisələrini görə bilərsiniz.

Həssas Outlook PST Faylları

Word sənədləri və Excel iş kitabları kimi, faktiki olaraq Outlook PST faylları da eyni həssasdır. İllərdir ki, bir çox istifadəçi Outlook faylının zədələnməsinə məruz qalır. Bu vəziyyətdə onlar düyünlənməyə cəhd etməlidirlər PST təmiri. Bununla belə, ümumiyyətlə, daxili düzəltmə aləti - Scanpst həmişə bunu həyata keçirə bilmir. Beləliklə, bu kursda daha çox ixtisaslaşmış və yüksək səviyyəli xarici vasitə tələb olunur, məsələn DataNumen Outlook Repair, bu, pozulmuş PST faylından maksimum məlumat çıxarmağa kömək edə bilər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc pozulmuş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com