VB 版 (精华区)

发信人: folmorse (◆金瓶楼主◆), 信区: VB
标  题: 一个发送E_mail的程序
发信站: 大红花的国度 (Sun Jun 11 15:11:23 2000), 转信

1.IIS4的SMTP.SMTP服务安装后，在你的system32目录
下会有一个文件叫CDONTS.DLL。请参考下面的源代码:
<%
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
att_file="c:\attachments\StandardPolicy.txt"
f_name="Policy.txt"
MailObject.From="stelede@ozemail.com.au"
MailObject.To="j_smith@zentus.com"
MailObject.Subject="Subject Text Here"
MailObject.Body="Body Text Here"
MailObject.AttachFile att_file,f_name
MailObject.Send
set MailObject = nothing
%>
或
<%Set objNewMail = CreateObject("CDONTS.NewMail")
  '添加附件
  objNewMail.AttachFile("\\server\schedule\sched.xls", "SCHED.XLS")
  objNewMail.Send("me@company.com", "you@company.com", "Hello", _
                  "I sent this in 3 statements!", 0) ' low importance
  Set objNewMail = Nothing ' canNOT reuse it for another message
%> 
--
※ 修改:．folmorse 于 Jun 11 15:10:24 修改本文．[FROM: hpwei.hit.edu.cn]
--
※ 转寄:．华南网木棉站 bbs.gznet.edu.cn．[FROM: hpwei.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: folmorse.bbs@melon.g]