ASPEmail
Enviando e-mail com o componente ASPEmail
Fabricante: Persits Software, Inc. (www.aspemail.com)
Documentação: http://www.aspemail.com/manual.html
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@dominio.com.br"
sSenha = "sua senha"
sRemetente = "remetente@dominio.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("Persits.MailSender")
objMail.Host = sSMTP
objMail.From = sRemetente
objMail.FromName = sRemetenteNome
objMail.AddAddress sDestinatario
objMail.Subject = sAssunto
objMail.Body = sMensagem
objMail.Username = sUsuario
objMail.Password = sSenha
On Error Resume Next
objMail.Send
If Err <> 0 Then
Response.Write "Erro ao enviar mensagem: " & Err.Description
Else
Response.Write "Mensagem Enviada com sucesso!"
End If
On Error GoTo 0
%>