Como enviar e-mails de texto simples apenas para aqueles em um domínio específico via Outlook VBA

Alguns usuários gostariam de enviar e-mails de texto sem formatação apenas para os destinatários cujos endereços de e-mail estão em um domínio específico. Este artigo apresentará um método inteligente para obtê-lo.

No meu artigo anterior “Como sempre enviar e-mails do Outlook em formato de texto sem formatação para contatos específicos”, você pode obter 2 abordagens para enviar e-mails de texto sem formatação apenas para contatos específicos. Se você deseja enviar esses e-mails para todos os contatos em um domínio de e-mail específico, usar as duas maneiras desse artigo será um pouco estúpido e problemático. Portanto, aqui vamos compartilhar com você outra maneira, que é muito mais eficaz.

Envie e-mails de texto simples apenas para aqueles em um domínio específico

1. Primeiro de tudo, você deve iniciar seu aplicativo Outlook.
2. Em seguida, você precisa pressionar os botões de tecla “Alt + F11” na tela principal do Outlook.
3. Em seguida, a janela “Microsoft Visual Basic for Applications” aparecerá. Nele, você deve abrir o projeto “ThisOutlookSession”.
4. Posteriormente, copie e cole o seguinte código VBA neste projeto.

'Occurs when sending an Outlook email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim strAddress, strDomain As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       For Each objRecipient In objMail.Recipients
           'Get the recipient's email domain
           strAddress = objRecipient.Address
           strDomain = Right(strAddress, Len(strAddress) - InStr(strAddress, "@"))
 
           'If the domain is the specific one
           'Change the "datanumen.com" as per your needs
           If strDomain = "datanumen.com" Then
              'Convert the email format to plain text
              objMail.BodyFormat = olFormatPlain
              objMail.Save
              Exit For
           End If
      Next
    End If
End Sub

5. Depois disso, você deve assinar esta macro. Clique em “Ferramentas” > “Assinatura Digital” e siga o assistente na tela para completá-lo.
6. Mais tarde, saia da janela atual. Em seguida, mude para a guia “Desenvolvedor” e toque no botão “Segurança de macro”. Na nova caixa de diálogo pop-up, você deve alterar as configurações para habilitar macros assinadas digitalmente.
7. Finalmente, você pode tirar uma foto. Crie e componha um e-mail para um destinatário em um domínio de e-mail específico. E clique no botão "Enviar" para enviá-lo. Nesse processo, o Outlook alterará automaticamente o formato de e-mail para Texto sem formatação.

Restaurar arquivos corrompidos do Outlook

O Outlook é vulnerável a infecções por vírus, ataques de malware, picos de energia e assim por diante. Portanto, devemos aprender algumas dicas para restaurar os dados do Outlook após a corrupção. Em primeiro lugar, você deve verificar seus backups. Se o backup for muito antigo ou não for restaurado, você pode utilizar a ferramenta integrada - Scanpst.exe. Claro, o ferramenta de reparo da caixa de entrada nem sempre é eficaz. Assim, é melhor preparar uma ferramenta externa confiável e convincente, como DataNumen Outlook Repair. É altamente recomendado devido à sua alta taxa de recuperação.

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 sql corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com