Componentes de E-mail ASP

Para quem usa Classic ASP 3, abaixo colocamos alguns exemplos de código para o uso dos componentes de envio de e-mail mais utilizados em hosting compartilhado.


Advantys ASPSmartMail

<%
Set objSmartMail = Server.CreateObject("aspSmartMail.SmartMail")
objSmartMail.Server = "smtp.dominio.com"
objSmartMail.SenderName = "Nome do Remetente"
objSmartMail.SenderAddress = "meuemail@teste.com"
objSmartMail.Recipients.Add("destinatario@teste.com", "Nome do destinatario")
objSmartMail.Subject = "Assunto do Email"
objSmartMail.Body = "Conteudo do email"
objSmartMail.SendMail()
Set objSmartMail = Nothing
%>

Persits AspEmail
<%
Set objAspEmail = Server.CreateObject("Persits.MailSender")
objAspEmail.Host = "smtp.dominio.com"
objAspEmail.FromName = "Nome do Remetente"
objAspEmail.From = "meuemail@teste.com"
objAspEmail.AddAddress "destinatario@teste.com"
objAspEmail.Subject = "Assunto do Email"
objAspEmail.Body = "Conteudo do email"
objAspEmail.Send()
Set objAspEmail = Nothing
%>

Dundas Mailer
<%
Set objDundasMailer = Server.CreateObject("Dundas.Mailer")
objDundasMailer.SMTPRelayServers.Add "smtp.dominio.com", 25
objDundasMailer.TOs.Add "destinatario@teste.com"
objDundasMailer.FromAddress = "meuemail@teste.com"
objDundasMailer.Subject = "Assunto do Email"
objDundasMailer.HTMLBody = "Conteudo do email"
objDundasMailer.SendMail()
Set objDundasMailer = Nothing
%>

Jmail

<%
Set objJmail = Server.CreateOBject("JMail.Message")
objJmail.From = "meuemail@teste.com"
objJmail.AddRecipient "destinatario@teste.com"
objJmail.Subject = "Assunto do Email"
objJmail.Body = "Conteudo do email"
objJmail.Send("smtp.dominio.com")
Set objJmail = Nothing
%>
SoftArtisans SMTPmail
<%
Set objSASMTPMail = Server.CreateObject("SoftArtisans.SMTPMail")
objSASMTPMail.FromName = "Nome do Remetente"
objSASMTPMail.FromAddress = "meuemail@teste.com"
objSASMTPMail.RemoteHost = "smtp.dominio.com"
objSASMTPMail.AddRecipient("destinatario@teste.com", "Nome do destinatario")
objSASMTPMail.Subject = "Assunto do Email"
objSASMTPMail.BodyText = "Conteudo do email"
objSASMTPMail.SendMail()
Set objSASMTPMail = Nothing
%>

Microsoft CDonts
<%
Set objCdonts = Server.CreateObject("CDONTS.NewMail")
objCdonts.From = "meuemail@teste.com"
objCdonts.To = "destinatario@teste.com"
objCdonts.Subject = "Assunto do Email"
objCdonts.Body = "Conteudo do email"
objCdonts.Send ()
Set objCdonts = Nothing
%>

Microsoft CDOSys
<% 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com"   
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25   
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2   
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60   
objCDOSYSCon.Fields.Update  
Set objCDOSYSMail.Configuration = objCDOSYSCon 
objCDOSYSMail.From = "meuemail@teste.com"
objCDOSYSMail.To =  "destinatario@teste.com"
objCDOSYSMail.Subject = "Assunto do Email"
objCDOSYSMail.HTMLBody = "Conteudo do email"
objCDOSYSMail.Send()
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 
%>

Lembre-se:

Ao receber a mensagem

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

tentando utilizar um dos scripts, significa que o servidor onde está o site não possui este componente instalado.