asp邮件发送

首先确认你已经安装了Jmail组件 <% Public Function SendMail(MailTitle,GetMailMan,MailBody,SendFrom,SendName,SendUser,SendPwd,SendSmtp) On Error Resume Next Set Jms = Server.CreateObject("jmail.Message") Jms.Charset = "GB2312" '编码 Jms.ContentType = "text/html" Jms.Subject = MailTitle '邮件标题 Jms.AddRecipient(GetMailMan) '接收人邮箱 Jms.Body = MailBody '邮件内容 Jms.From = SendFrom '发件人地址 Jms.FromName = SendName '发件人姓名 Jms.MailServerUserName = SendUser '发件人帐号 Jms.MailServerPassWord = SendPwd '发件人密码 Jms.Send(SendSmtp) '发件人邮箱smtp服务器 Jms.Close() Set Jms = Nothing If Err.number <> 0 then SendMail = "邮件发送失败!"& Err.Description Else SendMail = "邮件发送成功!" End If End Function MailTitle="邮件标题" MailBody="邮件内容" GetMailMan="接收人邮箱" SendName="发件人姓名" SendFrom="发件人邮箱" SendUser="发件人帐号" '一般可以直接填写邮箱地址，但某些像163的可以使用前面的账号名 SendPwd="发件人密码" SendSmtp="发件人邮箱smtp服务器" '目前个别邮箱不能试用这个功能，不过QQ邮箱可以（必须登陆QQ邮箱打勾开放“STMP功能”） call SendMail(MailTitle,GetMailMan,MailBody,SendFrom,SendName,SendUser,SendPwd,SendSmtp) %>