Application_ItemSend secundário confidencial (artigo de ByVal como o objeto, o cancelamento como bôoleano)
olkRecipient não ofuscante como Outlook.Recipient
Se Item.Class = olMail então
Para cada um olkRecipient em Item.Recipients
Selecionar o caso LCase (olkRecipient.AddressEntry.Address)
“Editar o endereço na linha seguinte como necessário”
Encaixotar “[email protected]”, “[email protected]”, “[email protected]”
Se msgbox (“é você certo você quer emitir esta mensagem? ”, o vbQuestion + o vbYesNo, “confirmam a mensagem emitem”) = vbNo então
O cancelamento = retifica
Terminar se
Terminar seleto
Em seguida
Terminar se
Ajustar olkRecipient = nada
Terminar o submarino
|