Jak automatycznie odpowiedzieć oryginalną wiadomością e-mail w Outlooku?

Zwykle, gdy tworzymy regułę, aby automatycznie polegać na e-mailu poza biurem, ale oryginalna wiadomość w treści nie zostanie uwzględniona. Jak możesz automatycznie polegać na e-mailach z oryginalną wiadomością w Outlooku? W tym artykule omówię kod VBA, który pomoże Ci jak najszybciej zakończyć tę pracę w Outlooku.

Automatyczna odpowiedź na e-maile z oryginalną wiadomością w programie Outlook z kodem VBA

Automatyczna odpowiedź na e-maile z oryginalną wiadomością w programie Outlook z kodem VBA

Normalna reguła Outlooka nie może pomóc w radzeniu sobie z pracą, ale za pomocą następującego kodu VBA możesz to szybko i łatwo zakończyć. Zrób tak:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, w Microsoft Visual Basic for Applications kliknij dwukrotnie ThisOutlookSession z Project1 (VbaProject.OTM) okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.

Kod VBA: Automatyczne odpowiedzi na e-maile z oryginalną wiadomością:

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. Następnie zapisz i zamknij okno kodu, zamknij lub uruchom ponownie Outlooka, aby kod VBA zaczął obowiązywać. Teraz, gdy otrzymasz wiadomości e-mail, program Outlook wyśle automatyczną odpowiedź z oryginalną wiadomością, jak pokazano na poniższym zrzucie ekranu:

Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.