Kuidas oma Outlookis kõiki avatud ja koostatud e-kirju pakettidena saata

Outlooki lahendused September 29, 2025

Kui olete Outlookis mõne meili koostamise lõpetanud, võite loota, et saate need ühe korraga välja saata. Nüüd selles artiklis õpetame teile, kuidas seda VBA-koodi abil hankida.

Näiteks olete lõpetanud mõned uued meilid, kuid pole neid saatnud, vaid hoidsite need avatuna. Ja pärast soovite need välja saata. Üldiselt peate igas meilis ükshaaval klõpsama nuppu "Saada". Sellises olukorras peate igatsema meetodit, mis toetaks kõigi avatud ja koostatud meilide hulgi saatmist.

Saatke kõik Outlookis avatud ja koostatud meilid pakettidena

Järgnevalt tutvustame teile sellist tõhusat viisi. See kasutab VBA-d. kui te ei oska VBA-d kasutada, võite vaadata artiklit – "Kuidas Outlookis VBA-koodi käivitada” vahepeal.

Kõigi avatud ja koostatud meilide kogumike saatmine

  1. Alustuseks saate oma meilid tavapäraselt koostada ja need avatuna hoida.Avatud meilid
  2. Seejärel vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  3. Järgmisena kopeerige uues aknas järgmine VBA kood moodulisse.
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-kood – kõigi avatud ja koostatud meilide pakettsaatmine

  1. Pärast seda käivitage see makro, vajutades otse klahvi "F5" nuppu.
  2. Lõpuks, kui makro on lõpule jõudnud, küsitakse teilt saadetavate meilide arvu.Küsi saadetavate avatud meilide arvu kohta
  3. Nüüd avage Outbox, kus näete, et kõik varem avatud meilid saadetakse.E-kirju saadetakse

Outlooki taastamine ootamatute kahjustuste eest

Kas olete kunagi varem Outlooki korruptsiooniga kokku puutunud? Paljud kasutajad on selle probleemiga kokku puutunud ja on selle üle kaebanud. Kui teete õigeaegseid ja tõhusaid lahendusi, saate üldiselt Outlooki andmeid hõlpsasti hankida kahjustatud PST faili. Näiteks kui teil on värskendatud Outlooki andmed, saate hõlpsalt varundusse naasta. Muidugi võite kasutada suurepärast ja usaldusväärset remonditööriista, näiteks DataNumen Outlook Repair, mis suudab skannida rikutud Outlooki faili ja taastada maksimaalselt andmeid.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.