Automatische Weiterleitung von Outlook-E-Mails an externe Empfänger nur unter bestimmten Umständen

Question

Gibt es eine Änderung, die am VBA-Code vorgenommen werden kann, der indiese Antwortaus einem früheren Beitrag, der nur E-Mails von einer bestimmten E-Mail-Adresse weiterleitet, anstatt alles weiterzuleiten? Im Wesentlichen ahmt es eine Outlook-Autoforward-Regel nach, mit der Bedingung, dass nur Nachrichten von[email geschützt]gesendet werden?

Ich habe ein VBA-Skript geschrieben, um die Deaktivierung der automatischen Weiterleitung durch den Server zu umgehen. Im Grunde wird dadurch die Weiterleitung der E-Mail durch den Benutzer simuliert, anstatt dass der Server eine automatische Weiterleitung durchführt. Detaillierte Anweisungen zu geben, liegt jenseits des Rahmens dieses Beitrags, hier ist jedoch eine Zusammenfassung:

Fügen Sie den obigen Code in den Visual Basic-Editor von Outlook ein (Alt-F11 sollte Ihnen den Einstieg erleichtern). Achten Sie darauf,[email geschützt]an die Adresse, an die die Post gehen soll

Weisen Sie Outlook an, diesen Code für jede eingehende Nachricht auszuführen (Extras -> Regeln und Benachrichtigungen -> Neue Regel -> Nachrichten bei Eingang prüfen -> Weiter -> JA -> Kontrollkästchen „Skript ausführen“ -> Wählen Sie anschließend das soeben erstellte Skript aus).

Jetzt sollte Outlook jede E-Mail, die Sie erhalten, automatisch weiterleiten, sie wird jedoch nicht vom Administrator als „Automatische Weiterleitung“ blockiert.

Code:

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "[email protected]"
myFwd.Send
Set myFwd = Nothing 
End Sub

Answer 1

Versuchen Sie, eine ifAnweisung hinzuzufügen, indem SieAbsenderadresse-

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

If myFwd.Sender = "[email protected]" then
myFwd.Recipients.Add "[email protected]"
myFwd.Send
End if

Set myFwd = Nothing 
End Sub

---

Oder, der einfachere Weg wäre inFestlegen der Regel:

Weisen Sie Outlook an, diesen Code für jede eingehende Nachricht auszuführen (Extras -> Regeln und Benachrichtigungen -> Neue Regel -> Nachrichten bei Eingang prüfen -> Weiter -> JA -> Kontrollkästchen „Skript ausführen“ -> Wählen Sie anschließend das soeben erstellte Skript aus).

Sagen Sie Outlook einfach, dass es den Code ausführen sollob die Nachricht von einer bestimmten Adresse stammt.