Outlook Security Question: Address Book & MAPI mailboxes

  • Thread starter Thread starter Tom
  • Start date Start date
T

Tom

When trying to get mail from MAPI mailboxes a dailog appears that asks
for persmission, "to access email addresses you have stored in
Outlook. Do you want to do this?"

There is an option via drop down list that offers access for a period
of time up to 10 minutes, but no permanent option to disable this
warning.

How can I disable this, or work around it in Outlook 2003?

Thanks,

Tom
 
Hi all,

I have "Redemption" installed and registered. Now how would I change this code to prevent the "A program is trying to access e-mail..." dialog box from appearing?

Public Sub StripAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolder As String
Dim Filename As String
On Error Resume Next

' Instantiate an Outlook Application object.
Set objOL = CreateObject("Outlook.Application")
' Get the collection of selected objects.
Set objSelection = objOL.ActiveExplorer.Selection

' Get the Temp folder.
strFolder = GetTempDir()
If strFolder = "" Then
MsgBox "Could not get Temp folder", vbOKOnly
GoTo ExitSub
End If

'Stop



Thanks in advance

Jim
 
Are you actually getting a security prompt with this code? If so, for which
statement? It doesn't access any address-related properties, so I wouldn't
expect it to trigger a
security prompt.
--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers



Hi all,

I have "Redemption" installed and registered. Now how would I change this
code to prevent the "A program is trying to access e-mail..." dialog box
from appearing?

Public Sub StripAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolder As String
Dim Filename As String
On Error Resume Next

' Instantiate an Outlook Application object.
Set objOL = CreateObject("Outlook.Application")
' Get the collection of selected objects.
Set objSelection = objOL.ActiveExplorer.Selection

' Get the Temp folder.
strFolder = GetTempDir()
If strFolder = "" Then
MsgBox "Could not get Temp folder", vbOKOnly
GoTo ExitSub
End If

'Stop



Thanks in advance

Jim
 
Hi Sue and thanks for the response.

The statement is much later in the code and I did not post the lengthy program.

Here is the statement where I get the security prompt

Who = objMsg.SenderName

I hope that is what you need to answer my question.

Thanks in advance.

Jim
 
The newsgroup interface you are using apparently does not quote earlier
messages in the thread, making your latest message so short on detail that
you risk not getting the answer you're looking form. Please take the time to
quote the original message.

As the FAQ for Redemption describes, you need to instantiate a SafeMailItem
object, set its Item property to the Outlook MailItem in question, then use
SafeMailItem to access all blocked properties and method:

Set objSMail = CreateObject("Redemption.SafeMailItem")
objSMail.Item = objMsg
Who = objSMail.SenderName
--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers



Hi Sue and thanks for the response.

The statement is much later in the code and I did not post the lengthy
program.

Here is the statement where I get the security prompt

Who = objMsg.SenderName

I hope that is what you need to answer my question.

Thanks in advance.

Jim
 
Back
Top