Jak dávkově odesílat všechny otevřené a složené e-maily ve vašem Outlooku

Po dokončení psaní některých e-mailů v Outlooku můžete doufat, že je pošlete najednou. V tomto článku vás nyní naučíme, jak jej získat pomocí kódu VBA.

Například jste vyplnili několik nových e-mailů, ale neposlali jste je, jen je necháváte otevřené. A poté je chcete poslat ven. Obecně musíte kliknout na tlačítko „Odeslat“ v každém e-mailu jeden po druhém. Za těchto okolností musíte toužit po metodě, která vás podpoří hromadným odesláním všech otevřených a složených e-mailů.

V následujících odstavcích vám vystavíme tak efektivní způsob. Používá VBA. pokud nevíte, jak používat VBA, můžete si přečíst článek - „Jak spustit kód VBA ve vašem Outlooku“Mezitím.

Dávkové odesílání všech otevřených a složených e-mailů

1. Nejprve můžete své e-maily psát jako obvykle a nechat je otevřené.
2. Poté stiskněte „Alt + F11“ pro přístup k editoru VBA.
3. Dále v novém okně zkopírujte následující 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. Poté spusťte toto makro buď přímým stisknutím tlačítka „F5“.
5. Nakonec po dokončení makra se zobrazí výzva k počtu e-mailů, které mají být odeslány.
6. Nyní otevřete Pošta k odeslání, ve které uvidíte, že se odesílají všechny dříve otevřené e-maily.

Obnovte Outlook z neočekávaného poškození

Už jste se někdy setkali s poškozením Outlooku? Mnoho uživatelů se tohoto problému týkalo a stěžovali si na něj. Obecně platí, že pokud vytváříte včasná a efektivní řešení, můžete z nich snadno načíst data aplikace Outlook poškozený PST soubor. Například pokud máte aktualizovaná data aplikace Outlook, můžete se snadno vrátit k záloze. Samozřejmě můžete využít vynikající a spolehlivý nástroj pro opravy DataNumen Outlook Repair, který dokáže skenovat poškozený soubor aplikace Outlook a obnovit maximální data.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com