Sut i ymateb yn awtomatig gyda neges e-bost wreiddiol yn Outlook?

Fel rheol, pan fyddwn yn creu rheol i ddibynnu'n awtomatig ar yr e-bost y tu allan i'r swyddfa, ond ni fydd y neges wreiddiol yn y corff yn cael ei chynnwys. Sut allech chi ddibynnu ar yr e-byst yn awtomatig gyda neges wreiddiol yn Outlook? Yr erthygl hon, byddaf yn siarad am god VBA i'ch helpu i orffen y swydd hon cyn gynted â phosibl yn Outlook.

E-byst ateb awtomatig gyda neges wreiddiol mewn golwg gyda chod VBA

E-byst ateb awtomatig gyda neges wreiddiol mewn golwg gyda chod VBA

Ni all rheol arferol Outlook eich helpu chi i ddelio â swydd, ond, gyda'r cod VBA canlynol, gallwch chi orffen hyn yn gyflym ac yn hawdd. Gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ThisOutlookSession o'r Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: E-byst ateb awtomatig gyda neges wreiddiol:

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. Yna arbed a chau ffenestr y cod, cau neu ailgychwyn yr Outlook i wneud i'r cod VBA ddod i rym. Nawr, pan fyddwch chi'n derbyn e-byst, bydd Outlook yn anfon ateb auto gyda'r neges wreiddiol fel y dangosir ar-lein:

Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.