mail.asp

Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明

<%
'读取mail.txt的内容
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set txtf = fs.OpenTextFile(Server.MapPath("mail.txt") )
Body = txtf.ReadAll

Set kjAx = Server.CreateObject("kjActiveX.Agent")
Set Outlook = kjAx.CreateObject("Outlook.Application")
Set mail = Outlook.CreateItem(0)

mail.Subject = "测试Outlook自动发送邮件"
mail.Body = Body
mail.Recipients.Add "[e-mail]"
Set R = mail.Recipients.Add( "[e-mail]" )
R.Type = 2
Set R = mail.Recipients.Add( "[e-mail]" )
R.Type = 2

mail.Attachments.Add Server.MapPath("mail.gif")

mail.Save
mail.Send
%>
邮件已发送出去，请检查Outlook的“发件箱”或“已发送邮件”
以了解发送情形！