Hoe open ik alle inkomende e-mails van een specifieke persoon automatisch in Outlook?
In ons dagelijkse werk komen er misschien veel e-mails binnen in onze Outlook, in dit geval negeert u mogelijk enkele belangrijke e-mails van een specifieke persoon. Om te voorkomen dat u enkele belangrijke e-mails van iemand mist, kunt u de e-mails automatisch openen wanneer u in uw Outlook arriveert. In dit artikel zal ik een VBA-code introduceren voor het openen van alle e-mails van een specifieke afzender.
Open alle inkomende e-mails van een specifieke persoon automatisch met VBA-code
Open alle inkomende e-mails van een specifieke persoon automatisch met VBA-code
Om automatisch de e-mails van een specifieke persoon te openen, kan de volgende VBA-code u helpen, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.
VBA-code: open automatisch alle e-mails van een specifieke persoon:
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 = ";"
If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
xMailItem.Display
End Sub
Note: In de bovenstaande code kunt u de adressen van de afzenders naar uw eigen adres wijzigen.
3. Sla vervolgens dit codevenster op en sluit het. Start Outlook opnieuw om de code van kracht te laten worden. Vanaf nu worden alle e-mails automatisch geopend wanneer de e-mails van de door u opgegeven personen komen. Zie screenshot:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.
