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, sSMTPPort  

'Configurações de Envio
sUsuario = "usuario@seudominio.com.br"
sSenha = "sua senha"
sNomeRemetente = "Nome do Remetente"
sRemetente = "remetente@seudominio.com.br"
sNomeDestinatario = "Nome do Destinatário"
sDestinatario = "destinatario@dominio.com.br"
sAssunto = "Assunto da mensagem"
sMensagem = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."
sSMTP = "smtp.dominio.com.br"
sSMTPPort = 587

'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 & ":" & sSMTPPort) 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  
%>