I am just not getting this to work.

Outlook 2003, SP1
Windows XP, SP2

Here is a snippet of code that is failing:

Private Sub sortIncoming(ByRef mail As MailItem)
On Error GoTo errHandler
Dim targetPst As String
Dim targetFolders
Dim sourceDomain As String
Dim sourceList As String
Dim sourceAddress As String
Dim myExplorers As Outlook.Explorers
Dim pstFolder As MAPIFolder
Dim targetFolder As MAPIFolder
Dim i As Integer
Dim j As Integer
' This is *supposed* to bypass the object guard...
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim olMail As Outlook.MailItem

strID = mail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set olMail = olNS.GetItemFromID(strID)

' This is still tripping the object guard!!
sourceAddress = olMail.Recipients.Item(1).Address
.....
.....
.....

exitHandler:
Set olMail = Nothing
Set olNS = Nothing
Exit Sub

errHandler:
Resume Next

End Sub

Any ideas *WHY* it's still tripping the object guard???

--
Keith 'StarPilot' Barrows
ASPInsider
http://sol3.net/blogs/starpilot


"Sue Mosher [MVP-Outlook]" wrote:

See http://www.outlookcode.com/d/sec.htm for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"ms news" wrote in message ...
They are any possibility to disable the security alerts on outlook XP/2003?,
I thing trought the registry.

I have a Visual Basic application that access to my outlook messages. But
the security alert is not allowing me to access all the time to the savefile
method


Thanks in advance.