Приватное Sub Application_ItemSend (деталь ByVal как предмет, Cancel как булевско)
Тусклое olkRecipient как Outlook.Recipient
Если Item.Class = olMail после этого
Для каждого olkRecipient в Item.Recipients
Выберите случай LCase (olkRecipient.AddressEntry.Address)
«Редактируйте адрес на следующей линии как нужно»
Покрывайте «[email protected]», «[email protected]», «[email protected]»
Если msgbox, то («вы уверенн вы хотите послать это сообщение? », vbQuestion + vbYesNo, «подтверждают сообщение посылают») = vbNo после этого
Cancel = True
Закончитесь если
Закончите отборное
Затем
Закончитесь если
Установите olkRecipient = ничего
Закончите подводную лодку
|