Cómo enviar por lotes todos los correos electrónicos abiertos y compuestos en Outlook

Después de que termine de redactar algunos correos electrónicos en Outlook, es posible que desee enviarlos de una sola vez. Ahora, en este artículo, le enseñaremos cómo obtenerlo con la ayuda del código VBA.

Por ejemplo, completó algunos correos electrónicos nuevos pero no los envió, solo los mantuvo abiertos. Y después, quieres enviarlos. En general, debe hacer clic en el botón "Enviar" en cada correo electrónico uno por uno. Bajo esta circunstancia, debe anhelar un método que pueda ayudarlo a enviar todos los correos electrónicos abiertos y redactados de forma masiva.

A continuación, le expondremos una forma tan efectiva. Está usando VBA. si no sabe cómo usar VBA, puede consultar el artículo – “Cómo ejecutar código VBA en su Outlook" mientras tanto.

Envío por lotes de todos los correos electrónicos abiertos y redactados

1. Para empezar, puede redactar sus correos electrónicos como de costumbre y mantenerlos abiertos.
2. Luego, presione "Alt + F11" para acceder al editor de VBA.
3. A continuación, en la nueva ventana, copie el siguiente código VBA en un 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. Después de eso, active esta macro presionando el botón de la tecla "F5" directamente.
5. Finalmente, cuando la macro se complete, se le solicitará la cantidad de correos electrónicos que se enviarán.
6. Ahora, abra la Bandeja de salida, en la que puede ver que se están enviando todos los correos electrónicos abiertos anteriormente.

Restaurar Outlook de daños inesperados

¿Alguna vez te has encontrado con la corrupción de Outlook antes? Muchos usuarios han estado sujetos a este problema y se han quejado al respecto. En general, si realiza soluciones oportunas y efectivas, puede recuperar fácilmente los datos de Outlook de PST dañado archivo. Por ejemplo, si tiene datos de Outlook actualizados, puede volver fácilmente a la copia de seguridad. Por supuesto, puede utilizar una herramienta de reparación excelente y fiable, como DataNumen Outlook Repair, que puede escanear el archivo corrupto de Outlook y recuperar el máximo de datos.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperación de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com