Como limitar o número de e-mails abertos ao mesmo tempo com o Outlook VBA

Manter muitos e-mails abertos simultaneamente pode sobrecarregar o Outlook e causar seu travamento. Portanto, recomenda-se limitar o número de e-mails abertos ao mesmo tempo. Este artigo ensinará como fazer isso usando VBA no Outlook.

O Outlook tende a travar quando fica sobrecarregado, como quando muitos e-mails são abertos ao mesmo tempo. Portanto, é melhor manter apenas e-mails limitados abertos por vez. Embora o Outlook não suporte isso nativamente, você pode alcançá-lo facilmente através dos seguintes meios.

Limite o número de e-mails abertos ao mesmo tempo

1. Para começar, abra o programa Outlook.
2. Então você precisa acessar o editor VBA. Você pode mudar para a guia “Desenvolvedor” e clicar no botão “Visual Basic”. Ou apenas pressione as teclas “Alt + F11” na tela principal.
3. Na janela subsequente “Microsoft Visual Basic for Applications”, você pode localizar e abrir o projeto “ThisOutlookSession”.
4. Em seguida, você deve copiar e colar o código VBA abaixo neste projeto 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. Depois disso, você deve assinar esta macro.

• Clique no botão "Ferramentas" na barra de ferramentas.
• Em seguida, selecione a opção “Assinatura digital” na lista suspensa.
• Na caixa de diálogo pop-up, siga as instruções na tela para concluí-la.

6. Posteriormente, você pode alterar as configurações de macro para permitir as macros assinadas digitalmente.
7. Por fim, você pode reiniciar o aplicativo Outlook para ativar a macro.
8. A partir de agora, toda vez que você pretender abrir o sexto e-mail, receberá uma mensagem, como na captura de tela:
9. Além disso, o e-mail anterior será fechado automaticamente.

Recupere Dados Valiosos do Outlook

Não há como negar que o Outlook possui muitos recursos notáveis. Mas, isso não significa que seja impecável. Ainda não pode escapar com danos. Vários fatores podem levar à corrupção do Outlook. Daí, para recuperar Outlook dados mais fáceis, você deve fazer backup de seu arquivo PST em intervalos regulares. Além disso, uma ferramenta de reparo de boa qualidade também é uma questão de necessidade, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo consertar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com