Privata underApplication_ItemSend (det ByVal objektet som anmärker, avbryter som Boolean),
Dunkelt olkRecipient som Outlook.Recipient
Om Item.Class = olMail därefter
För varje som är olkRecipient i Item.Recipients
Välj fallet LCase (olkRecipient.AddressEntry.Address)
”Redigera,
Case ”[email protected]”, ”[email protected]”, ”[email protected]”,
Om msgbox (”är du säker dig önskar att överföra detta meddelande? ” vbQuestionen + vbYesNoen, ”bekräftar meddelandet överför”) = vbNoen därefter
Annulleringen = True
Avsluta om
Avsluta valt
Därefter
Avsluta om
Fastställdt olkRecipient = ingenting
Avsluta suben
|