使用不带前景的兑换
问题描述:
我正尝试使用兑换从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“和各国的方法或数据成员未找到”
基本上,我不知道我在做什么,所以请保持任何答案简单!
答
Safe*Item
Redemption中的对象系列旨在与Outlook对象模型对象一起使用,这些对象不能单独使用。上面的代码假定上面的Application变量指向了Outlook.Application对象的一个实例。如果您在Access VBA中运行,应用程序内部变量指向Access.Application
对象,而不是Outlok.Application。
RDO系列对象可以与独立版本的MAPI一起使用,但不会有任何配置文件。
您确实需要安装Outlook。如果Access 2000运行,为什么不运行Outlook 2000?所有64位版本的Windows都支持32位应用程序。
你能给创建与赎回电子邮件的代码示例(没有安装Outlook)? –
如果未安装Outlook,您需要下载并安装独立版本的MAPI - 这种或那种方式,兑换需要安装扩展MAPI系统。 –