Frage : Wie man eMail „Überprüfung/Anpassung“ gründet, bevor Post gesendet wird

O.K., weiß ich, dass dieses ein merkwürdiger Antrag ist, jedoch, wenn es getan werden kann, ich finde, dass Leute auf sachverständigen Austäuschen die Antwort haben.  O.K., also bestimmte Leute in der Firma senden eMail, aber, „Klicken glücklich erhalten“, was ich bin gerade vor kurzem somone schicke der falschen Person ein attatched Finanzatatement bedeute, nicht gut.  Ich gussing, dass, als sie die eMail von der Aussicht sendeten, sie einige cachierte Namen sahen und das falsche auswählten und gerade zu schnelles verschoben, also, wenn es cachierten Namen von „Mike“ gibt und sie nicht Aufmerksamkeit zahlen, können sie eine eMail acidentally eher schicken „dem Joethe Klempner“, als „Joethe Buchhaltung VP“, die ich bin denke, was geschah.  Mich gefragt worden, wenn wir eine Eigenschaft „“ einschalten können, oder, eine Tätigkeit zu verursachen, die einmal Sie einer eMail schreiben und Schlag senden, ein Knall herauf Mitteilung dort sein kann, die sagt, dass „Sie sure“ sind, oder „email address bitte nicht sure überprüfen“, wenn das sogar möglich ist, aber wollte bitten.  Wir laufen lassen Austausch 2003 auf der Bedienerseite, und Klienten laufen lassen Aussicht 2007.

Thanks,
Mike

Antwort : Wie man eMail „Überprüfung/Anpassung“ gründet, bevor Post gesendet wird

Dank, Mike!

Ich geändert den Code, um jede mögliche Zahl von Adressen zu behandeln.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:

Privates VorApplication_ItemSend (ByVal Einzelteil als Gegenstand, Löschen, wie Boolesch) Schwaches olkRecipient als Outlook.Recipient Wenn Item.Class = olMail dann Für jedes olkRecipient in Item.Recipients Fall LCase (olkRecipient.AddressEntry.Address) vorwählen „Die Adresse auf der folgenden Linie redigieren, wie gebraucht“ „[email protected]“ umkleiden, „[email protected]“, „[email protected]“ Wenn msgbox („sind Sie Sie möchten diese Mitteilung senden sicher? “, bestätigen vbQuestion + vbYesNo, „Mitteilung senden“) = vbNo dann Löschen = ausrichtet et Beenden wenn Auserwähltes beenden Zunächst Beenden wenn olkRecipient einstellen = nichts Unterseeboot beenden