请问如何在asp中通过smtp服务器收发邮件，具体步骤是什么（用Access数据库）

来源：百度知道 编辑：UC知道 时间：2024/06/05 02:13:06
多谢!!!!
发邮件的早就知道了,但不知道如何收邮件,是不是一定要用POP3来收?
虽然在网上下过不少邮件系统的软件,不过都要进行安装,还经常出错,
经常在一台机子上调试成功,在另一台就出错.
还请高手回答!!

'****************************************************
'函数名：SendMail
'作 用：用Jmail组件发送邮件
'参 数：MailtoAddress ----收信人地址
' MailtoName -----收信人姓名
' Subject -----主题
' MailBody -----信件内容
' FromName -----发信人姓名
' MailFrom -----发信人地址
' Priority -----信件优先级
'****************************************************
function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
SendMail= "<br><li>没有安装JMail组件</li>"
err.clear
exit function
end if
JMail.Charset="gb2312" '邮件编码
JMail.silent=true
JMail.ContentType = "text/html" '邮件正文格式
'JMail.ServerAddress=MailServer