Jak automaticky odpovídat na původní e-mailovou zprávu v aplikaci Outlook?

Normálně, když vytvoříme pravidlo pro automatické spoléhání se na e-mail mimo kancelář, ale původní zpráva v těle nebude zahrnuta. Jak byste mohli automaticky spoléhat na e-maily s původní zprávou v Outlooku? V tomto článku budu hovořit o kódu VBA, který vám pomůže dokončit tuto práci co nejrychleji v aplikaci Outlook.

Automaticky odpovídat na e-maily s původní zprávou v Outlooku pomocí kódu VBA

Automaticky odpovídat na e-maily s původní zprávou v Outlooku pomocí kódu VBA

Normální pravidlo aplikace Outlook vám nemůže pomoci při řešení úlohy, ale s následujícím kódem VBA to můžete rychle a snadno dokončit. Udělejte prosím toto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automatická odpověď na e-maily s původní zprávou:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub

3. Poté uložte a zavřete okno kódu, zavřete nebo restartujte aplikaci Outlook, aby se kód VBA projevil. Nyní, když budete dostávat e-maily, bude Outlook odesílat automatickou odpověď s původní zprávou, jak ukazuje následující snímek obrazovky:

Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.