asp怎么做邮件呀，

tianqwwq 2004-08-05 08:11:31

各位大哥，大姐们谁有源代码，写的，能用的，谢谢
可以发文字就可以

...全文

72 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

forwhj 2004-08-05

打赏
举报

如果你要作一个邮件系统，下载一个CMail就OK了，里面有全套的ASP代码，不过写的有点复杂。
如果只是发邮件的话用SMTP就可以。

eyun 2004-08-05

打赏
举报

你在机子上调试的时候要注册jmail组件
在租用的空间也同样需要注册jmail组件

eyun 2004-08-05

打赏
举报

Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName ="eyun@eyun.org" '输入smtp服务器验证登陆名（邮局中任何一个用户的Email地址）
msg.MailServerPassword ="*******" '输入smtp服务器验证密码　（用户Email帐号对应的密码）
msg.From ="eyun@eyun.org" '发件人Email
msg.FromName ="eyun艺云" '发件人姓名
msg.AddRecipient (request("email"))'收件人Email
msg.Subject = "T02356确认邮件" '信件主题
msg.htmlBody ="<html><body><center>"&mailbody&"请<a href='www.eyun.org/235/usercheck.asp'>确认</a></center></body></html>" '正文
msg.Send ("mail.eyun.org") 'smtp服务器地址（企业邮局地址）
set msg = nothing

woyingjie 2004-08-05

打赏
举报

<%
Title="welcome you to Killerj.tK"
'ToWho="woyingjie@yahoo.com.cn"
ToWho="woyingjie@yahoo.com.cn"
Content="http://www.killerj.tk"
call SendMyEmail(Title,ToWho,Content)
'发送邮件
Sub SendMyEmail(Title,ToWho,Content)
Dim msg
Dim email_server,user_name,password,Email_type,send_email

email_server = "smtp.163.com"
user_name = "woyingjie@163.com"
password = "******"
Email_type = 1
send_email = "killerJ"

Set msg=Server.CreateObject("JMail.Message")

msg.Body = ""
msg.HTMLBody = ""
'---
msg.appendtext(Content)

if user_name<>"" and password<>"" then
msg.MailServerUserName = user_name
msg.MailServerPassword = password
end if
if ToWho<>"" then msg.ReplyTo=ToWho
'--
msg.Logging = True
msg.silent = true
msg.Charset = "so-8859-1"
msg.From = user_name
msg.FromName = send_email
msg.Subject = Title
'--
msg.AddRecipient ToWho
msg.Priority=Email_type
err=msg.Send (email_server)
'---
msg.clear
msg.close
Set msg=nothing
End Sub
%>