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....
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




If Mailobject.Subject Like "XX.*" Then
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....

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




If Mailobject.Subject Like "XX.*" Then