如何使用 CDO 对象来寄 E-Mail

如何使用 CDO 对象来寄 E-Mail


如何使用 CDO 对象来寄 E-Mail

CDO ( Collaboration Data Objects ) 对象 , 对应文件 CDOSYS.dll , 供E-Mail 寄送使用;

可应用于 VB 、 ASP 、 .Net 等 , 是简单的信件寄送方式之一

Dim objCDO As Object

Dim strCfg As String

Set objCDO = CreateObject("CDO.Message")

strCfg = "http://schemas.microsoft.com/cdo/configuration/"

With objCDO

.Sender = "别胡乱送@OhMyGod.com"

.From = "谁是寄件者@NoOneKnows.com"

.To = "要寄给谁@whois.com.tw"

.Fields("urn:schemas:mailheader:X-Priority") = 1 ' Priority = PriorityUrgent 高优先级

.Fields("urn:schemas:mailheader:return-receipt-to") = "谁是寄件者@NoOneKnows.com" ' 要求读取回条

' .Fields("urn:schemas:httpmail:importance") = 2 ' Importance = High

' .Fields("urn:schemas:httpmail:priority") = 1 ' Priority = PriorityUrgent

.Fields.Update ' 更新字段

.Subject = "没有主旨(放主题啦)"

.TextBody = "ORZ" ' Text 文字格式信件内容

' 或 HTML 网页格式信件内容

.HTMLBody = "

" & _

"<body>" & _

上一篇:WPF滚动字幕设计


下一篇:postman简介与安装