Dundas Mailer
Enviando e-mail com o componente Dundas Mailer
Fabricante: Dundas Software (www.dundas.com)
Documentação: http://aspalliance.com/dundas/
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"
sDestinatario = "destinatario@dominio.com.br"
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("Dundas.Mailer")
objMail.SMTPRelayServersCollection.Add sSMTP
objMail.FromAddress = sRemetente
objMail.TOs.Add sDestinatario
objMail.Subject = sAssunto
objMail.Body = sMensagem
objMail.SendMail
'Limpeza da memória
Set objMail = Nothing
%>
Atenção: Este componente é instalado apenas em servidores Windows 2000 e não funciona em contas da plataforma Windows 2008, criadas a partir de Agosto de 2010.