Kuinka vastata automaattisesti alkuperäisellä sähköpostiviestillä Outlookissa?
Normaalisti, kun luomme säännön, joka luottaa sähköpostin automaattisesti poissaoloon, mutta tekstissä olevaa alkuperäistä viestiä ei sisällytetä. Kuinka voit automaattisesti luottaa sähköpostit alkuperäisiin viesteihin Outlookissa? Tässä artikkelissa puhun VBA-koodista, joka auttaa sinua viimeistelemään tämän työn mahdollisimman nopeasti Outlookissa.
Vastaa automaattisesti sähköpostiviesteihin alkuperäisellä viestillä Outlookissa VBA-koodilla
Vastaa automaattisesti sähköpostiviesteihin alkuperäisellä viestillä Outlookissa VBA-koodilla
Tavallinen Outlook-sääntö ei voi auttaa sinua käsittelemään työtä, mutta seuraavalla VBA-koodilla voit suorittaa tämän nopeasti ja helposti. Ole hyvä ja toimi näin:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession alkaen Projekti1 (VbaProject.OTM) ruudusta avataksesi tilan ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: Automaattinen vastaus sähköposteihin alkuperäisellä viestillä:
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. Tallenna ja sulje sitten koodiikkuna, sulje tai käynnistä Outlook uudelleen, jotta VBA-koodi tulee voimaan. Nyt, kun saat sähköpostiviestejä, Outlook lähettää automaattisen vastauksen alkuperäisellä viestillä seuraavan kuvakaappauksen mukaisesti:
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
