使用不带前景的兑换

我正尝试使用兑换从MSaccess2000发送一封简单的电子邮件。我在Windows10上，所以无法加载的Outlook2000（据我所知它不会在64位工作）使用不带前景的兑换

我已经下载并安装了Microsoft Exchange Server MAPI客户端。

使用代码：

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

，但是它停止对CreateItem“和各国的方法或数据成员未找到”

基本上，我不知道我在做什么，所以请保持任何答案简单！

来源

2015-10-16 Perrybond

Safe*Item Redemption中的对象系列旨在与Outlook对象模型对象一起使用，这些对象不能单独使用。上面的代码假定上面的Application变量指向了Outlook.Application对象的一个实例。如果您在Access VBA中运行，应用程序内部变量指向Access.Application对象，而不是Outlok.Application。

RDO系列对象可以与独立版本的MAPI一起使用，但不会有任何配置文件。

您确实需要安装Outlook。如果Access 2000运行，为什么不运行Outlook 2000？所有64位版本的Windows都支持32位应用程序。

来源

2015-10-16 15:12:54

你能给创建与赎回电子邮件的代码示例（没有安装Outlook）？ –

如果未安装Outlook，您需要下载并安装独立版本的MAPI - 这种或那种方式，兑换需要安装扩展MAPI系统。 –