Emailing database using redemption

[Zbob]

I have a access database that updates tables and I would like it to email itself as an attachment using redemption.

My problem is I keep getting the following error message.

Method or Data member not found

Am I missing something

Private Sub cmdUpdate_Click()

DoCmd.OpenQuery "Update Invoice Query"
Dim SafeItem, oItem, OlApp

Set OlApp = CreateObject("Outlook.Application&quot
OlApp.CreateItem (olMailItem)
Set SafeItem = CreateObject("Redemption.SafeMailItem&quot 'Create an instance of Redemption.SafeMailItem
Set oItem = Application.CreateItem(0) 'Create a new message
SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add "somebody@somewhere.com"
SafeItem.Recipients.ResolveAll
SafeItem.Subject = "Testing Redemption"
SafeItem.Send

 

[SBendBuckeye]

I don't see where you ever set up the attachment. At which line are you getting the error if you go into single step mode?

Have a great day and good luck!