Ako dávkové odosielanie všetkých otvorených a vytvorených e-mailov v programe Outlook

Po dokončení vytvárania niektorých e-mailov v Outlooku môžete dúfať, že ich pošlete naraz. Teraz vás v tomto článku naučíme, ako to získať pomocou kódu VBA.

Napríklad ste vyplnili niekoľko nových e-mailov, ale neodoslali ste ich, iba ich nechávate otvorené. A potom ich chcete poslať von. Spravidla musíte kliknúť na tlačidlo „Odoslať“ v každom e-maile jeden po druhom. Za týchto okolností musíte túžiť po metóde, ktorá vám pomôže pri hromadnom odosielaní všetkých otvorených a zostavených e-mailov.

V nasledujúcich častiach vám vystavíme taký efektívny spôsob. Používa VBA. ak neviete, ako používať VBA, môžete si prečítať článok - „Ako spustiť kód VBA v programe Outlook”Zatiaľ.

Dávkové odosielanie všetkých otvorených a napísaných e-mailov

1. Najskôr môžete písať svoje e-maily ako obvykle a nechať ich otvorené.
2. Potom stlačte kombináciu klávesov „Alt + F11“ a otvorte editor VBA.
3. Ďalej v novom okne skopírujte nasledujúci kód VBA do modulu.

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. Potom spustite toto makro buď priamym stlačením klávesu „F5“.
5. Po dokončení makra sa zobrazí výzva na zadanie počtu e-mailov, ktoré sa majú odoslať.
6. Teraz otvorte priečinok Pošta na odoslanie, kde uvidíte, že sa odosielajú všetky predtým otvorené e-maily.

Obnovte program Outlook z neočakávaného poškodenia

Už ste sa niekedy stretli s korupciou Outlooku? Mnoho používateľov sa týkalo tohto problému a sťažovali sa na neho. Všeobecne platí, že ak pripravujete včasné a efektívne riešenia, môžete z nich ľahko načítať údaje programu Outlook poškodený PST spis. Napríklad ak máte aktualizované údaje Outlooku, môžete sa ľahko vrátiť k zálohovaniu. Môžete samozrejme použiť vynikajúci a spoľahlivý nástroj na opravu, napríklad DataNumen Outlook Repair, ktorý dokáže naskenovať poškodený súbor programu Outlook a získať maximum údajov.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S