Outlook Security Warning

bhena

New member
Local time
Today, 01:53
Joined
Apr 16, 2009
Messages
1
Hi,
I saw your code for Send E-mail without Security Warning.

I have simaler problem while I'm trying to read from Inbox.

The following Code (Access VBA) is working but every time I use
Mailobject.Subject
I have the popup with "A program is trying to access....


SendEmailWarning.gif




Dim TempRst As DAO.Recordset
Dim rst As DAO.Recordset
Dim OlApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim InboxItems As Outlook.Items
Dim myItem As Object


Set OlApp = CreateObject("Outlook.Application")
Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)
Set myItems = Inbox.Items


Dim Mailobject As Object
Set db = CurrentDb

'
Set InboxItems = Inbox.Items
'
For Each Mailobject In InboxItems
'If Mailobject.UnRead Then
:confused::confused::confused::confused:
If Mailobject.Subject Like "XX.*" Then
 
Hi sorry to butt into this but I have downloaded the MAPIlab v1.43 and referenced the file outlsec.dll but the outlook security standard warning still runs when using either the Docmd.sendobject or more comprehensive Outlook objects methods.

Can you give me any help? thanks
 

Users who are viewing this thread

Back
Top Bottom