Hoe u batchgewijs alle open en samengestelde e-mails in uw Outlook verzendt

Nadat u klaar bent met het opstellen van enkele e-mails in Outlook, hoopt u ze misschien in één keer te verzenden. Nu, in dit artikel, zullen we u leren hoe u het kunt krijgen met behulp van VBA-code.

U heeft bijvoorbeeld een aantal nieuwe e-mails voltooid maar deze niet verzonden, maar houdt ze gewoon open. En daarna wil je ze uitsturen. In het algemeen moet u één voor één op de knop "Verzenden" in elke e-mail klikken. Onder deze omstandigheid moet u verlangen naar een methode die u kan ondersteunen om alle open en samengestelde e-mails in bulk te verzenden.

In het volgende zullen we u een dergelijke effectieve manier laten zien. Het gebruikt VBA. als u VBA niet gebruikt, kunt u het artikel raadplegen - "Hoe u VBA-code in uw Outlook uitvoert”Ondertussen.

Batch Verzend alle open en samengestelde e-mails

1. Om te beginnen kunt u uw e-mails zoals gewoonlijk opstellen en open houden.
2. Druk vervolgens op "Alt + F11" om de VBA-editor te openen.
3. Kopieer vervolgens in het nieuwe venster de volgende VBA-code naar een module.

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. Activeer daarna deze macro door rechtstreeks op de toets "F5" te drukken.
5. Ten slotte, wanneer de macro is voltooid, wordt u gevraagd het aantal te verzenden e-mails.
6. Open nu Outbox, waarin u kunt zien dat alle eerder geopende e-mails worden verzonden.

Herstel Outlook van onverwachte schade

Bent u ooit eerder corruptie in Outlook tegengekomen? Veel gebruikers hebben met dit probleem te maken gehad en hebben erover geklaagd. Als u tijdige en effectieve oplossingen maakt, kunt u in het algemeen Outlook-gegevens gemakkelijk ophalen uit beschadigde PST het dossier. Als u bijvoorbeeld een bijgewerkte Outlook-gegevens heeft, kunt u gemakkelijk terugkeren naar de back-up. U kunt natuurlijk een uitstekende en betrouwbare reparatietool gebruiken, zoals DataNumen Outlook Repair, die het corrupte Outlook-bestand kan scannen en maximale gegevens kan herstellen.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql herstel en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com