Outlook Redemption

[fgibbcollins]

In Access I have the following code in the click event of a command button.
It copies the body of an email message selected in an Outlook View Control
into a cooresponding memo field on the form. It works fine, but I want to
get rid of the Outlook security pop ups. I've downloaded and installed
Outlook Redemption, but I can't figure out where to insert the code and which
safe object to use. Redemption doesn't have a safeSelection or safeItem.
Any assistance would be greatly appreaciated.
Thanks,
Frank

Private Sub CmdCopyEmail_Click()
Dim CopyItem As Outlook.Selection
Dim CopyMail As Object
Dim x As Integer

With OutlookViewCtl
Set CopyItem = OutlookViewCtl.Selection
For x = 1 To CopyItem.Count
Notes = CopyItem.Item(x).Body
Next x
End With
End Sub

 

[Sue Mosher [MVP-Outlook]]

Something like this:

Set CopyItem = OutlookViewCtl.Selection
Set sMail = CreateObject("Redemption.SafeMailItem")
For Each itm in CopyItem
sMail.Item = itm
Notes = Notes & vbCrLf & vbCrLf & sMail.Body
Next
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

 

[fgibbcollins]

That works! Thanks Sue, you are an MVP

Something like this:

Set CopyItem = OutlookViewCtl.Selection
Set sMail = CreateObject("Redemption.SafeMailItem")
For Each itm in CopyItem
sMail.Item = itm
Notes = Notes & vbCrLf & vbCrLf & sMail.Body
Next
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers