2 métodos para enviar e-mail do Outlook em lote para todos os contatos em uma categoria de cor específica

Se você gostaria de enviar e-mail do Outlook para todos os contatos em uma categoria de cor específica em lotes, você pode utilizar os 2 métodos apresentados neste artigo.

Por alguns motivos, às vezes, pode ser necessário enviar um mesmo e-mail para todos os contatos em uma categoria de cor específica. Sem dúvida, enviar um por um é muito tedioso. Portanto, aqui vamos compartilhar 2 abordagens. Ambos têm seus próprios prós e contras, você pode escolher qualquer um ao seu gosto.

Método 1: envio em lote para todos os contatos em uma categoria específica em uma pasta de contatos

1. Para% start com, inicie seu aplicativo Outlook.
2. Em seguida, acesse a área “Contatos” e abra uma pasta de contatos.
3. Posteriormente, clique na caixa de pesquisa e, em seguida, clique no botão “Categorizar” e escolha uma categoria de cor específica na lista suspensa.
4. Depois disso, você verá que apenas os contatos em uma categoria de cor específica são listados. Agora você pode selecionar todos os resultados da pesquisa pressionando a tecla “Ctrl + A”.
5. Mais tarde, você pode voltar para a guia “Página inicial” e clicar no botão “E-mail”.
6. Imediatamente, um novo e-mail será exibido. Agora você pode compor de acordo com suas necessidades e, finalmente, clicar no botão “Enviar” para enviá-lo.

Se você tiver várias pastas de contatos em um arquivo de dados específico do Outlook e quiser percorrer todas essas pastas e encontrar os contatos em uma categoria de cor específica e, em seguida, enviar um e-mail em massa para eles, você pode utilizar a seguinte maneira.

Método 2: envio em lote para todos os contatos em uma categoria específica em todas as pastas de contatos

1. Primeiro, pressione as teclas “Alt + F11” na tela principal do Outlook.
2. Em seguida, na nova janela, você pode abrir um novo módulo.
3. Em seguida, copie o seguinte código VBA para este módulo.

Dim objSourcePSTFile As Outlook.Folder Dim objMail As Outlook.MailItem Dim objMailRecipients As Outlook.Recipients Sub SendanEmailtoAllContactsinSpecificColorCategory() Dim objFolder As Outlook.Folder Set objMail = Application.CreateItem(olMailItem) Set objMailRecipients = objMail.Recipients 'Obter o arquivo PST de origem ' Altere "John Smith" para o nome de exibição do seu próprio arquivo PST Set objSourcePSTFile = Application.Session.Folders("John Smith") Para cada objFolder In objSourcePSTFile.Folders Call Processfolders(objFolder) Next 'Altere ou adicione mais detalhes de e-mail aqui: With objMail .Recipients.ResolveAll .Subject = "Test Mail" .Body = "Insira os detalhes do email..." .Send End With End Sub Sub Processfolders(objCurrentFolder As Outlook.Folder) Dim objItem As Object Dim objContact As Outlook.ContactItem Dim objSubfolder As Outlook.Folder If objCurrentFolder.DefaultItemType = olContactItem Then For Each objItem In objCurrentFolder.Items If TypeOf objItem For ContactItem Then Set objContact = objItem 'Encontrar todos os contatos em uma categoria de cor específica If InStr(objContact.Categories, "Colleagues") > 0 Then objMailRecipients.Add objContact.Email1Address End If End If Next objItem End If 'Processar todas as pastas de contatos recursivamente If objCurrentFolder.Folders.Count > 0 Then For Each objSubfolder In objCurrentFolder.Folders Call Processfolders(objSubfolder) Next End If End Sub

4. Eventualmente, você pode executar esta macro apenas pressionando o botão da tecla F5.
5. Imediatamente, você verá que um novo e-mail está em sua caixa de saída, sendo enviado.

Elimine erros irritantes do Outlook

O Outlook não pode ser imune a erros. Portanto, é de vital importância para nós, usuários regulares, aprender a lidar com vários erros. Primeiro de tudo, você pode tentar corrigi-los por starting Outlook no modo de segurança, usando ScanpstName ou reconstruir o perfil de email ou reparar o pacote de escritório MS. Se todos falharem, você pode obter ajuda de uma poderosa ferramenta externa de reparo, 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 mdf corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com