Modelo de Formulário para envio de emails através do seu site.
Para enviar seus formulários do seu site, use um dos modelos abaixo, em função do software que o provedor disponibiliza.
Com a adoção da nova porta SMTP 587, é preciso fazer a alteração abaixo: (em vermelho)
Exemplo de Funçao: EnviaEmail
As variaveis: NomeRemet, EmailRemet, EmailDest, Assunto, Mensagem
Já devem ter sido definidas no formulário e são passadas para a função
EnviaEmail(variavel,variavel,variavel…).
_______________________________________________________
<%
‘Função EnviaEmail
on error resume next
Function EnviaEmail(NomeRemet, EmailRemet, EmailDest, Assunto, Mensagem)
Set eObjMail = Server.CreateObject(“Persits.MailSender”)
eObjMail.Username = “email_de_autenticao@dominio.com.br”
eObjMail.Password = “senha_de_autenticacao”
eObjMail.Host = “smtp.dominio.com.br”
eObjMail.From = “email_remetente@dominio.com.br”
eObjMail.To = “email_remetente@dominio.com.br”
eObjMail.Port = 587
eObjMail.FromName = NomeRemet
eObjMail.AddReplyTo EmailRemet
eObjMail.AddAddress EmailDest
eObjMail.Subject = Assunto
eObjMail.isHTML = true
eObjMail.Body = Mensagem
eObjMail.Send
Set eObjMail = nothing
End Function
%>
_______________________________________________________
Caso seu servidor use outro software para envio:
Para: “AspMail”
on error resume next
Set eObjMail = Server.CreateObject(“SMTPsvg.Mailer”)
eObjMail.Username = “email_de_autenticacao@dominio.com.br”
eObjMail.Password = “senha_de_autenticacao”
eObjMail.Port = 587
eObjMail.FromName = NomeEmail
eObjMail.FromAddress = Email
eObjMail.RemoteHost = “smtp.dominio.com.br”
eObjMail.AddRecipient “”, ParaEmail
eObjMail.Subject = Assunto
eObjMail.ContentType = “text/html”
eObjMail.BodyText = Mensagem
eObjMail.SendMail
Set eObjMail = nothing
_______________________________________________________
Para “AspEmail”
on error resume next
Set eObjMail = Server.CreateObject(“Persits.MailSender”)
eObjMail.Username = “email_de_autenticacao@dominio.com.br”
eObjMail.Password = “senha_de_autenticacao”
eObjMail.Port = 587
eObjMail.Host = Host
eObjMail.From = Email
eObjMail.FromName = NomeEmail
eObjMail.AddReplyTo Email
eObjMail.AddAddress ParaEmail
eObjMail.Subject = Assunto
eObjMail.isHTML = true
eObjMail.Body = Mensagem
eObjMail.Send
Set eObjMail = nothing
_______________________________________________________
Para “AspQmail”
on error resume next
Set eObjMail = Server.CreateObject(“SMTPsvg.Mailer”)
eObjMail.QMessage = 1
eObjMail.Port = 587
eObjMail.FromName = NomeEmail
eObjMail.FromAddress = Email
eObjMail.RemoteHost = Host
eObjMail.AddRecipient “”, ParaEmail
eObjMail.Subject = Assunto
eObjMail.BodyText = Mensagem
objNewMail.SendMail
Set eObjMail = nothing
_______________________________________________________
Para “CDONTS”
on error resume next
Set eObjMail = Server.CreateObject(“CDONTS.NewMail”)
eObjMail.to = ParaEmail
eObjMail.Port = 587
eObjMail.from = NomeEmail & “<” & Email & “>”
eObjMail.subject = Assunto
eObjMail.Importance = 1
eObjMail.BodyFormat = 0
eObjMail.MailFormat = 0
eObjMail.body = Mensagem
eObjMail.send
Set eObjMail = nothing
Em outras linguagens ou outro modelo de formulario, vale a mesma regra, definir a porta como 587, já que todas tem uma instrução específica para isto. Porém, se você não usar, o seu software provavelmente vai adotar a 25, que não está mais ativa.
Veja porque isto é necessário.
Se você ainda não é cliente da SPBrasil e tiver dúvidas, não tem problema! Estamos a disposição do mesmo jeito!
