How to send mail using VBScript & JMail - SourceCode - 如何用VBScript & JMail 发送邮件 - 源码

The follow is ASP File Content.

 

 

1. <%
3. Dim senddata
4. senddata=Request("data")
5. if senddata="" then senddata=Time()
7. call SendEmail("Jackie-Ji@qq.com","邮件主题",senddata,"hackerjly@163.com")  '邮箱全称
9. Sub SendEmail(ToEmail,Subject,Content,FromEmail)
10.   Set jmail = Server.CreateObject("JMAIL.Message")
11.   jmail.silent = true
12.   Jmail.logging = true
13.   jmail.Charset = "GB2312"
14.   jmail.ContentType = "text/html"
15.   jmail.AddRecipient ToEmail
16.   jmail.From = FromEmail
17.   jmail.Subject = Subject
18.   jmail.Body = Content
19.   'jmail.Prority = 1     '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
21.   jmail.MailServerUserName = "hackerjly"   '登录邮件服务器所需的用户名
22.   jmail.MailServerPassword = "Password"   '登录邮件服务器所需的密码
23.   jmail.Send("smtp.163.com")   '执行邮件发送（通过邮件服务器地址）
25.   jmail.Close()   '关闭对象
26.   Set jmail=nothing
27. End Sub 
29. %>

Invoke method:

For example :  http://www.WebsiteName.com/ASPFileName.asp?data=Who am i ?