Question : confirm email before sending

Is there a way to ask 'Are you sure you want to send this email?' confirmation before sending a message in MS Outlook 2007?

Answer : confirm email before sending


To have a box come up asking, "do you want to send" in outlook main window, press Alt+F11

in project1>microsoft office outlook>this outlook session>

paste the following code and save and close.

It will make a message appear in the main window when you send (just alt+tab to see it)

*note1: If it doesn't work straight away, lower your macro security



*note2: another way is to simply put, "dontsendyet" into the to: box (without the quotes) and it will not send unless you remove it.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
Option Explicit
Dim WithEvents objInspectors As Inspectors
Dim WithEvents objMyNewMail As MailItem

Private Sub Application_Startup()
Set objInspectors = Application.Inspectors
End Sub

Private Sub Application_Quit()
Set objInspectors = Nothing
Set objMyNewMail = Nothing
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class <> olMail Then Exit Sub
Set objMyNewMail = Inspector.CurrentItem
End Sub

Private Sub objMyNewMail_Send(Cancel As Boolean)
If MsgBox("Are you sure you want to send this message?", vbYesNo + vbQuestion _
, "SEND CONFIRMATION") = vbNo Then
Cancel = True
End If
End Sub
Random Solutions  
 
programming4us programming4us