Enviando e-mails com o JMAIL

De Tavola Conectividade
Ir para navegação Ir para pesquisar

Segue abaixo exemplo para envio de e-mails autanticados via ASP com o JMAIL:

<%
   Dim objJMail
   Set objJMail = Server.CreateObject("Jmail.Message")	

   'Usuário / E-mail para autenticação
   objJMail.MailServerUserName = "seumail@seudominio.com.br"

   'Senha para autenticação
   objJMail.MailServerPassword = "suasenha"

   'E-mail do Remetente (Normalmente igual ao usuário de autenticação)
   objJMail.From = "REMETENTE"

   'Nome do Remetente
   objJMail.FromName = "NOME REMETENTE"

   'Destinatário
   objJMail.AddRecipient "DESTINATARIO"

   'Caso queira enviar uma cópia para alguem, defina abaixo o destino
   objJMail.AddRecipientCC "COPIA CASO NECESSÁRIO"

   'Assunto do E-mail
   objJMail.Subject = "ASSUNTO DO EMAIL"
 
  'Conteudo da mensagem em modo texto
   objJMail.Body = "CONTEUDO DO EMAIL EM MODO TEXTO"

   'Conteudo da mensagem em HTML
   objJMail.HTMLBody = "<h2>CONTEUDO</h2><br><b>DO E-MAIL EM FORMATO HTML</b>"

   'Prioridade da mensagem
   objJMail.Priority = 1

   'Adiciona o Header com o endereço ip do remetente da mensagem
   objJMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")

   'Servidor SMTP e PORTA
   objJMail.Send("smtp.servidordeemaildodominio.com.br:587")

   Set objJMail = Nothing 
%>