Pergunta : confirmar o email antes de emitir

Há uma maneira de pedir “está você sure que você quer emitir este email?” confirmação antes de emitir uma mensagem em MS Outlook 2007? class= do

Resposta : confirmar o email antes de emitir


Para mandar uma caixa vir acima de pedir, “você quer emitir” na janela principal da probabilidade, imprensa Alt+F11

no session> da probabilidade dos outlook>this do escritório de project1>microsoft

colar o seguinte código e excepto e próximo.

Fará uma mensagem aparecer na janela principal quando você emite (apenas alt+tab para a ver)

*note1: Se não trabalha diretamente, abaixar sua segurança macro



*note2: uma outra maneira é põr simplesmente, “dontsendyet” no a: a caixa (sem as citações) e não emitirão a menos que você a remover.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
Opção explícita
objInspectors não ofuscantes de WithEvents como inspetores
objMyNewMail não ofuscante de WithEvents como MailItem

Application_Startup secundário confidencial ()
Ajustar objInspectors = Application.Inspectors
Terminar o submarino

Application_Quit secundário confidencial ()
Ajustar objInspectors = nada
Ajustar o objMyNewMail = nada
Terminar o submarino

objInspectors_NewInspector secundário confidencial (inspetor de ByVal como o inspetor)
Se o olMail <> de Inspetor.CurrentItem.Class retira então o submarino
Ajustar o objMyNewMail = o Inspetor.CurrentItem
Terminar o submarino

objMyNewMail_Send secundário confidencial (cancelamento como bôoleano)
Se MsgBox (“é você certo você quer emitir esta mensagem? ”, _ do vbYesNo + do vbQuestion
, “EMITIR A CONFIRMAÇÃO”) = vbNo então
O cancelamento = retifica
Terminar se
Terminar o submarino
Outras soluções  
 
programming4us programming4us