Como enviar vários e-mails de rascunho em lote com o Outlook VBA

Por alguns motivos, você pode salvar muitos rascunhos de e-mail no Outlook. Este artigo ensinará como enviar em lote todos eles ou apenas alguns selecionados por meio de um clique, criado com o Outlook VBA.

Às vezes, você pode não esperar enviar os e-mails agora. Portanto, você os salvará na pasta de e-mail Rascunhos e pretende enviá-los posteriormente. Como de costume, quando você deseja enviar os rascunhos, deve abri-los individualmente e clicar no botão “Enviar” um por um. Se houver uma grande quantidade de rascunhos a serem enviados, será bastante demorado. Portanto, muitos usuários esperam que o Outlook permita que eles enviem todos os rascunhos apenas clicando em um botão. No entanto, por padrão, não existe esse botão. Mas você pode aplicar o Outlook VBA para criá-lo. Aqui estão as etapas elaboradas e os códigos VBA.

Enviar em lote todos os rascunhos de e-mail

1. Primeiro, inicie o aplicativo Outlook e pressione os atalhos “Alt + F11”.
2. Em seguida, você abrirá a janela do editor VBA, na qual deverá abrir um novo módulo.
3. Posteriormente, copie e cole os seguintes códigos VBA nele.

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

4. Depois disso, você pode sair do editor VBA e adicionar o projeto VBA à barra de ferramentas de acesso rápido ou à faixa de opções. Aqui, usaremos a Barra de ferramentas de acesso rápido como exemplo.

• Em primeiro lugar, vá para a aba “Arquivo” > “Opções” > “Barra de Ferramentas de Acesso Rápido”.
• Em seguida, siga as etapas mostradas na figura abaixo para adicionar a nova macro à Barra de Ferramentas de Acesso Rápido.

5. Finalmente, você pode voltar para a janela principal do Outlook. Você verá o novo botão na Barra de Ferramentas de Acesso Rápido.

• Se não houver nenhum item na pasta Rascunhos, ao clicar no botão, você receberá uma mensagem como a captura de tela a seguir.
• Mas se houver itens na pasta Rascunhos, você receberá um prompt, como na imagem abaixo. Assim que você selecionar “Sim”, o Outlook começará a enviar todos os rascunhos.

Enviar em lote e-mails de rascunho selecionados

Se você deseja enviar apenas os rascunhos selecionados, os códigos acima não são adequados. Você pode usar os seguintes códigos.

1. Em primeiro lugar, copie-os para um novo módulo.

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

2. Em seguida, adicione a nova macro à Barra de Ferramentas de Acesso Rápido como de costume.
3. Posteriormente, você pode selecionar o tarobtenha e-mails de rascunho e aperte o botão, você receberá um prompt como a imagem:
4. Por fim, desde que você clique em “Sim”, os rascunhos de e-mail selecionados serão enviados.

Elimine problemas irritantes do Outlook

Talvez você tenha encontrado vários problemas irritantes do Outlook. Como você pode se livrar deles? Como de costume, você pode tentar sua ferramenta de reparo embutida, Scanpst.exe. É capaz de corrigir os pequenos problemas de arquivo PST do Outlook. Mas se você infelizmente se deparar com problemas graves, como Danos de e-mail PST, a ferramenta caixa de entrada não fará efeitos. Nesse ponto, você não tem escolha a não ser empregar uma ferramenta mais proeminente, 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 reparo de erro mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com