Full-house

‘发送通知
adm_mail=”34473XXXX@qq.com”
mailserver=”smtp.126.com”        ’smtp服务器地址
mailname=”hzl334@126.com”    ‘发信邮箱
mailpassword=”XXXXXX”            ‘发信邮箱密码

Set msg = Server.CreateObject(“JMail.Message”)
msg.silent = true
msg.Logging = true
msg.Charset = “gb2312″
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpassword
msg.From = mailname
msg.FromName = “苏大家教吧”
msg.AddRecipient (adm_mail)
msg.Subject = “家教吧致秋云的信，有新的家教信息了！”
msg.Body = name & “,” & dq & “,” & dq2  & “,” & Tel1 & ” >>>年级：” & nj & “>>>求教学科：” & km
msg.Body = msg.Body & “发布时间：” & now & vbcrlf & vbcrlf
msg.Body = msg.Body & “注意：你的所有员工也同时收到了这个E-mail,家教吧祝您工作愉快 ^_^ ”
msg.Send (mailserver)
msg.close
set msg = nothing