Você envia um e-mail para vários destinatários e coloca alguns deles no campo “BCC”. Mais tarde, se você quiser enviar um segundo e-mail apenas para os destinatários BCC, poderá utilizar os meios compartilhados neste artigo.
Você já enviou algum e-mail do Outlook para vários destinatários com alguns no campo “BCC”? Às vezes, depois de enviar esse e-mail, você pode querer enviar um segundo para um tipo específico de destinatário, como destinatários BCC. Por exemplo, você deseja enviar a eles algumas notas adicionais específicas. Agora, apresentaremos 2 maneiras. O primeiro está usando copiar e colar. E o último é realmente muito mais eficaz devido ao código VBA. Você pode escolher de acordo com suas necessidades.
Método 1: Copiar Destinatários BCC para Novo Email Manualmente
- Em primeiro lugar, na lista de e-mail da pasta “Itens Enviados”, selecione o e-mail original.
- Em seguida, clique duas vezes neste e-mail para abri-lo em sua própria janela de mensagem.
- Posteriormente, na nova janela, selecione um destinatário na linha “BCC”.
- Em seguida, pressione “Ctrl + A” para selecionar todos os destinatários BCC.
- Mais tarde, clique com o botão direito e escolha “Copiar” no menu de contexto.
- Depois disso, feche este e-mail.
- Em seguida, crie um novo e-mail pelo botão “Novo e-mail” na guia “Página inicial”.
- Por último, cole os destinatários BCC copiados no campo “Para” deste novo e-mail.
- No momento, você pode redigir e enviar este novo e-mail à vontade
Método 2: Enviar um segundo e-mail para os destinatários BCC via VBA
- Em primeiro lugar, pressione “Alt + F11” para acessar o editor VBA.
- Em seguida, coloque o código VBA abaixo em um módulo não utilizado.
Sub SendAnotherEmailToBCCRecipients()
Dim objOriginalMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim objNewMail As Outlook.MailItem
Dim objNewRecipient As Outlook.Recipient
'Get source email
Select Case TypeName(Application.ActiveWindow)
Case "Inspector"
Set objOriginalMail = ActiveInspector.CurrentItem
Case "Explorer"
Set objOriginalMail = ActiveExplorer.Selection.Item(1)
End Select
'Copy the BCC recipients to "To" field in new mail
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
For Each objRecipient In objOriginalMail.Recipients
If objRecipient.Type = olBCC Then
Set objNewRecipient = objNewMail.Recipients.Add(objRecipient)
objNewRecipient.Type = olTo
objNewRecipient.Resolve
End If
Next
'Change the new email details
With objNewMail
.Subject = "Additional Notes for " & objOriginalMail.Subject
.Body = "Type mail body here....."
.Attachments.Add ("E:\Dos & Don'ts.txt")
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Send
.Display
End With
End Sub
- Posteriormente, adicione esta macro à Barra de Ferramentas de Acesso Rápido referindo-se a “Como executar o código VBA no seu Outlook".
- Por fim, experimente esta macro agora mesmo.
- Para começar, selecione ou abra o e-mail original.
- Em seguida, clique na macro na Barra de Ferramentas de Acesso Rápido.
- Em seguida, um novo e-mail será enviado. Seus destinatários são os destinatários BCC do e-mail original, como na imagem a seguir.
Salve seus dados do Outlook a tempo
É altamente recomendável reparar o Outlook assim que seu Outlook estiver danificado. Em primeiro lugar, você pode recorrer ao utilitário de reparo embutido - Scanpst. No entanto, às vezes, você pode estar sujeito a falhas do Scanpst, pois o dano excedeu o que a ferramenta de caixa de entrada pode fazer. Nesse momento, seu último recurso é usar uma ferramenta confiável e robusta de terceiros, 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 danificado e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com