JMail a letter with the JMail process, and the use of the method.
When you send a letter, call the procedure directly.
<%
Dim str,htmlbody
htmlbody= "Str=jmailsend ("Hello", "ILoveYou", True,htmlbody, "youname@domain.com", youname@sina.com,
"Hello", "smtp.sina.com.cn", "Hello", "Password")
If str= "Y" Then
Response.Write ("Send Success")
Else
Response.Write ("Send failed! Please try again!")
End If
'=================================================
' Function name: jmailsend
' function: Send mail with JMail
' Parameters: Subject message headers
' Body mail content
' Body mail content
' ishtml whether to send HTML-formatted messages (true)
' HtmlBody HTML format message content
' MailTo recipient Email
' From sender email
' FromName Sender Name
' SMTP SMTP server
' Username Mailbox User name
' Password mailbox password
' Return value: jmailsend= ' N ' send failed jmailsend= ' Y ' sent successfully
' ~~~~~~~~~~suercool~~~~~
'=================================================
function Jmailsend (Subject,body,ishtml,htmlbody,mailto,from,fromname,smtp,username,password)
Dim jmailmsg
Set Jmailmsg=server.createobject ("Jmail.message")
Jmailmsg.mailserverusername=username
Jmailmsg.mailserverpassword=password
Jmailmsg.addrecipient MailTo
Jmailmsg.from=from
Jmailmsg.fromname=fromname
jmailmsg.charset= "gb2312"
Jmailmsg.logging=true
Jmailmsg.silent=true
Jmailmsg.subject=subject
Jmailmsg.body=body
If Ishtml=true then Jmailmsg.htmlbody=htmlbody
If not jmailmsg.send (SMTP) Then
Jmailsend= "N"
Else
Jmailsend= "Y"
End If
Jmailmsg.close
Set jmailmsg=nothing
End Function
%>
