Cara Membatasi Jumlah Email yang Dibuka Bersamaan dengan Outlook VBA

Solusi Outlook September 29, 2025
Bagikan sekarang:

Membuka banyak email secara bersamaan dapat membuat Outlook Anda kelebihan beban, yang menyebabkan Outlook macet. Oleh karena itu, disarankan untuk membatasi jumlah email yang dibuka secara bersamaan. Artikel ini akan mengajarkan Anda cara mewujudkannya dengan Outlook VBA.

Outlook rentan macet saat kelebihan beban, seperti saat terlalu banyak email dibuka pada saat yang bersamaan. Oleh karena itu, Anda sebaiknya hanya membuka email terbatas pada satu waktu. Meskipun Outlook tidak mendukung ini secara asli, Anda dapat dengan mudah mencapainya melalui cara berikut.

Batasi Jumlah Email yang Dibuka Bersamaan dengan Outlook VBA

Batasi Jumlah Email yang Dibuka Pada Saat yang Sama

  1. Pertama-tama, jalankan program Outlook Anda.
  2. Maka Anda perlu mengakses editor VBA. Anda dapat beralih ke tab "Pengembang" dan tekan tombol "Visual Basic". Atau cukup tekan tombol “Alt + F11” di layar utama.
  3. Di jendela "Microsoft Visual Basic for Applications" berikutnya, Anda dapat menemukan dan membuka proyek "ThisOutlookSession".
  4. Selanjutnya Anda harus menyalin dan menempelkan kode VBA di bawah ini ke dalam proyek VBA ini.
Public WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal objNewInspector As Inspector)
    Dim objInspector As Outlook.Inspector
    Dim i As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    i = 0
    If objNewInspector.CurrentItem.Class = olMail Then
 
       If objInspectors.count > 5 Then
          For Each objInspector In objInspectors
              If objInspector.CurrentItem.Class = olMail Then
                 i = i + 1
              End If
          Next
 
          If i > 5 Then
             strMsg = "You're allowed to open 5 emails at the same time. The previous email is closed!"
 
             MsgBox strMsg, vbExclamation + vbOKOnly
 
             ActiveInspector.CurrentItem.Close olSave
          End If
 
      End If
    End If
End Sub

Kode VBA - Batasi Jumlah Email yang Dibuka Secara Bersamaan

  1. Setelah itu, Anda harus menandatangani makro ini.
  • Tekan tombol "Alat" di bilah alat.
  • Selanjutnya pilih opsi "Tanda Tangan Digital" dari daftar drop-down.
  • Di kotak dialog popup, ikuti petunjuk di layar untuk menyelesaikannya.
  1. Nanti Anda dapat mengubah pengaturan makro untuk mengizinkan makro yang ditandatangani secara digital.
  2. Pada akhirnya, Anda dapat memulai ulang aplikasi Outlook Anda untuk mengaktifkan makro tersebut.
  3. Mulai sekarang, setiap kali Anda berniat membuka email keenam, Anda akan mendapatkan pesan, seperti tangkapan layar:peringatan
  4. Juga, email sebelumnya akan ditutup secara otomatis.

Ambil Data Outlook yang Berharga

Tidak dapat disangkal bahwa Outlook memiliki sejumlah fitur luar biasa. Tapi, bukan berarti tanpa cacat. Itu masih tidak bisa lolos dengan kerusakan. Berbagai faktor dapat menyebabkan korupsi Outlook. Oleh karena itu, agar memulihkan Outlook data lebih mudah, Anda harus membuat cadangan file PST Anda secara berkala. Juga, alat perbaikan berkualitas baik juga merupakan kebutuhan, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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

Bagikan sekarang:

Komentar ditutup.