mapi与cdo

关注

原创最新推荐文章于 2026-01-27 16:13:56 发布 1.7k 阅读 AI 写同款· GEO 优化 ›

快速学会使用FastReport VCL从Delphi / Lazarus将报表导出到Excel XML 报表生成器FastReport VCL是用于在软件中集成商务智能的现代解决方案。它提供了可视化模板设计器，可以访问最受欢迎的数据源，报告引擎，预览，将过滤器导出为30多种格式，并可以部署到云，Web，电子邮件和打印中。近日，FastReport VCL更新至v6.7，在新版本中，添加了对最新版本IDE的支持，简化了用于付款标准的条形码的创建，新增从预览窗口直接编辑RichView的功能，同时修复了多个Bug问题。欢迎下载体验。（点击下载） XML是一项旨在管理结构化数据并将该数据显示为人类可读的文本文阅读详情

因为要用到消息编程，于是考察了一下mapi和CDO
刚开始图简单，使用了MAPI ActiveX Control来编程，mapi ActiveX control有两个类（我使用的c++编程），CMAPISession和CMAPIMessage，使用起来非常简单。但底层还是用如Outlook Express之类的发送邮件，有时出现Outlook Expresss的发送邮件对话框，十分不爽。
于是开始搜寻MAPI的底层编程，mapi底层功能很强大，说是COM组件，但我看microsoft的例子中还是使用LoadLibrary装入msmapi32.dll，调用的还是普通的dll函数，似乎没看见COM的影子。在mapi之上有simple mapi, command messaging call和cdo。cdo是面向对象的com组件，比mapi底层使用要方便一些，于是选定cdo.
cdo也有很多版本，最开始叫ole messaging，然后是active messaging，现在叫cdo。有在Windows NT上用的cdonts.dll，for Windows 2000的cdosys.dll，for Exchange的cdoex.dll，还有管理、工作流的cdo。
先考察一下cdosys.dll，写了个vb的邮件发送程序：
Sub czm()
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration

Dim Flds As ADODB.Fields
Set Flds = iConf.Fields

With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "pop.tom.com"
.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
.Item(cdoSMTPAuthenticate) = cdoBasic

' IMPORTANT: Storing user names and passwords inside source code
' can lead to security vulnerabilities in your software. Do not
' store user names and passwords in your production code.
.Item(cdoSendUserName) = "zeki"
.Item(cdoSendPassword) = "zeki"

.Update
End With

With iMsg
Set .Configuration = iConf
      .To = """susan""susan@public.wh.hb.cn"
      .From = """zeki""zeki@tom.com"
      .Subject = "Hows it going? I've attached my web page"
      .CreateMHTMLBody "http://www.wuhan.net.cn"
      .AddAttachment "G:/mapiwp.txt"
      .Send
End With
成功发送邮件，而且和outlook express再也没什么联系，太好了，继续学习！