Application_ItemSend secondario riservato (articolo di ByVal come oggetto, annullamento come booleano)
olkRecipient fioco come Outlook.Recipient
Se Item.Class = olMail allora
Per ciascuno olkRecipient in Item.Recipients
Selezionare il caso LCase (olkRecipient.AddressEntry.Address)
“Pubblicare l'indirizzo sulla linea seguente come stata necessaria„
Mettere “[email protected]„, “[email protected]„, “[email protected]„
Se msgbox (“siete sicuro voi volete trasmettere questo messaggio? „, il vbQuestion + il vbYesNo, “confermano il messaggio trasmettono„) = vbNo allora
L'annullamento = allinea
Concluder se
Concludere prescelto
Dopo
Concluder se
Regolar olkRecipient = niente
Concludere il sommergibile
|