如何使用 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>" & _