[Resolvido] Sintaxe de componentes de envio de email

[crazybaby 0]

Eu fiz estas sintaxes para ter como referência e estou postando para vocês. ;)

 

 

JMAIL

Set Mail = Server.CreateObject("JMail.SMTPMail")With Mail.ServerAddress = "mail.zocka.com" 'Servidor de envio de email..Sender = "crazybabyasp@yahoo.com.br" 'Email do remetente.SenderName = "CrazyBaby" 'Nome do remetente.AddRecipient request.Form("email") 'Email do destinatario.Subject = "Teste de envio de email" 'Assunto do email.HTMLBody = "Este é um exemplo de envio de email com JMail.<br>By Crazybaby." 'Corpo do email.Aceita tags HTML.Priority = 3 'Prioridade de envio do email.Execute 'Envia o emailEnd WithResponse.write("Email enviado com sucesso")set Mail = nothing

ASPMAIL

Set Mail = Server.CreateObject("SMTPsvg.Mailer") With Mail.FromName = "CrazyBaby" 'Nome do remetente.FromAddress= "crazybabyasp@yahoo.com.br" 'Email do remetente.RemoteHost = "mail.zocka.com" 'Servidor de envio de email.AddRecipient " ", request.Form("email") 'Nome e/ou email do destinatário.ContentType = "text/html" 'Tipo do corpo do email.HTML.Subject = "Teste de envio de email" 'Assunto do email.BodyText = "Este é um exemplo de envio de email com AspMail.<br>By Crazybaby." ' Corpo do email.SendMail 'Envia o emailEnd WithResponse.write("Email enviado com sucesso")set Mail = nothing

ASPEMAIL

Set Mail = Server.CreateObject("Persits.MailSender") With Mail.Host = "mail.zocka.com" 'Servidor de envio de email.From = "crazybabyasp@yahoo.com.br" 'Email do remetente.FromName = "CrazyBaby" 'Nome do remetente.AddAddress request.Form("Email") 'Email do destinatario.Subject = "Teste de envio de email" 'Assunto do email.IsHtml = true 'Define se o email vai ser em formato html.Body = "Este é um exemplo de envio de email com AspEmail.<br>By Crazybaby." 'Corpo do email.Send 'Envia o emailEnd WithResponse.write("Email enviado com sucesso")set Mail = nothing

CDONTS

Set Mail = Server.CreateObject("CDONTS.NewMail")With Mail.From = "crazybabyasp@yahoo.com.br (CrazyBaby)" 'Email e/ou nome do remetente.Subject = "TESTE de envio de email" 'Assunto do email.To = Request.Form("email") 'Email do destinatario.Body = "Este é um exemplo de envio de email com cdonts.<br>By Crazybaby." 'Corpo do email.mailformat = 0 'Define o email para o formato MIME.bodyformat = 0 'Define o corpo do email para html.Send 'Envia o emailEnd WithResponse.write("Email enviado com sucesso")set Mail = nothing

Note que o cdonts é o unico componente que não utiliza servidor de envio de email(SMTP).

 

Façam bom proveito! :D

 

Flows

B)