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.
Postagens
