Note: The other languages of the website are Google-translated. Back to English

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:


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (6)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko to spremenite, da se izvaja samo, če je v sporočilu telesa ključna beseda?
Ta komentar je moderator na spletnem mestu minimiziral
Imam isto vprašanje, si ugotovil?
Ta komentar je moderator na spletnem mestu minimiziral
poskusite s tem predmetomDim olMail As
Če (olMail.Subject, kot je "*Place_Keyword_here(Leave_doublequotes_and_asteriscs)*") Potem
CodeEnd če
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, imam isto vprašanje: kako naj uporabim to pravilo samo za izbranega pošiljatelja? br
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Damien, za določitev nekaterih pošiljateljev pri samodejnem odgovoru uporabite spodnjo kodo:

Javni WithEvents xlItems Kot Outlook.Items
Zasebna podaplikacija_zagon()
Nastavi xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Zasebni pod xlItems_ItemAdd(ByVal objItem kot predmet)
Zatemni xlReply kot MailItem
Dim xStr kot niz
Dim xSenderAddr kot niz
On Error Resume Next
Če objItem.Class <> olMail, potem Exit Sub
xSenderAddr = "497300722@qq.com,yy@addin99.com" 'tukaj vnesite lastne e-poštne številke pošiljatelja, ločite jih z vejicami.
Če objItem.Sender.Type = "EX" Potem
Če je InStr(xSenderAddr, objItem.Sender.GetExchangeUser.PrimarySmtpAddress) = 0, potem Exit Sub
Else
Če je InStr(xSenderAddr, objItem.Sender.Address) = 0, potem zapusti pod
Konec Če
Nastavite xlReply = objItem.Reply
Z xlReply
xStr = " " & "Pozdravljeni, vaš e-poštni naslov je bil prejet. Hvala vam!" & " "
.HTMLBody = xStr & .HTMLBody
.Pošlji
Končaj s
Konec SubProsim, poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, to sem poskusil, vendar ne deluje (:
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije