Cara Mengonversi Rapat menjadi Janji dengan Outlook VBA

Banyak pengguna yang merindukan metode untuk mengubah pertemuan Outlook menjadi janji temu umum. Artikel ini akan memperkenalkan metode cepat untuk melakukannya dengan cepat melalui Outlook VBA.

Sebenarnya pertemuan Outlook juga merupakan item janji temu. Perbedaan utama di antara mereka adalah rapat berisi peserta tetapi tidak ada janji temu. Oleh karena itu, cukup mudah untuk mengubah janji biasa menjadi rapat. Cukup buka janji temu dan klik tombol "Undang Peserta" di bawah tab "Janji Temu".

Namun, Outlook tidak mendukung kita untuk dengan mudah mengubah rapat menjadi janji temu. Tidak ada dukungan bawaan untuk menghapus peserta. Oleh karena itu, secara umum, jika Anda ingin mewujudkannya, solusinya adalah membuat janji temu baru secara manual dengan detail yang sama seperti rapat. Ini akan memakan waktu cukup lama. Untungnya, melalui Outlook VBA, Anda dapat mencapainya dengan sangat mudah. ​​Baca terus untuk mendapatkan kode VBA dan langkah-langkah detailnya.

Ubah Rapat menjadi Janji dengan Outlook VBA

1. Pertama-tama, buka tab “Pengembang” dan tekan tombol “Visual Basic”.
2. Kemudian di jendela "Microsoft Visual Basic for Applications" baru, Anda perlu memasukkan modul baru.
3. Selanjutnya salin dan tempel kode VBA berikut ke dalamnya.

Sub ConvertMeetingtoAppt()
    Dim olSel As Selection
    Dim obj As Object
    Dim olMeeting As AppointmentItem
    Dim Recips As Recipients
    Dim Recip As Recipient
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each obj In olSel
        If TypeName(obj) = "AppointmentItem" Then
           Set olMeeting = obj
           If olMeeting.MeetingStatus <> olNonMeeting Then
              If MsgBox("Are you sure to convert the selected meeting into an appointment?", vbYesNo + vbQuestion, "Confirm Convert") = vbYes Then
                 Set Recips = olMeeting.Recipients
                 For Each Recip In Recips
                     Recip.Delete
                 Next
                 olMeeting.MeetingStatus = olNonMeeting
                 olMeeting.Save
              End If
           End If
        End If
    Next
End Sub

4. Selanjutnya, Anda dapat kembali ke jendela Outlook utama dan terus menambahkan makro baru ke Bilah Alat Akses Cepat.
5. Akhirnya Anda dapat mencoba kode ini.

• Pertama buka folder Kalender yang benar dan lakukan pitch pada rapat sumber.
• Lalu tekan tombol makro di Bilah Alat Akses Cepat.
• Nanti Anda akan mendapatkan kotak pesan, menanyakan apakah Anda yakin untuk mengonversi.
• Saat Anda memilih "Ya", rapat akan diubah menjadi janji temu sekaligus.

Jangan Meremehkan Pencadangan Data Outlook

Outlook rentan terhadap berbagai faktor, antara lain virus, malware, pemadaman listrik, dan lain sebagainya. Dengan demikian, untuk mencegahnya Kerusakan data Outlook PST, Anda harus tetap melakukan backup rutin untuk data Outlook Anda. Ini sangat penting. Jangan pernah melewati itu. Juga, disarankan untuk mendapatkan alat perbaikan yang kuat, yang akan berguna, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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