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
|