Modelo de Formulario

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!

Fale conosco!