Hogyan válaszolhatunk automatikusan az eredeti e-mail üzenetre az Outlookban?

Normális esetben, amikor létrehozunk egy szabályt, amely automatikusan megbízza az e-mailt az irodán kívül, de az eredeti üzenet törzsében nem lesz benne. Hogyan támaszkodhat automatikusan az eredeti üzenetet tartalmazó e-mailekre az Outlookban? Ebben a cikkben egy VBA-kódról fogok beszélni, amely segít a munka mielőbbi befejezésében az Outlook programban.

Automatikus válaszüzenetek eredeti üzenettel, kilátásban, VBA kóddal

Automatikus válaszüzenetek eredeti üzenettel, kilátásban, VBA kóddal

A normál Outlook-szabály nem segíthet a feladatok kezelésében, de a következő VBA-kóddal ezt gyorsan és egyszerűen elvégezheti. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession a Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.

VBA kód: E-mailek automatikus válasza eredeti üzenettel:

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. Ezután mentse el és zárja be a kódablakot, zárja be vagy indítsa újra az Outlook programot, hogy a VBA kód érvénybe lépjen. Most, amikor e-maileket kap, az Outlook automatikus választ küld az eredeti üzenettel, az alábbi képernyőképen:

Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.