JMail
Instruções para envio de e-mail utilizando o componente JMail
Fabricante: Dimac Development (www.dimac.net)
Documentação: http://www.dimac.net/Products/w3JMail/start.htm
Exemplo de implementação
<%
Declaração de Variáveis
Dim objMail
Dim sUsuario, sSenha, sRemetente, sNomeRemetente, sDestinatario
Dim sNomeDestinatario, sAssunto, sMensagem, sSMTP
'Configurações de Envio
sUsuario = "usuario@seudominio.com.br"
sSenha = "sua senha"
sRemetente = "remetente@seudominio.com.br"
sNomeRemetente = "Nome do Remetente"
sDestinatario = "destinatario@dominio.com.br"
sNomeDestinatario = "Nome do Destinatário"
sAssunto = "Assunto da mensagem"
sMensagem = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."
sSMTP = "smtp.dominio.com.br"
'Criação da Mensagem
set objMail = Server.CreateObject("JMail.Message")
objMail.From = sRemetente
objMail.FromName = sNomeRemetente
objMail.AddRecipient sDestinatario, sNomeDestinatario
objMail.Subject = sAssunto
objMail.Body = sMensagem
objMail.MailServerUserName = sUsuario
objMail.MailServerPassWord = sSenha
'Envio da Mensagem
If objMail.Send(sSmtp) Then
Response.write "E-mail enviado..."
Else
Response.Write "Erro no envio de e-mail: " & objMail.log
End if
'Limpeza da memória
Set objMail = Nothing
%>