Como verificar automaticamente anexos em e-mails de saída específicos com o Outlook VBA

Às vezes, você pode esquecer de adicionar anexos obrigatórios a e-mails específicos, como e-mails para relatar seus trabalhos semanais. Este artigo irá ensiná-lo a ativar um aviso pop-up para impedir que você envie e-mails específicos sem anexos.

Ao contrário do Outlook 2010 e versões anteriores, o Outlook 2013 possui um suporte nativo para lembrá-lo quando você não anexou nenhum arquivo nos e-mails enviados. Você pode ativar esse recurso nas Opções do Outlook, como na captura de tela a seguir:

Enquanto você ativar o aviso automático para anexos ausentes, sempre que enviar um e-mail, um aviso será exibido. Mas, na maioria das vezes, você realmente não precisa anexar arquivos. Nesses casos, o aviso será irritante. Aqui, mostraremos como ativar um aviso automático quando não houver anexos em e-mails específicos enviados usando VBA do Outlook.

Verificação automática de anexos em e-mails enviados específicos

1. No início, inicie o Outlook e mude para a guia “Desenvolvedor”.
2. Clique no botão “Visual Basic” no grupo “Código”.
3. Em seguida, na nova janela pop-up “Microsoft Visual Basic for Applications”, você deve clicar duas vezes no projeto “ThisOutlookSession” para abri-lo.
4. Posteriormente, você deve copiar os seguintes códigos para o projeto “ThisOutlookSession”.

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

5. Em seguida, clique no ícone salvar na barra de ferramentas.
6. Depois disso, você deve assinar este código.

• Primeiro, você deve criar um certificado digital. O MS Office já vem com um utilitário integrado chamado "Certificado Digital para Projetos VBA". Você pode encontrá-lo pesquisando "vba" no "Menu Iniciar".
• Em seguida, volte para a janela “visual basic” para assinar o código.

7. Depois disso, saia do “Visual Basic” e clique no botão “Configurações de macro” na guia “Desenvolvedor”. Na caixa de diálogo “Trust Center”, você deve selecionar para habilitar apenas macros assinadas digitalmente. Lembre-se de clicar em “OK” por último.
8. Finalmente você pode tentar. Crie uma nova mensagem com destinatário e assunto específicos, mas sem anexos. Ao clicar no botão “Enviar”, você receberá um pop-up de aviso, conforme a figura a seguir:

Mantenha seus dados do Outlook protegidos

Como o Outlook é propenso a corrupções, você deve se esforçar para proteger seus dados do Outlook. A melhor maneira é fazer um backup consistente e atualizado. Assim, você pode facilmente recuperar dados corrompidos do Outlook dos backups, mesmo que sofra uma falha inesperada do Outlook. Além disso, se o backup falhar infelizmente, você não tem escolha a não ser usar uma ferramenta de reparo experiente, 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 reparar erro do banco de dados SQL e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com