查人人中国名人网win10降为win7:ASP可以制作简单的邮件发送程序不？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/09 03:54:16
大家好，我用ASP做了一个邮件发送程序，但是好像不能填写发件人的地址，只能自己在程序里固定同一个SMTP服务器和用户名及密码才能发送信息，我想做成一个无须登录就可以发送电子邮件，填写什么地址，对方的邮件里就显示什么地址的ASP程序，有哪位高手如果有的话，请指点一下，本人就这么一点儿分了，全撒了！！～！！
Dim sendmaildll
Dim strA, strB, strC
Set sendmaildll= Server.CreateObject("SendMaildll.Send_mail")
sendmaildll.AuthenticationType="1"
sendmaildll.Host=***
sendmaildll.port="25"
strA=sendmaildll.Connect (UserName,Password)
strB=sendmaildll.Authenticate
sendmaildll.subject=主题
sendmaildll.Emailto=寄出的地址
sendmaildll.Fromaddress=寄信人地址
sendmaildll.fromname=寄信人姓名
sendmaildll.Addbody 信的内容
sendmaildll.Priority="1"
strC=sendmaildll.sendmail
if strC="0" Or strC="" then
Response.Write "恭喜，发送邮件成功，等待工作人员处理！"
else
Response.Write = "邮件发送失败，请重新发送"
end if
set sendmaildll=nothing