Schlagwort: Item.To

Ich sollte doch eine Seite „Outlook-nervt“ eröffnen. In letzter Zeit werde ich häufig mit Outlook-Fragen, Outlook-Problemen und Outlook-Wünschen konfrontiert. Beispielsweise mit folgendem Wunsch:

Sehr geehrter Herr Martin,
Sie haben vor geraumer Zeit einen Outlook-Kurs für meine ganze Abteilung abgehalten und weil Sie Spezialist im Outlook sind möchte ich mich mit einer Frage vertrauensvoll an Sie wenden. Ich hoffe das ist in Ordnung für Sie.
Ich versuche das Problem zu erklären:
Wir haben 2 Kunden die eine ähnliche Email Adresse haben:
die eine fängt mit „contoso“ an die andere mit „re-contoso“.
Fakt ist, dass wenn man die im Email-Feld „An“ angibt, dass man die leicht verwechseln kann.
Genau das ist auch kürzlich passiert und somit hat ein Kunde die Unterlagen vom anderen Kunden erhalten, was sehr problematisch ist.
Jetzt meine Frage an Sie:
Gibt es eine Möglichkeit, dass man bei diesen 2 Email-Adressen so eine Art Sperre generiert? Wie zum Beispiel durch ein Fenster mit der Frage: sind Sie sicher, dass Sie diese Email an diese Adresse versenden möchten?
Es würde mich sehr freuen, wenn Sie sich mit mir in Kontakt setzen würden.
Bis dahin wünsche ich Ihnen noch einen schönen Tag.
Mit freundlichen Grüßen

Hallo Frau L.,
mit einer Regel geht so etwas leider nicht – eine Regel kann man nur erstellen für „Mail die an … gesendet wurde“.

Aber mit einem kleinen VBA-Skript geht das:

• Fügen Sie in Outlook die Registerkarte „Entwicklertools“ ein:
• Wechseln Sie in dort in die Entwicklungsumgebung „Visualbasic“
• Doppelklicken Sie im Projektfenster auf ThisOutlooksession:

Wechseln Sie auf der rechten Seite über das Dropdown zu Application:
Es öffnen sich folgende Codezeilen:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub

Dieses Ereignis überwacht das Senden einer Mail. Dort hinein muss folgender Code, so dass das Ganz dann so aussieht.

Option Compare Text

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
If Item.To Like „contoso“ Then
If MsgBox(„Wollen Sie diese Mail wirklich an “ & Item.To & “ senden?“, vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then
Cancel = True
End If
End If
End Sub

Versuchen Sie es am besten mit dem Namen einer Kollegin (oder Ihrem Namen). Sie können Groß- und Kleinschreibung ausschalten, indem Sie VOR das Makro den Befehl
Kommen Sie damit klar?

schöne Grüße

René Martin

Wir haben es heute zusammen an ihrem Rechner implementiert. Sie ist sehr glücklich über das Ergebnis.