Kako samodejno odgovoriti z izvirnim e-poštnim sporočilom v Outlooku?

Običajno, ko ustvarimo pravilo za samodejno zanašanje e-poštnega sporočila izven službe, vendar prvotno sporočilo v telesu ne bo vključeno. Kako se lahko samodejno zanesete na e-poštna sporočila z izvirnim sporočilom v Outlooku? V tem članku bom govoril o kodi VBA, ki vam bo pomagala, da boste to delo v Outlooku čim hitreje končali.

Samodejno odgovorite na e-poštna sporočila z izvirnim sporočilom v perspektivi s kodo VBA

Samodejno odgovorite na e-poštna sporočila z izvirnim sporočilom v perspektivi s kodo VBA

Običajno pravilo Outlooka vam ne more pomagati pri opravljanju službe, vendar lahko z naslednjo kodo VBA to hitro in enostavno dokončate. Naredite to:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: E-poštna sporočila s samodejnim odgovorom z izvirnim sporočilom:

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. Nato shranite in zaprite okno s kodo, zaprite ali znova zaženite Outlook, da bo koda VBA začela veljati. Ko prejmete e-pošto, bo Outlook poslal samodejni odgovor z izvirnim sporočilom, kot je prikazano na sliki spodaj: