Come limitare il numero di e-mail aperte contemporaneamente con Outlook VBA

Tenere aperte molte email contemporaneamente può sovraccaricare Outlook e causarne il blocco. Pertanto, si consiglia di limitare il numero di email aperte contemporaneamente. Questo articolo ti mostrerà come farlo con Outlook VBA.

Outlook è soggetto a arresti anomali quando viene sovraccaricato, ad esempio quando vengono aperte troppe e-mail contemporaneamente. Pertanto, è meglio tenere aperti solo un numero limitato di e-mail alla volta. Sebbene Outlook non lo supporti in modo nativo, puoi ottenerlo facilmente tramite i seguenti mezzi.

Limita il numero di email aperte contemporaneamente

1. Innanzitutto, avvia il programma Outlook.
2. Quindi è necessario accedere all'editor VBA. Puoi passare alla scheda "Sviluppatore" e premere il pulsante "Visual Basic". Oppure premi semplicemente i tasti "Alt + F11" nella schermata principale.
3. Nella successiva finestra "Microsoft Visual Basic for Applications", è possibile individuare e aprire il progetto "ThisOutlookSession".
4. Successivamente dovresti copiare e incollare il codice VBA di seguito in questo progetto VBA.

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. Successivamente, dovresti firmare questa macro.

• Premi il pulsante "Strumenti" nella barra degli strumenti.
• Quindi selezionare l'opzione "Firma digitale" dall'elenco a discesa.
• Nella finestra di dialogo popup, segui le istruzioni sullo schermo per completarlo.

6. Successivamente è possibile modificare le impostazioni delle macro per consentire le macro firmate digitalmente.
7. Infine, puoi riavviare l'applicazione Outlook per attivare la macro.
8. D'ora in poi, ogni volta che intendi aprire la sesta email, riceverai un messaggio, come lo screenshot:
9. Inoltre, l'e-mail precedente verrà chiusa automaticamente.

Recupera preziosi dati di Outlook

Non si può negare che Outlook ha una quantità di caratteristiche notevoli. Ma non significa che sia impeccabile. Non riesce ancora a farla franca con i danni. Vari fattori possono portare alla corruzione di Outlook. Quindi, in modo da recuperare Outlook dati più facilmente, è necessario eseguire il backup del file PST a intervalli regolari. Inoltre, uno strumento di riparazione di buona qualità è anche una questione di necessità, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparare mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com