Como criar rapidamente um grupo de contatos a partir de um tipo específico de destinatários em vários e-mails do Outlook

Às vezes, você pode querer extrair rapidamente um tipo específico de destinatário em muitos e-mails e criar um grupo de contatos a partir deles. Você pode optar por obtê-lo manualmente. Mas, em comparação com o método compartilhado neste artigo, é muito tedioso.

Os destinatários de e-mail podem ser divididos em três tipos – destinatários “Para”, “CC” e “BCC”. Portanto, às vezes, você pode querer fazer algo apenas com um tipo específico de destinatário. Por exemplo, você espera criar rapidamente um grupo de contatos dos destinatários “CC” de vários e-mails. Inquestionavelmente, o método comum e padrão é copiar os destinatários para o grupo manualmente. No entanto, é muito problemático. Então, aqui vamos apresentar outra maneira muito mais eficaz.

Crie um grupo de contatos de um tipo específico de destinatários em vários emails

1. Para comotart, acesse o editor VBA do Outlook de acordo com “Como executar o código VBA no seu Outlook".
2. Em seguida, na nova janela, copie e cole o seguinte código em um módulo ou projeto.

Sub ContactGroup_SpecificTypeRecipients_MultipleEmails() Dim objSelection As Outlook.Selection Dim objItem As Object Dim objMail As Outlook.MailItem Dim objRecipient As Outlook.Recipient Dim i As Long Dim objContactGroup As Outlook.DistListItem 'Obter todos os emails selecionados Set objSelection = Outlook.Application.ActiveExplorer. Selection If Not (objSelection is Nothing) Then 'Crie um grupo de contatos Set objContactGroup = Outlook.Application.CreateItem(olDistributionListItem) Para cada objItem In objSelection Set objMail = objItem 'Adicione o tipo específico de destinatário ao grupo de contatos For i = objMail. Recipients.Count To 1 Step -1 Set objRecipient = objMail.Recipients(i) 'Alterar tipo de destinatário - olTo, olBCC ou olCC If objRecipient.Type = olCC Then objContactGroup.AddMember objRecipient End If Next Next 'Exibe o grupo de contatos objContactGroup.Display End If End Sub

3. Depois disso, saia do editor VBA.
4. Posteriormente, para conveniência posterior, adicione esta macro à Barra de Ferramentas de Acesso Rápido.
5. Por fim, siga as etapas abaixo para tirar uma foto.

• A princípio, selecione os e-mails de acordo com suas necessidades.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Imediatamente, um novo grupo de contatos será exibido, conforme a figura a seguir.

Restaurar seus dados do Outlook

Você já esteve sujeito a problemas complicados do Outlook, como arquivos de dados do Outlook seriamente corrompidos? Acredita-se que ninguém esteja disposto a aceitá-lo, mas pode ocorrer a qualquer momento devido a vários fatores. Portanto, é hora de usuários regulares tomarem precauções suficientes, incluindo fazer backups regulares de dados, preparar uma ferramenta externa de reparo de PST potente e confiável, como DataNumen Outlook Repair. De forma que, mesmo que o arquivo do Outlook seja comprometido inesperadamente, você pode recuperar PST dados facilmente de backups ou através da ferramenta robusta.

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