Using redemption without outlook

0
votes

I am trying to send a simple email from MSaccess2000 using Redemption. I am on windows10 so cannot load outlook2000 (as I understand it won't work on 64bit)

I have downloaded and installed Microsoft Exchange Server MAPI Client.

Using the code:

Dim SafeItem, oItem
Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem
Set oItem = Application.CreateItem(0) 'Create a new message
SafeItem.Item = oItem 'set Item property
SafeItem.Recipients.Add "[email protected]"
SafeItem.Recipients.ResolveAll
SafeItem.Subject = "Testing Redemption"
SafeItem.Send

But it stops on CreateItem and states 'Method or data member not found'

Basically, I have no idea what I am doing, so please keep any answers simple!

2
mapioutlook-redemption

2 Answers

1
votes

Safe*Item family of objects in Redemption is designed to use alongside the Outlook Object Model objects, these obejcts cannot be used standalone. Your code above assumes that Application variable above points to an instance of the Outlook.Application object. If you are running in Access VBA, Application intrinsic variable points to the Access.Application object, not Outlok.Application.

The RDO family of objects can be used with the standalone version of MAPI, but then there won't be any profiles.

You do need to have Outlook installed. If Access 2000 runs, why wouldn't Outlook 2000 run? All 64 bit flavors of Windows support 32 bit applications.