Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

How to turn off Microsoft Outlook security warnings

Posted on 2004-08-18
8
Medium Priority
?
885 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Free Backup Tool for VMware and Hyper-V

Restore full virtual machine or individual guest files from 19 common file systems directly from the backup file. Schedule VM backups with PowerShell scripts. Set desired time, lean back and let the script to notify you via email upon completion.  

 
LVL 3

Accepted Solution

by:
ashunigam earned 1000 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

Back Up Your Microsoft Windows Server®

Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Many companies are making the switch from Microsoft to Google Apps (https://www.google.com/work/apps/business/). Use this article to learn more about what Google Apps has to offer and to help if you’re planning on migrating to Google Apps. It is …
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…

722 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