Så här grupperar du skicka alla öppna och sammansatta e-postmeddelanden i din Outlook

När du är klar med att skriva några e-postmeddelanden i Outlook kanske du hoppas kunna skicka ut dem på en gång. Nu, i den här artikeln, kommer vi att lära dig hur du får det med hjälp av VBA-kod.

Till exempel har du slutfört några nya e-postmeddelanden men inte skickat dem, bara håll dem öppna. Och efteråt vill du skicka ut dem. I allmänhet måste du klicka på knappen "Skicka" i varje e-post en efter en. Under denna omständighet måste du längta efter en metod som kan hjälpa dig att skicka alla öppna och sammansatta e-postmeddelanden i bulk.

Batch Skicka alla öppna och sammansatta e-postmeddelanden i din Outlook

I det följande kommer vi att avslöja ett så effektivt sätt för dig. Det använder VBA. om du inte använder VBA kan du hänvisa till artikeln - “Hur du kör VBA-kod i din Outlook”Under tiden.

Batch Skicka alla öppna och sammansatta mejl

  1. Till att börja med kan du skriva dina e-postmeddelanden som vanligt och hålla dem öppna.Öppnade e-postmeddelanden
  2. Tryck sedan på “Alt + F11” för att komma åt VBA-redigeraren.
  3. Kopiera sedan i det nya fönstret följande VBA-kod till en modul.
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

VBA-kod - Batch Skicka alla öppna och sammansatta e-postmeddelanden

  1. Därefter aktiverar du detta makro antingen genom att trycka på “F5” -knappen direkt.
  2. Slutligen, när makrot är klart, blir du uppmanad till antalet e-postmeddelanden som ska skickas.Fråga om antalet öppna e-postmeddelanden som ska skickas
  3. Öppna nu Utkorg, där du kan se att alla tidigare öppnade e-postmeddelanden skickas.E-post skickas

Återställ Outlook från oväntad skada

Har du någonsin stött på korruption i Outlook tidigare? Många användare har varit föremål för denna fråga och har klagat över den. I allmänhet, om du gör snabba och effektiva lösningar, kan du enkelt hämta Outlook-data från skadad PST fil. Om du till exempel har uppdaterade Outlook-data kan du enkelt återgå till säkerhetskopian. Naturligtvis kan du ta hjälp av ett utmärkt och pålitligt reparationsverktyg, som DataNumen Outlook Repair, som kan skanna den korrupta Outlook-filen och återställa maximal data.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL-återhämtning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.