Proper Use of Redemption with Auto-Forward

[jeccorp]

Hi All,

I have a 2nd email set up in my Outlook that is used as a General
mailbox. All emails received from this email get automatically moved
to a "GeneralHelp" folder.

I go through the "GeneralHelp" folder and determine who will answer the
email, I move the email into the "ToHelp1" or "ToHelp2" folders, and
the email gets forwarded to the addressee for those folders. I have
this working except for when the email generates, Outlook comes back
with the click "Yes" that you acknowledge/allow this email to be sent
on "your behalf". I have looked on the groups and am trying to get the
Redemption solution to work. I have loaded it correctly, but I am
still receiving the acknowledge/allow dialogue.

Can someone please take a look at the following code and let me know
what I am missing?


Thanks,
jeccorp


'-----Start(Redemption Code)
Public WithEvents myOlItems As Outlook.Items


Public Sub Application_Startup()


Set myOlItems = Outlook.Session.Folders("Personal
Folders").Folders("GeneralHelp").Folders("ToHelp1").Items


End Sub


Private Sub myOlItems_ItemAdd(ByVal Item As Object)


Set oRdpMail = CreateObject("Redemption.SafeMailItem")


oRdpMail.Item = Item
oRdpMail.Save


Set myForward = oRdpMail.Item.Forward
myForward.Recipients.Add "(e-mail address removed)"
myForward.Send


End Sub
'-----End(Redemption Code)

 

[Dmitry Streblechenko]

Set myForward = oRdpMail.Item.Forward

Set oRdpMail = CreateObject("Redemption.SafeMailItem")

oRdpMail.Item = myForward
oRdpMail.Save

oRdpMail.Recipients.Add "(e-mail address removed)"
oRdpMail.Send

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool