Privé SubApplication_ItemSend (het Punt ByVal als Voorwerp, annuleert Van Boole)
Schemerige olkRecipient als Outlook.Recipient
Als Item.Class = olMail toen
Voor elk olkRecipient in Item.Recipients
Selecteer Geval LCase (olkRecipient.AddressEntry.Address)
„Geef het adres op de volgende lijn als nodig uit“
Geval „[email protected]“, „[email protected]“, „[email protected]“
Als msgbox („bent u zeker u wilt dit bericht verzenden? “, bevestigen vbQuestion + vbYesNo, „het Bericht“) = vbNo toen verzendt
Annuleer = Waar
Beëindig als
Beëindig Uitgezocht
Daarna
Eind als
Vastgestelde olkRecipient = niets
Sub van het eind
|