Wie kann man alle eingehenden E-Mails von einer bestimmten Person in Outlook automatisch öffnen?
In unserer täglichen Arbeit erhalten wir möglicherweise viele E-Mails in unserem Outlook, weshalb Sie möglicherweise einige wichtige E-Mails von einer bestimmten Person übersehen. Um zu vermeiden, dass Ihnen wichtige E-Mails von jemandem entgehen, können Sie die E-Mails so einstellen, dass sie bei Eingang in Ihr Outlook automatisch geöffnet werden. In diesem Artikel stelle ich einen VBA-Code vor, mit dem sich alle E-Mails von einem bestimmten Absender öffnen lassen.
Alle eingehenden E-Mails von einer bestimmten Person mit VBA-Code automatisch öffnen
Alle eingehenden E-Mails von einer bestimmten Person mit VBA-Code automatisch öffnen
Um E-Mails von einer bestimmten Person automatisch zu öffnen, kann Ihnen der folgende VBA-Code helfen. Gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications doppelt auf ThisOutlookSession im Bereich Project1(VbaProject.OTM), um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.
VBA-Code: Automatisches Öffnen aller E-Mails von einer bestimmten Person:
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
Hinweis: Im obigen Code können Sie die Absenderadressen durch Ihre eigenen ersetzen.
3. Speichern und schließen Sie anschließend dieses Codefenster. Starten Sie Outlook neu, damit der Code wirksam wird. Von nun an werden alle E-Mails von den von Ihnen angegebenen Personen automatisch geöffnet. Siehe Screenshot:
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...
📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...
📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr attraktive und coole Emojis /Benachrichtigung bei wichtigen E-Mails /Outlook minimieren statt schließen...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten /Anti-Phishing-E-Mails /🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine Kontaktgruppe in einzelne Gruppen aufteilen /Geburtstagserinnerung entfernen...
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
