2 métodos para reenviar vários e-mails em lote no Outlook

Ao precisar reenviar muitos e-mails, por padrão, você deve abri-los um por um e escolher “Reenviar esta mensagem” manualmente. É bastante problemático. Portanto, este post irá compartilhar com você 2 meios, que podem ajudá-lo a realizá-lo rapidamente.

Para reenviar um e-mail, você deve primeiro abrir este e-mail na janela Mensagem, clicar no botão “Ações” e escolher a opção “Reenviar esta mensagem” na lista suspensa. Dessa forma, será muito tedioso e complicado se você quiser reenviar muitos e-mails. Agora, aqui apresentaremos 2 abordagens. Você pode selecionar de acordo com suas necessidades.

Método 1: reenviar vários e-mails em lote pelo recurso "Encaminhar"

Se os e-mails que você deseja reenviar forem enviados virtualmente para a mesma pessoa, você pode usar o recurso “Encaminhar”.

1. Para comotart, na lista de e-mail, você precisa selecionar os e-mails que deseja reenviar.
2. Em seguida, clique no botão “Avançar” no grupo “Responder” na guia “Página inicial”.
3. Ao mesmo tempo, um novo e-mail será exibido, no qual todos os e-mails selecionados foram anexados.
4. Agora, você pode inserir o destinatário específico no campo 'Para' e inserir um assunto.
5. Por fim, aperte o botão “Enviar”.

No entanto, se os e-mails a serem reenviados forem realmente enviados para pessoas diferentes, os meios acima não ajudarão muito. Nesses casos, você pode utilizar a seguinte abordagem.

Método 2: reenviar vários e-mails em lote via Outlook VBA

1. Em primeiro lugar, pressione os botões de tecla “Alt + F11” na janela principal do Outlook.
2. Depois de entrar na janela “Microsoft Visual Basic for Applications”, abra um módulo em branco.
3. Posteriormente, copie o seguinte código VBA em tal módulo.

Sub BatchResendEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objInspector As Outlook.Inspector
    Dim objResendMail As Outlook.MailItem

    Set objSelection = Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           objMail.Display
           Set objInspector = myItem.GetInspector
 
           'Resend message
           objInspector.CommandBars.ExecuteMso ("ResendThisMessage")
  
           Set objResendMail = Application.ActiveInspector.CurrentItem
 
           'You can change the email details as per your needs
           With objResendMail
               .Subject = "Resent: " & objMail.Subject
               .Send
           End With
 
           objMail.Close olDiscard
       Next
    End If
End Sub

4. Depois disso, você pode sair da janela atual.
5. Posteriormente, adicione esta macro à Barra de Ferramentas de Acesso Rápido.
6. Finalmente você pode tirar uma foto.

• Em primeiro lugar, selecione os e-mails de origem.
• Em seguida, pressione o botão macro na Barra de Ferramentas de Acesso Rápido.
• Imediatamente, todos os e-mails serão reenviados aos seus destinatários originais, como de costume.

Eliminar problemas do Outlook

Nenhum software é perfeito. Por exemplo, embora o Outlook seja rico em recursos, ele é propenso a problemas e corrupção. Portanto, se você é um usuário regular do Outlook, deve tomar alguns cuidados, como backups periódicos de dados PST e uma análise convincente e confiável Reparação de PST ferramenta, como DataNumen Outlook Repair. Ele pode corrigir problemas do Outlook sem suar a camisa.

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