Kuinka avata kaikki tietyltä henkilöltä saapuvat sähköpostit automaattisesti Outlookissa?
Päivittäisessä työssämme saattaa Outlookiin saapua monia sähköposteja, jolloin voit jättää huomioimatta tietyn henkilön tärkeitä sähköposteja. Jotta et menetä tärkeitä sähköposteja joltakin, voit asettaa sähköpostit avautumaan automaattisesti, kun ne saapuvat Outlookiin. Tässä artikkelissa esittelen VBA-koodin kaikkien tietystä lähettäjistä tulevien sähköpostien avaamiseksi.
Avaa kaikki saapuvat sähköpostit tietystä henkilöstä automaattisesti VBA-koodilla
Avaa kaikki saapuvat sähköpostit tietystä henkilöstä automaattisesti VBA-koodilla
Jos haluat avata tietyn henkilön sähköpostit automaattisesti, seuraava VBA-koodi voi auttaa sinua, toimi seuraavasti:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession mistä Projekti1 (VbaProject.OTM) ruudusta avataksesi tilan ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: Avaa automaattisesti kaikki sähköpostit tietyltä henkilöltä:
Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xSenders As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
xSenders = "yy@addin99.com;applemiemie@163.com"
If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
xMailItem.Display
End Sub
Huomautuksia: Yllä olevassa koodissa voit muuttaa lähettäjien osoitteet omiksi.
3. Tallenna ja sulje sitten tämä koodiikkuna. Käynnistä Outlook uudelleen, jotta koodi tulee voimaan, ja tästä eteenpäin, kun määrittämiltäsi henkilöiltä saapuvat sähköpostit, ne kaikki avautuvat automaattisesti. Katso kuvakaappaus:
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 ...
