Às vezes, quando você envia ou recebe um e-mail com muitos destinatários, talvez queira criar um grupo de contatos para esses destinatários. Este artigo apresentará uma maneira rápida de fazer isso com o Outlook VBA.
Em nosso artigo anterior “Como criar um grupo de contatos da lista de destinatários”, aprendemos um método comum para criar o grupo de contatos para destinatários de e-mail. Ou seja, primeiro selecione e copie os destinatários dos e-mails e, em seguida, crie um grupo de contatos manualmente e cole os destinatários no campo “Membros ->”. Obviamente, este meio é extremamente complicado. Portanto, aqui apresentaremos outra abordagem, que utilizará o Outlook VBA para obter rapidamente um novo grupo de contatos. Você pode apenas pressionar um botão sem precisar copiar e colar repetidamente. Continue lendo para obter as etapas elaboradas e os códigos VBA.
Criar um grupo de contatos da lista de destinatários de um e-mail
- Para começar, você deve acessar a guia "Desenvolvedor" no Outlook.
- Em seguida, nesta guia, você pode localizar e clicar no botão “Visual Basic”.
- Depois disso, uma nova janela “Microsoft Visual Basic for Applications” será aberta. Agora você deve abrir um novo módulo clicando em “Inserir” > “Módulo”.
- Em seguida, na janela do novo módulo, você pode copiar e colar os seguintes códigos nele.
Sub createcontactgroupforrecipients()
Dim obApp As Application
Dim olSel As Selection
Dim obj As Object
Dim oMail As MailItem
Dim tempMail As MailItem
Dim Recips As Recipients
Dim ConGroup As DistListItem
Dim strName As String
Set obApp = Outlook.Application
Set olSel = obApp.ActiveExplorer.Selection
For Each obj In olSel
If obj.Class = olMail Then
Set oMail = obj
Set tempMail = oMail.ReplyAll
Set Recips = tempMail.Recipients
Set ConGroup = obApp.CreateItem(olDistributionListItem)
strName = InputBox("Specify a name for the new contact group:")
With ConGroup
.AddMembers Recips
.DLName = strName
'Use ".Save" to directly save the new contact group
.Display
End With
tempMail.Close olDiscard
End If
Next
End Sub
- Mais tarde, você pode sair da janela atual do “Visual Basic” e prosseguir para adicionar a nova macro à Barra de Ferramentas de Acesso Rápido. Clique na seta para baixo na barra de ferramentas de acesso rápido e escolha “Mais comandos” na lista suspensa.
- Posteriormente, você entrará na janela “Opções do Outlook”. Neste ponto, você precisa seguir os seguintes passos:
- Em primeiro lugar, defina “Escolher comandos de” para “Macros”.
- Em seguida, procure e lance a macro adicionada anteriormente.
- Em seguida, clique no botão "Adicionar" no centro.
- Por último, pressione o botão “OK”.
- Depois disso, você pode retornar ao painel de correio do Outlook e tentar.
- A princípio, você pode lançar um e-mail em qualquer pasta de e-mail.
- Em seguida, clique no botão na Barra de Ferramentas de Acesso Rápido, conforme a imagem abaixo:
- E em seguida você receberá uma caixa de mensagem, que exige que você especifique um nome para o novo grupo de contatos.
- Mais tarde, clique no botão “OK”. Imediatamente, o novo grupo de contatos, que contém todos os destinatários de e-mail selecionados, será aberto. Você pode clicar em "Salvar e fechar" para salvá-lo.
Obrigações na proteção de dados do Outlook
Devido ao fato de que o Outlook é vulnerável, você deve tomar precauções suficientes para proteger seus dados do Outlook. Em primeiro lugar, você deve fazer um backup regular dos dados do Outlook. Além disso, você precisa saber como descobrir e executar a ferramenta de reparo integrada, Scanpst.exe. A última mas não menos importante necessidade é um estelar externo ferramenta de reparo de dados corrompidos do Outlook, como DataNumen Outlook Repair, que virá em seu socorro se o backup e o Scanpst.exe falharem.
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 SQL Server erro de banco de dados mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com