Application_ItemSend secundario privado (artículo de ByVal como objeto, cancelación como boleana)
olkRecipient dévil como Outlook.Recipient
Si Item.Class = olMail después
Para cada uno olkRecipient en Item.Recipients
Seleccionar el caso LCase (olkRecipient.AddressEntry.Address)
“Corregir la dirección en la línea siguiente según lo necesitado”
Encajonar “[email protected]”, “[email protected]”, “[email protected]”
¿Si msgbox (“está usted seguro usted quiere enviar este mensaje? ”, el vbQuestion + el vbYesNo, “confirman el mensaje envían”) = vbNo entonces
La cancelación = verdad
Terminar si
Terminar selecto
Después
Terminar si
Fijar olkRecipient = nada
Terminar el submarino
|