Como enviar em lote todos os e-mails abertos e compostos no Outlook

Depois de terminar de redigir alguns e-mails no Outlook, você pode enviá-los de uma só vez. Agora, neste artigo, vamos ensinar como obtê-lo com a ajuda do código VBA.

Por exemplo, você completou alguns novos e-mails, mas não os enviou, apenas os manteve abertos. E depois, você deseja enviá-los. Em geral, você deve clicar no botão “Enviar” em todos os e-mails, um por um. Nessa circunstância, você deve procurar um método que possa ajudá-lo a enviar todos os e-mails abertos e compostos em massa.

A seguir, vamos expor uma maneira tão eficaz para você. Está usando VBA. se você não sabe como usar o VBA, pode consultar o artigo – “Como executar o código VBA no seu Outlook" enquanto isso.

Envio em lote de todos os e-mails abertos e compostos

1. Para começar, você pode compor seus e-mails como de costume e mantê-los abertos.
2. Em seguida, pressione “Alt + F11” para acessar o editor VBA.
3. Em seguida, na nova janela, copie o seguinte código VBA em um módulo.

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. Depois disso, acione esta macro pressionando o botão da tecla “F5” diretamente.
5. Por fim, quando a macro for concluída, você será solicitado a informar o número de e-mails a serem enviados.
6. Agora, abra a Caixa de saída, na qual você pode ver que todos os e-mails abertos anteriormente estão sendo enviados.

Restaurar o Outlook de Danos Inesperados

Você já encontrou corrupção do Outlook antes? Muitos usuários foram sujeitos a esse problema e reclamaram sobre isso. Em geral, se você fizer soluções oportunas e eficazes, poderá recuperar prontamente os dados do Outlook de PST danificado arquivo. Por exemplo, se você tiver dados atualizados do Outlook, poderá reverter facilmente para o backup. Claro, você pode contar com uma ferramenta de reparo excelente e confiável, como DataNumen Outlook Repair, que pode escanear o arquivo corrompido do Outlook e recuperar o máximo de dados.

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