Cara Mengehadkan Jumlah E-mel yang Dibuka Pada Masa Yang Sama dengan Outlook VBA

Membuka banyak e-mel pada masa yang sama boleh menyebabkan Outlook anda terlebih beban, yang boleh menyebabkan Outlook ranap. Oleh itu, adalah disyorkan untuk mengehadkan bilangan e-mel yang dibuka dalam masa yang sama. Catatan ini akan mengajar anda cara melakukannya dengan Outlook VBA.

Outlook terdedah kepada kerosakan ketika terlalu banyak memuat, seperti ketika terlalu banyak e-mel dibuka pada masa yang sama. Oleh itu, sebaiknya buka e-mel terhad pada satu masa. Walaupun Outlook tidak menyokong ini secara semula jadi, anda dapat mencapainya dengan mudah melalui kaedah berikut.

Hadkan Jumlah E-mel yang Dibuka Pada Masa Yang Sama

1. Pada mulanya, mulakan program Outlook anda.
2. Maka anda perlu mengakses penyunting VBA. Anda dapat beralih ke tab "Pembangun" dan tekan butang "Visual Basic". Atau tekan sahaja "Alt + F11" pada skrin utama.
3. Di tetingkap "Microsoft Visual Basic for Applications" berikutnya, anda dapat mencari dan membuka projek "ThisOutlookSession".
4. Seterusnya anda harus menyalin dan menampal kod VBA di bawah ini ke dalam projek 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

5. Selepas itu, anda harus menandatangani makro ini.

• Tekan butang "Alat" di bar alat.
• Seterusnya pilih pilihan "Digital Signature" dari senarai drop-down.
• Dalam kotak dialog pop timbul, ikuti arahan pada skrin untuk menyelesaikannya.

6. Kemudian anda boleh menukar tetapan makro untuk membenarkan makro yang ditandatangani secara digital.
7. Akhirnya, anda boleh memulakan semula aplikasi Outlook anda untuk mengaktifkan makro.
8. Mulai sekarang, setiap kali anda berhasrat untuk membuka e-mel keenam, anda akan mendapat mesej, seperti tangkapan skrin:
9. Juga, e-mel sebelumnya akan ditutup secara automatik.

Dapatkan Data Outlook yang Berharga

Tidak dapat dinafikan bahawa Outlook mempunyai sejumlah ciri yang luar biasa. Tetapi, itu tidak bermaksud ia sempurna. Ia masih tidak dapat dihilangkan dengan kerosakan. Pelbagai faktor boleh menyebabkan berlakunya rasuah Outlook. Oleh itu, untuk pulihkan Outlook data lebih mudah, anda harus membuat sandaran fail PST anda secara berkala. Selain itu, alat pembaikan yang berkualiti juga merupakan keperluan, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

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