I have the redemption DLL (3.4.0.402) working and no longer get promts when sending email. But I can't access Item.SenderName without yes-clicking the promt (when reading email). Outlook is 2003 SP1, VB6 code is:
Dim objOL As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim objSMail As Object
Dim objItems As Outlook.Items
Set objOL = CreateObject("Outlook.Application")
Set myNameSpace = objOL.GetNamespace("MAPI")
Set objSMail = CreateObject("Custom.SafeMailItem")
myNameSpace.Logon conOLProfile, "", False, True
'Initialize the Outlook items collection.
Set objItems = myNameSpace.Session.GetDefaultFolder(olFolderInbox).Items
For intItemCounter = objItems.Count To 1 Step -1
'Exclude all objects that are not mail items.
If objItems(intItemCounter).Class = olMail Then
Set objSMail.Item = objItems(intItemCounter)
With objSMail.Item
MsgBox (.SenderName) ' This line gets promt
... but .Subject and .ReceivedTime don't get prompts.
Thank you in advance for information on how to get rid of another "Do you want to allow this?" feature.
Carl
Dim objOL As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim objSMail As Object
Dim objItems As Outlook.Items
Set objOL = CreateObject("Outlook.Application")
Set myNameSpace = objOL.GetNamespace("MAPI")
Set objSMail = CreateObject("Custom.SafeMailItem")
myNameSpace.Logon conOLProfile, "", False, True
'Initialize the Outlook items collection.
Set objItems = myNameSpace.Session.GetDefaultFolder(olFolderInbox).Items
For intItemCounter = objItems.Count To 1 Step -1
'Exclude all objects that are not mail items.
If objItems(intItemCounter).Class = olMail Then
Set objSMail.Item = objItems(intItemCounter)
With objSMail.Item
MsgBox (.SenderName) ' This line gets promt
... but .Subject and .ReceivedTime don't get prompts.
Thank you in advance for information on how to get rid of another "Do you want to allow this?" feature.
Carl