Cara Mengimpor Batch Ulang Tahun dari Lembar Kerja Excel ke Kalender Outlook

Jika Anda memiliki daftar informasi ulang tahun di lembar kerja Excel, Anda mungkin ingin mengimpor ulang tahun ini ke kalender Outlook Anda sebagai acara. Artikel ini akan memandu Anda untuk mencapainya dalam waktu cepat.

Dari artikel sebelumnya - “Cara Mengimpor Batch Ulang Tahun dari Excel ke Kontak Outlook yang Sesuai”, Anda dapat mempelajari cara menambahkan info ulang tahun di Excel ke kontak yang relevan. Mirip dengan itu, beberapa pengguna ingin membuat acara ulang tahun Outlook dari data di lembar Excel. Melihat masalah ini, kami akan mengekspos bagian lain dari kode VBA untuk membantu Anda mendapatkannya dengan mudah.

Impor Batch Ulang Tahun dari Excel ke Kalender Outlook

1. Pertama-tama, buka file Excel tertentu. Contoh file Excel saya seperti yang ditunjukkan pada gambar berikut.
2. Kemudian, tekan "Alt + F11" untuk memicu editor VBA Excel.
3. Selanjutnya, di jendela “Microsoft Visual Basic for Applications” yang baru, aktifkan referensi ke “MS Outlook Object Library” sesuai dengan “Cara Menambahkan Referensi Pustaka Objek di VBA".
4. Setelah itu, salin kode VBA berikut ke dalam proyek 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. Ubah lembar khusus sesuai kasus Anda.

2. Ubah rentang sel yang sesuai tergantung pada file Excel Anda sendiri.
3. Terakhir, langsung tekan tombol "F5" untuk menjalankan makro ini.
4. Saat makro selesai, Anda bisa membuka folder kalender default Outlook, di mana Anda bisa melihat semua acara ulang tahun yang baru diimpor, seperti gambar di bawah.

File PST Outlook yang Rentan

Seperti dokumen Word dan buku kerja Excel, secara virtual, file PST Outlook sama rentannya. Selama bertahun-tahun, banyak pengguna mengalami kerusakan file Outlook. Dalam situasi itu, mereka harus berusaha rumit Perbaikan PST. Namun, biasanya, alat perbaikan bawaan - Scanpst selalu tidak dapat melakukannya. Karenanya, dalam kursus ini, alat eksternal yang lebih terspesialisasi dan berperingkat teratas sangat diperlukan, seperti DataNumen Outlook Repair, yang dapat membantu Anda mengekstrak data maksimum dari file PST yang rusak.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql yang korup dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com