Um processo de envio de cartas usando jmail e como usá-lo.
Ao enviar uma carta, basta ligar diretamente para esse processo.
<%
dim str,HtmlBody
HtmlBody=
"<html><body bgcolor='red' topmargin='40'><p align='center'>Eu amo 2Yup!</p></html>"
str=JmailSend(
"olá" ,
"ILoveYou" ,
true ,HtmlBody,
"[email protected]" ,
[email protected] ,
"olá" , "smtp.sina.com.cn" , "olá" , "Senha " )
se str = "S" então
resposta.write (" enviado com sucesso" )
outro
resposta.write ( "Falha no envio! Tente novamente!" )
terminar se
função JmailSend(Assunto,Corpo,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Nome de usuário,Senha)
escurecer JmailMsg
defina JmailMsg= servidor createobject ( "jmail.message" )
JmailMsg.mailserverusername=Nome de usuário
JmailMsg.mailserverpassword=Senha
JmailMsg.addrecipient MailTo
JmailMsg.from=De
JmailMsg.fromname=DoNome
Conjunto de caracteres JmailMsg. = "gb2312"
JmailMsg.logging = verdadeiro
JmailMsg.silent= verdadeiro
JmailMsg.subject=Assunto
JmailMsg.body=Corpo
se isHtml= true então JmailMsg.htmlbody=HtmlBody
se não for JmailMsg.send(Smtp) então
JmailSend= "N"
outro
JmailSend= "S"
terminar se
Fechar JmailMsg.
definir JmailMsg = nada
função final
%>