Jak rychle odeslat e-mail s upozorněním těm, kteří nehlasovali ve vašem Outlooku

Po odeslání e-mailu s hlasovacími tlačítky obdržíte od příjemců hlasovací odpovědi. Občas se však mohou objevit příjemci, kteří nehlasovali. V tomto případě můžete doufat, že jim pošlete e-mail s upozorněním. Tento článek vám pomůže získat to rychle.

Outlook umožňuje uživatelům odeslat e-mail s hlasovacími tlačítky. Pokud jste takový e-mail poslali mnoha příjemcům, jistě budete doufat, že jejich hlasovací odpovědi dostanete co nejdříve. Pokud však zjistíte, že někteří příjemci po několika dnech stále nehlasovali, můžete jim poslat e-mail s upozorněním. V tomto případě vyžaduje, abyste příjemce extrahovali ručně standardními prostředky, což je trochu problematické. Nyní vám v následujícím představíme další šikovnější způsob.

Pošlete e-mail s upozorněním těm, kteří nehlasovali

1. Na úplném začátku klepněte na „Alt + F11“ pro spuštění editoru Outlook VBA.
2. Potom zkopírujte a vložte následující kód do nepoužívaného modulu.

Sub SendNotification_ThoseNotVoted()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objNotification As Outlook.MailItem
 
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection(1)
    End Select
 
    'Create a notification email
    Set objNotification = Outlook.Application.CreateItem(olMailItem)
 
    'Add those who haven't voted to the notification email as recipients
    For Each objRecipient In objMail.Recipients
        If objRecipient.TrackingStatus = olTrackingNone Then
           objNotification.Recipients.Add objRecipient.Address
        Else
           If objRecipient.AutoResponse = "" Then
              objNotification.Recipients.Add objRecipient.Address
           End If
        End If
    Next
 
    'Set the notification email details
    With objNotification
         .Recipients.ResolveAll
         .Subject = "Please Vote!!!"
         .Body = "Please vote as soon as possible!!"
         .Attachments.Add objMail
         '.Send ==> To directly send out
         .Display
    End With
End Sub

3. Poté, pro pozdější pohodlí, přidejte toto makro na panel nástrojů Rychlý přístup s odkazem na „Jak spustit kód VBA ve vašem Outlooku".
4. Nakonec spusťte toto makro pomocí níže uvedených operací.

• Nejprve vyberte nebo otevřete původní e-mail pomocí tlačítek pro hlasování.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Najednou se zobrazí nový e-mail, jako je snímek obrazovky níže. Do pole „Komu“ jsou zahrnuti původní příjemci, kteří nehlasovali. A jeho předmět a tělo byly nastaveny podle předdefinovaných hodnot v kódu.

Vypořádejte se s nepříjemnými problémy s aplikací Outlook

Podobně jako jiné aplikace může i Outlook podléhat nejrůznějším problémům, jako jsou pády, zamrzání, časté chybové hlášky atd. Bez jakýchkoliv pochybností se s nimi nikdo nechce setkat. Je však pravda, že je těžké se jim vyhnout. Co můžete udělat, je držet se pravidelného zálohování souboru aplikace Outlook, takže i když je váš soubor PST poškozený, stále můžete získat zpět cenná data aplikace Outlook, aniž byste je museli opravit PST.

Ú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ě poškozený mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com