Cara Batch Import Ulang Tahun dari Lembaran Kerja Excel ke Kalendar Outlook

Sekiranya anda mempunyai senarai maklumat ulang tahun dalam lembaran kerja Excel, anda mungkin mahu mengimport ulang tahun ini ke dalam kalendar Outlook anda sebagai acara. Artikel ini akan membimbing anda untuk mencapainya dalam masa yang cepat.

Dari artikel sebelumnya - “Cara Mengimpor Ulang Tahun Lahir dari Excel ke Kenalan Outlook yang Berkaitan”, Anda dapat mempelajari cara untuk menambahkan info ulang tahun di Excel ke kenalan yang relevan. Sama seperti itu, sebilangan pengguna ingin membuat acara ulang tahun Outlook dari data dalam helaian Excel. Melihat masalah ini, kami akan memaparkan satu lagi kod VBA untuk membantu anda mendapatkannya dengan mudah.

Ulang Tahun Import Batch dari Excel ke Kalendar Outlook

1. Pertama sekali, buka fail Excel tertentu. Contoh fail Excel saya adalah seperti yang ditunjukkan dalam gambar berikut.
2. Kemudian, tekan "Alt + F11" untuk mencetuskan editor Excel VBA.
3. Seterusnya, dalam tetingkap “Microsoft Visual Basic for Applications” yang baharu, dayakan rujukan kepada “MS Outlook Object Library” mengikut “Cara Menambah Rujukan Perpustakaan Objek dalam VBA".
4. Selepas itu, salin kod VBA berikut ke dalam projek atau 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

Catatan: 1. Tukar helaian tertentu mengikut kes anda.

2. Tukar julat sel yang sesuai bergantung pada fail Excel anda sendiri.
3. Akhirnya, tekan terus kekunci "F5" untuk menjalankan makro ini.
4. Apabila makro selesai, anda dapat membuka folder kalendar lalai Outlook, di mana anda dapat melihat semua acara ulang tahun yang diimport baru, seperti tangkapan skrin di bawah.

Fail PST Outlook yang rentan

Seperti dokumen Word dan buku kerja Excel, hampir, fail PST Outlook sama-sama rentan. Selama bertahun-tahun, banyak pengguna pernah mengalami kerosakan fail Outlook. Dalam keadaan itu, mereka harus berusaha dengan teliti Pembaikan PST. Namun, alat pembaikan biasa, Scanpst tidak dapat mencapainya. Oleh itu, dalam kursus ini, alat luaran yang lebih khusus dan teratas sangat diperlukan, seperti DataNumen Outlook Repair, yang dapat membantu anda mengekstrak data maksimum dari fail PST yang rosak.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com