Turning Off Outlook Warning Messages

Stop Those Annoying Outlook Warning Messages

One of the more annoying things to cope with when programming for Microsoft Outlook is the security messages that pop up to stop the boring email spammers. The ones that you may be familiar with are

"A program is trying to automatically trying to send e-mail messages on your behalf. Do you want to allow this?"

or "A program is trying to automatically access email address that you have stored in Outlook. Do you want to allow this?"

There are a few programming options on the market to solve this but none are quite as easy to implement as this program which initially doesn't require any programming and doesn't require any cash either.
http://www.contextmagic.com/express-clickyes/

Key features of this program is that it doesn't need to be turned on when it starts, it can be turned on in vba code if necessary and it only consumes a small amount of memory.

It sits in your task bar and looks like this

Security Note: Turning off Outlook warning messages leaves you vulnerable to the very things it is trying to protect against. ie. Exposing yourself to a script virus which can run at the same time as the warnings are off. So if you are happy with the solution, use VBA code to ensure that Click Yes is suspended most of the time.

The Code that will start and suspend this program looks as follows. In this case the program is resumed when the form is opened and disabled when the form is closed.

Option Compare Database
Option Explicit

' Declare Windows' API functions
Private Declare Function RegisterWindowMessage _
Lib "user32" Alias "RegisterWindowMessageA" _
(ByVal lpString As String) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As Any, _
ByVal lpWindowName As Any) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long



Private Sub Form_Load()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long

' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")

' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)

' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long

' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")

' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)


' Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)

End Sub