Outlook Redemption

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

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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"fgibbcollins" <fgibbcollins@discussions.microsoft.com> wrote in message news:613B6F07-2062-4506-9EF7-DF3FCB98CCEC@microsoft.com...
> 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
>

That works! Thanks Sue, you are an MVP

"Sue Mosher [MVP-Outlook]" wrote:

> 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
> http://www.turtleflock.com/olconfig/index.htm
> and Microsoft Outlook Programming - Jumpstart for
> Administrators, Power Users, and Developers
> http://www.outlookcode.com/jumpstart.aspx
>
> "fgibbcollins" <fgibbcollins@discussions.microsoft.com> wrote in message news:613B6F07-2062-4506-9EF7-DF3FCB98CCEC@microsoft.com...
> > 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
> >
>