Wie kann man Anhänge in Outlook basierend auf bestimmten Kriterien automatisch weiterleiten?
Normalerweise werden beim Weiterleiten einer E-Mail auch der ursprüngliche Nachrichtentext und die Anhänge einbezogen. Manchmal möchten Sie jedoch nur die Anhänge ohne den ursprünglichen Text basierend auf bestimmten Kriterien an eine bestimmte Person weiterleiten. Wie können Sie diese Aufgabe in Outlook lösen?
Weiterleitung von Anhängen basierend auf bestimmten Kriterien automatisch an eine Person mit VBA-Code
Zum Beispiel, wenn Sie eine E-Mail erhalten, deren Betreff den Text „kto feature“ enthält, werden alle Anhänge dieser E-Mail automatisch an die spezifische Person weitergeleitet, ohne den Nachrichtentext. Die folgenden Schritte können Ihnen helfen, bitte folgen Sie diesen:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications 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 Weiterleiten von E-Mails ohne Nachrichtentext, aber nur mit Anhängen:
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xForwardMail As Outlook.MailItem
Dim xEmail As MailItem
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xEmail = Item
If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub 'change subject text to your need
If xEmail.Attachments.Count = 0 Then Exit Sub
Set xForwardMail = xEmail.Forward
With xForwardMail
.HTMLBody = ""
With .Recipients
.Add "skyyang@addin88.com" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
Hinweis: Im obigen Code sollten Sie den Betrefftext und die Empfängeradresse durch Ihre eigenen ersetzen.
3. Speichern Sie dann den Code, und starten Sie Outlook neu, damit der Code wirksam wird.
4. Ab jetzt wird jedes Mal, wenn eine neue E-Mail mit dem spezifischen Betrefftext in Ihrem Posteingang eingeht, Outlook automatisch die Anhänge ohne Nachrichtentext an die gewünschte Person weiterleiten.
Hinweis: Dieser Code ist nur für das Standardkonto verfügbar.
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!
