Solved

How to turn off Microsoft Outlook security warnings

Posted on 2004-08-18
8
864 Views
Last Modified: 2008-02-01
When I send an email through my VB6 MAPI application, I get to warning messages from Outlook;

Another program is trying to access email addresses you have stored in Outlook…
Press “Yes” to allow

A program is trying to automatically send email on your behalf
Press “Yes” to allow

Is there a way to bypass \ avoid these warning messages?

Thanks in advance,
John
0
Comment
Question by:JohnFra
  • 4
  • 2
8 Comments
 
LVL 3

Expert Comment

by:ashunigam
ID: 11838109
There is a code link to bypass the message
http://www.tek-tips.com/faqs.cfm?fid=5230
0
 
LVL 3

Expert Comment

by:ashunigam
ID: 11838129
for your ease

' 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 Turn_Auto_Yes_On()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
wnd = FindWindow("EXCLICKYES_WND", 0&)
Res = SendMessage(wnd, uClickYes, 1, 0)
End Sub

Private Sub Turn_Off_Auto_Yes()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
wnd = FindWindow("EXCLICKYES_WND", 0&)
Res = SendMessage(wnd, uClickYes, 0, 0)
End Sub


Sub Send_Mails()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

'Enables automatic "YES" clicks for Outlook
Turn_Auto_YES_On               '******************

'set variables for Outlook and a message
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
    With MailOutLook
        .To = "Name of recipient"
        .Subject = "Subject Goes Here"
        .HTMLBody = "This could be a title<br><br>message body and instructions<br>could go here"
        .Attachments.Add "Path & Filename", olByValue, 1, "Filename To Display"
        .Send
    End With

'Turns off the Auto_Yes program
Turn_Off_Auto_YES                    '**********************
Set MailOutLook = Nothing
Set appOutLook = Nothing
End Sub
0
 

Author Comment

by:JohnFra
ID: 11838205
Thanks ashunigam, I tried your code but I still get the message "A program is automatically trying to send e-mail.. " And the YES is still required to continue :(
0
Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

 
LVL 3

Accepted Solution

by:
ashunigam earned 250 total points
ID: 11838251
Sorry about that here is a free tool to click on your behalf that may help... from another tip from tek-ltip site.

In previous code try after removing line Turn_Off_Auto_YES                    


http://www.tek-tips.com/viewthread.cfm?qid=641859



The security dialogs that pop up when an application tries to access certain Outlook properties and methods are designed to inhibit the spread of viruses via Outlook; see http://www.slipstick.com/outlook/esecup.htm#autosec

If you are a standalone user, Outlook provides no way to suppress this behavior. However, you can use a free tool called Express ClickYes:
http://www.express-soft.com/mailmate/clickyes.html
to click the security dialog buttons automatically. Beware that this means if a virus tries to send mail using Outlook or gain access to your address book, it will
succeed.

If you're the administrator in an Exchange Server or HP OpenMail environment, you can reduce the impact of the security prompts with administrative tools. See http://www.slipstick.com/outlook/esecup/admin.htm

If it's an application you wrote yourself, normally you can use one of these approaches to redo the program:

 -- Use Extended MAPI
see http://www.slipstick.com/dev/mapi.htm and C++
or Delphi; this is the most secure method and the only one that Microsoft recommendeds.

 -- Use Redemption
http://www.dimastr.com/redemption/
a third-party COM library that wraps around Extended MAPI but parallels the Outlook Object Model

 -- Use SendKeys to "click" the buttons on the security dialogs that your application may trigger. See
http://www.slipstick.com/outlook/esecup.htm#autosec
for a link to sample code.

 -- Program the free Express ClickYes
http://www.express-soft.com/mailmate/clickyes.html
to start suspended and turn it on only when your program needs to have the buttons clicked automatically.

--
Source: Sue Mosher, Outlook MVP
0
 
LVL 53

Expert Comment

by:Dhaest
ID: 11838554
Outlook: How do I suppress Outlook’s warning message “Someone is trying to send a mail on your behalf  …. ”
  http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_20706908.html
0
 
LVL 3

Expert Comment

by:ashunigam
ID: 11838784
Hi Dhaest
Just for your information.
http://www.slipstick.com/outlook/esecup.htm#autosec link is already part of my posting, that is suggested by you in link above.

Thanks
0
 
LVL 53

Expert Comment

by:Dhaest
ID: 12378049
Answered by ashunigam
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

This very simple solution applies to a narrow cross-section of the "needs to close" variety. In this case, the full message in Event Viewer was in applog, Event ID 1000: Faulting application iexplore.exe, version 8.0.6001.18702, faulting module …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now