wjgszxl 发表于 2008-7-5 14:06

如何让系统在后台发邮件给指定的邮箱？

如何让系统在后台发邮件给指定的邮箱？
高手们帮帮忙，谢谢了

multiple1902 发表于 2008-7-5 17:07

精简一下你的问句就是：如何发送邮件？
[code]
        On error resume next
        Dim JMail
        Set JMail = Server.CreateObject("JMail.Message")
        JMail.Charset = "gb2312"
        JMail.Silent = True

        JMail.From = "123123@qq.com"
        JMail.FromName = "123123"
        JMail.Subject = "title"

        ' 身份验证
        JMail.MailServerUserName = "123123"
        JMail.MailServerPassword = "234234"

        ' 设置优先级，范围从1到5，越大的优先级越高，3为普通
        JMail.Priority = 3

        JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

        ' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
        JMail.AddRecipient("123123@qzone.qq.com")


        ' 邮件主体（HTML(注意信件内链接附件的方式)）
        JMail.HTMLBody = "123123"

        ' 邮件主体（文本部分）
        JMail.Body = "123123"

        ' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
        SendBlog=JMail.Send("smtp.qq.com")

        ' 关闭并清除对象
        JMail.Close()
        Set JMail = Nothing
[/code]

要支持JMail组件才行

当然你可以用Winsock完成，需要自己处理SMTP协议了。

lingandyi 发表于 2008-7-30 22:10

估计楼主是写木马程序吧 [em09]

页: [1]

编程论坛