Suppress dialog warning that a program is trying to access my mails

Question

I am following the code from this page: How to create a script for the Rules Wizard in Outlook

This is what I have:

Public Sub GetMails(Item As Outlo         


        

Answer 1

Try this

Tools-->Macro-->Security-->macro security-->No security Tools-->Macro-->Security-->Programmatic Access

Then choose Never warn me about suspicious activity.

Answer 2

I found this somewhere and it works:

Sub SaveAttachment(myItem As Outlook.MailItem)

' Remove ay attachments for the email and save them in a ' local folder. If there are any erros on the saveing then ' attachments are left in place.

Dim myAttachments As Object
Dim myOrt As String
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
Dim fs As Object

' We need to get the mail item object from the application ' object to avoid warning messages

strID = myItem.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set oMail = olNS.GetItemFromID(strID)

Answer 3

This was added to prevent malicious scripts from turning Outlook into a mass mailer or other bad things.

You can turn this off on your workstation, but if you want to distribute your application to other users, you can get rid of this only by creating your own Outlook Addin or use a 3rd-party tool like Redemption.