By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,136 Members | 1,205 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,136 IT Pros & Developers. It's quick & easy.

Help with outlook Access "allow access e-mail addresses"

P: n/a
Hello,
I have developed a Access application that needs to read mail from
Outlook, versions on Access and outlook are 2003. In the code i use
mapi to connect to outlook. When i tries to read the subject of a
message outlook displays "A program is trying to access e-mail
adresses you have stored in Outlook. Do you want to allow this."
And then i can allow access for max 10 minutes.
My application is use scheduled statupm creating reports without
man-macine interferance so i need to disable this message.

I have tried with modifiing registry
KEY_CURRENT_USER\Software\Microsoft\Office\10.0\Ou tlook\Security
(change 10.0 to 9.0 for Outlook 2000 SP3 or to 11.0 for Outlook 2003)
Under that key, add a new string value named Level1Remove. and added .
mdb
but this doesn't work.

I would prefer a solution where I can change the application or change
some registry settings, that only affects access applications. The last
resort would be to install a program that disconnects the security for
all types of programs.

Thanks Mikael Sjoeblom

Following are cut outs of the application.

Public Sub OutlookReadNewMail(intComputerGroup As Integer)
On Error GoTo Err_OutlookReadNewMail

Dim olApp As OutLook.Application
Dim Olmapi As OutLook.NameSpace
Dim Olfolder As OutLook.MAPIFolder
Dim olMail As Object 'Have to late bind as appointments e.t.c screw it
up
Dim OlItems As OutLook.Items
..
..
..

'Create a connection to outlook
Set olApp = CreateObject("Outlook.Application")
Set Olmapi = olApp.GetNamespace("MAPI")
..
..
..

Set OlItems = Olfolder.Items

'For each mail in the collection check the subject line and process
accordingly
For Each olMail In OlItems
If olMail.UnRead = True Then
olMail.Body ' This line activates trying
to access e-mail adressess
' Can't understand why
because it is the body
' not the e-mail adressess.

..
..
..

Mar 22 '06 #1
Share this Question
Share on Google+
2 Replies


P: n/a
On 22 Mar 2006 03:32:58 -0800, "mi*********@hotmail.com"
<mi*********@hotmail.com> wrote:

AFAIK the message can only be disabled if Outlook is running through exchange
server. This *feature* has virtually made Outlook useless as a mail client for
automated emails. (Some would say it always was).

Hello,
I have developed a Access application that needs to read mail from
Outlook, versions on Access and outlook are 2003. In the code i use
mapi to connect to outlook. When i tries to read the subject of a
message outlook displays "A program is trying to access e-mail
adresses you have stored in Outlook. Do you want to allow this."
And then i can allow access for max 10 minutes.
My application is use scheduled statupm creating reports without
man-macine interferance so i need to disable this message.

I have tried with modifiing registry
KEY_CURRENT_USER\Software\Microsoft\Office\10.0\O utlook\Security
(change 10.0 to 9.0 for Outlook 2000 SP3 or to 11.0 for Outlook 2003)
Under that key, add a new string value named Level1Remove. and added .
mdb
but this doesn't work.

I would prefer a solution where I can change the application or change
some registry settings, that only affects access applications. The last
resort would be to install a program that disconnects the security for
all types of programs.

Thanks Mikael Sjoeblom

Following are cut outs of the application.

Public Sub OutlookReadNewMail(intComputerGroup As Integer)
On Error GoTo Err_OutlookReadNewMail

Dim olApp As OutLook.Application
Dim Olmapi As OutLook.NameSpace
Dim Olfolder As OutLook.MAPIFolder
Dim olMail As Object 'Have to late bind as appointments e.t.c screw it
up
Dim OlItems As OutLook.Items
.
.
.

'Create a connection to outlook
Set olApp = CreateObject("Outlook.Application")
Set Olmapi = olApp.GetNamespace("MAPI")
.
.
.

Set OlItems = Olfolder.Items

'For each mail in the collection check the subject line and process
accordingly
For Each olMail In OlItems
If olMail.UnRead = True Then
olMail.Body ' This line activates trying
to access e-mail adressess
' Can't understand why
because it is the body
' not the e-mail adressess.

.
.
.


Wayne Gillespie
Gosford NSW Australia
Mar 22 '06 #2

P: n/a
Wayne Gillespie wrote:
On 22 Mar 2006 03:32:58 -0800, "mi*********@hotmail.com"
<mi*********@hotmail.com> wrote:

AFAIK the message can only be disabled if Outlook is running through exchange
server. This *feature* has virtually made Outlook useless as a mail client for
automated emails. (Some would say it always was).
Hello,
I have developed a Access application that needs to read mail from
Outlook, versions on Access and outlook are 2003. In the code i use
mapi to connect to outlook. When i tries to read the subject of a
message outlook displays "A program is trying to access e-mail
adresses you have stored in Outlook. Do you want to allow this."
And then i can allow access for max 10 minutes.
My application is use scheduled statupm creating reports without
man-macine interferance so i need to disable this message.

I have tried with modifiing registry
KEY_CURRENT_USER\Software\Microsoft\Office\10.0\ Outlook\Security
(change 10.0 to 9.0 for Outlook 2000 SP3 or to 11.0 for Outlook 2003)
Under that key, add a new string value named Level1Remove. and added .
mdb
but this doesn't work.

I would prefer a solution where I can change the application or change
some registry settings, that only affects access applications. The last
resort would be to install a program that disconnects the security for
all types of programs.

Thanks Mikael Sjoeblom

Following are cut outs of the application.

Public Sub OutlookReadNewMail(intComputerGroup As Integer)
On Error GoTo Err_OutlookReadNewMail

Dim olApp As OutLook.Application
Dim Olmapi As OutLook.NameSpace
Dim Olfolder As OutLook.MAPIFolder
Dim olMail As Object 'Have to late bind as appointments e.t.c screw it
up
Dim OlItems As OutLook.Items
.
.
.

'Create a connection to outlook
Set olApp = CreateObject("Outlook.Application")
Set Olmapi = olApp.GetNamespace("MAPI")
.
.
.

Set OlItems = Olfolder.Items

'For each mail in the collection check the subject line and process
accordingly
For Each olMail In OlItems
If olMail.UnRead = True Then
olMail.Body ' This line activates trying
to access e-mail adressess
' Can't understand why
because it is the body
' not the e-mail adressess.

.
.
.

Wayne Gillespie
Gosford NSW Australia

Search for freeware "Express click YES"

Bob
Mar 26 '06 #3

This discussion thread is closed

Replies have been disabled for this discussion.