Tavola: Criou página com 'Category:Linguagens de ProgramaçãoCategory:ASPCategory:Componentes ASP '''Segue abaixo exemplo para envio de e-mails autanticados via ASP com o JMAIL:'''

...'

2021-06-28T15:35:49Z

Criou página com 'Category:Linguagens de Programação Category:ASP Category:Componentes ASP '''Segue abaixo exemplo para envio de e-mails autanticados via ASP com o JMAIL:''' <pre>...'

Página nova

[[Category:Linguagens de Programação]][[Category:ASP]][[Category:Componentes ASP]]
'''Segue abaixo exemplo para envio de e-mails autanticados via ASP com o JMAIL:'''

<pre>
<%
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
%>
</pre>

Enviando e-mails com o JMAIL - Histórico de revisão

Tavola: Criou página com 'Category:Linguagens de ProgramaçãoCategory:ASPCategory:Componentes ASP '''Segue abaixo exemplo para envio de e-mails autanticados via ASP com o JMAIL:'''
...'