Formulário de email

kania · Maio 3, 2011

Olá pessoal, estou utilizando uma função pronta que peguei na net para envio de e-mail, porem não sei o porque o e-mail não esta enviando, apesar de não dar erros.

Segue o código

Função

'Funcao: EnviaEmail(p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem)
Function EnviaEmail(p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem)
   'On Error Resume Next

   ' *********************
   ' Utilizando o ASPMAIL
   ' *********************
   If strComponenteEmail = "ASPMAIL" Then
       'Variáveis e Objetos
       Dim objASPMail
       Set objASPMail = Server.CreateObject ("SMTPsvg.Mailer")

       objASPMail.FromName        = p_strNomeFROM
       objASPMail.FromAddress     = p_strEmailFROM
       objAspMail.RemoteHost      = strSMTP
       objAspMail.AddRecipient    p_strNomeTO, p_strEmailTO
       If Not p_strEmailCC = "" Then
           objAspMail.Addcc           "", p_strEmailCC
       End If
       If Not p_strEmailBCC = "" Then
           objAspMail.AddBcc          "", p_strEmailBCC
       End If
       objAspMail.Subject         =  p_strAssuntoEmail
       objAspMail.BodyText        = p_strMensagem

       'Verificando o tipo de mensagem (default é TEXTO)
       If p_strTipoEmail = "HTML" Then
           objAspMail.ContentType = "text/html"
       End If

       'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
       If objAspMail.SendMail Then
           EnviaEmail = "OK"
       Else
           EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
       End If

       'Destruindo Objetos
       Set objAspMail = Nothing

       If Err.Number <> 0 Then
           EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
       End If
       Exit Function
   End If 'Fim da Utilização do ASPMAIL

   ' *********************
   ' Utilizando o ASPEMAIL
   ' *********************
   If strComponenteEmail = "ASPEMAIL" Then
       'Variáveis e Objetos
       Dim objASPEMail
       Set objASPEMail = Server.CreateObject ("Persits.MailSender")

       objASPEMail.FromName        = p_strNomeFROM
       objASPEMail.From            = p_strEmailFROM
       objASPEMail.Host            = ServidorSMTP
       objASPEMail.AddAddress        p_strEmailTO, p_strNomeTO
       If Not p_strEmailCC = "" Then
           objASPEMail.AddCc           p_strEmailCC, ""
       End If
       If Not p_strEmailBCC = "" Then
           objASPEMail.AddBcc            p_strEmailBCC, ""
       End If
       objASPEMail.Subject         = p_strAssuntoEmail
       objASPEMail.Body            = p_strMensagem

       'Verificando o tipo de mensagem (default é TEXTO)
       If p_strTipoEmail = "HTML" Then
           objASPEMail.IsHTML = True
       End If

       'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
       If objASPEMail.Send Then
           EnviaEmail = "OK"
       Else
           EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
       End If

       'Destruindo Objetos
       Set objASPEMail = Nothing

       If Err.Number <> 0 Then
           EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
       End If
       Exit Function
   End If 'Fim da Utilização do ASPEMAIL

   ' *********************
   ' Utilizando o CDONTS
   ' *********************
   If strComponenteEmail = "CDONTS" Then
       'Variáveis e Objetos
       Dim objCDONTS
       Set objCDONTS = Server.CreateObject ("CDONTS.NewMail")

       objCDONTS.From        = p_strEmailFROM
       objCDONTS.To          = p_strEmailTO
       objCDONTS.CC          = p_strEmailCC
       objCDONTS.BCC         = p_strEmailBCC
       objCDONTS.Subject     = p_strAssuntoEmail
       objCDONTS.Body        = p_strMensagem

       'Verificando o tipo de mensagem (default é TEXTO)
       If p_strTipoEmail = "HTML" Then
           objCDONTS.BodyFormat = 0
           objCDONTS.MailFormat = 0
       End If

       'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
       Call objCDONTS.Send
       If Err.Number = 0 Then
           EnviaEmail = "OK"
       Else
           EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
       End If

       'Destruindo Objetos
       Set objCDONTS = Nothing

       If Err.Number <> 0 Then
           EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
       End If
       Exit Function
   End If 'Fim da Utilização do CDONTS

   ' *********************
   ' Utilizando o CDOSYS
   ' *********************
   If strComponenteEmail = "CDOSYS" Then
       Dim objCDOSYS
       Dim objCDOSYSConf
       Set objCDOSYS        = Server.CreateObject("CDO.Message") 
       Set objCDOSYSConf    = Server.CreateObject ("CDO.Configuration") 

       'Configurando o envio de e-mail
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
       objCDOSYSConf.Fields.update 
       Set objCDOSYS.Configuration = objCDOSYSConf 


       objCDOSYS.From        = p_strEmailFROM
       objCDOSYS.To        = p_strEmailTO
       objCDOSYS.CC        = p_strEmailCC
       objCDOSYS.BCC        = p_strEmailBCC
       objCDOSYS.Subject    = p_strAssuntoEmail

       'Verificando o tipo de mensagem (default é TEXTO)
       If p_strTipoEmail = "HTML" Then
           objCDOSYS.HTMLBody    = p_strMensagem
       Else
           objCDOSYS.TextBody    = p_strMensagem
       End If

       'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
       Call objCDOSYS.Send
       If Err.Number = 0 Then
           EnviaEmail = "OK"
       Else
           EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
       End If

       'Destruindo Objetos
       Set objCDOSYSConf = Nothing
       Set objCDOSYS = Nothing

       If Err.Number <> 0 Then
           EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
       End If
       Exit Function
   End If 'Fim da Utilização do CDOSYS
End Function

Mensagem:

sMensagem = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" _
& "<html xmlns=""http://www.w3.org/1999/xhtml"">" _
& "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" _
& "<html>" _
& "<head>" _
& "</head>" _
& "<body style=""font:12px Tahoma, Geneva, sans-serif; color:#31426E;"">" _
& "<p>Olá, o visitante <strong>"&nome&"</strong>, entrou em contato na data <strong>"&data&"</strong>, através do formulário de contato do site Busca Premiada.</p>" _
& "<p>Abaixo seguem as informações do contato.</p>" _
& "<p></p>" _
& "<p>=====================================================</p>" _
& "<p><strong>Nome do contato: </strong>"&nome&"</p>" _
& "<p><strong>E-mail do Responsável: </strong>"&email&"</p>" _
& "<p><strong>Telefone para Contato: </strong>"&telefone&"</p>" _
& "<p><strong>Cidade/Estado: </strong>"&Rs("nome_cidade")&"/"&Rs("sgl_estado")&"</p>" _
& "<p><strong>Assunto abordado: </strong>"&assunto&"</p>" _
& "<p><strong>Mensagem do visitante: <br></strong>"&mensagem&"</p>" _
& "<p>=====================================================</p>" _
& "<p></p>" _
& "<i>Atenciosamente<br>" _
& "Busca Premiada<br>" _
& "(41) 3018-2222<br>" _
& "www.buscapremiada.com.br</i>" _
& "</body>" _
& "</html>"

'p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem
strResultado = EnviaEmail(nome, email, "BUSCA PREMIADA", "bp@buscapremiada.com.br", "", email, "bp@buscapremiada.com.br", "HTML", "CONTATO PELO FORMULÁRIO DO SITE", sMensagem )
Response.Write strResultado

xanburzum · Maio 3, 2011

você esta executando no localhost ou em um server ?

verifique se o SMTP esta correto e funcionando.

kania · Maio 3, 2011

estou executando no servidor, estou usando o mesmo smtp que eu uso em outro script, porem resolvi usar esta função por ser mais prática do que a antiga que eu uso, mas esta parece não funcionar.

xanburzum · Maio 4, 2011

teste com outro código, mais simples para ver se envia, certifique-se de que o serviço de SMTP não esta apresentando instabilidade.

@fabiosantosrj · Maio 4, 2011

esse seu codigo é "inutil" porque ele envolve varias formas de envio, sendo que você sempre ira utilizar so uma.

coloque aqui qual o componente você está utilizando para facilitar a ajuda.

eu recomendo sempre o uso do CDOSYS. Outros são besteira usar.

abraços

kania · Maio 4, 2011

Fabio, seguindo sua sugestão e bem coerente por sinal, eu modifiquei o código para utilizar apenas um componente, porem da mesma forma ele não apresenta erro, muito pelo contrario, diz que a mensagem foi enviada com sucesso, porem não chega nada no e-mail.

Segue o código:

Função

Function EnviaEmail(p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem)

   ' *********************
   ' Utilizando o CDOSYS
   ' *********************
       Dim objCDOSYS
       Dim objCDOSYSConf
       Set objCDOSYS        = Server.CreateObject("CDO.Message") 
	'cria a codificção
	objCDOSYS.bodypart.Charset = "ISO-8859-1"
       Set objCDOSYSConf    = Server.CreateObject ("CDO.Configuration") 

       'Configurando o envio de e-mail
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.lwo.locaweb.com.br"
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
       objCDOSYSConf.Fields.update 
       Set objCDOSYS.Configuration = objCDOSYSConf 

       objCDOSYS.From        = p_strEmailFROM
       objCDOSYS.To        = p_strEmailTO
       objCDOSYS.CC        = p_strEmailCC
       objCDOSYS.BCC        = p_strEmailBCC
       objCDOSYS.Subject    = p_strAssuntoEmail

       'Verificando o tipo de mensagem (default é TEXTO)
       If p_strTipoEmail = "HTML" Then
           objCDOSYS.HTMLBody    = p_strMensagem
       Else
           objCDOSYS.TextBody    = p_strMensagem
       End If

       'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
       Call objCDOSYS.Send
       If Err.Number = 0 Then
           EnviaEmail = "OK"
       Else
           EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
       End If

       'Destruindo Objetos
       Set objCDOSYSConf = Nothing
       Set objCDOSYS = Nothing

       If Err.Number <> 0 Then
           EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
       End If
End Function

HMTL que envia o e-mail

sMensagem = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" _
& "<html xmlns=""http://www.w3.org/1999/xhtml"">" _
& "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" _
& "<html>" _
& "<head>" _
& "</head>" _
& "<body style=""font:12px Tahoma, Geneva, sans-serif; color:#31426E;"">" _
& "<p>Olá, o visitante <strong>"&nome&"</strong>, entrou em contato na data <strong>"&data&"</strong>, através do formulário de contato do site Busca Premiada.</p>" _
& "<p>Abaixo seguem as informações do contato.</p>" _
& "<p></p>" _
& "<p>=====================================================</p>" _
& "<p><strong>Nome do contato: </strong>"&nome&"</p>" _
& "<p><strong>E-mail do Responsável: </strong>"&email&"</p>" _
& "<p><strong>Telefone para Contato: </strong>"&telefone&"</p>" _
& "<p><strong>Cidade/Estado: </strong>"&Rs("nome_cidade")&"/"&Rs("sgl_estado")&"</p>" _
& "<p><strong>Assunto abordado: </strong>"&assunto&"</p>" _
& "<p><strong>Mensagem do visitante: <br></strong>"&mensagem&"</p>" _
& "<p>=====================================================</p>" _
& "<p></p>" _
& "<i>Atenciosamente<br>" _
& "Busca Premiada<br>" _
& "(41) 3018-2222<br>" _
& "www.buscapremiada.com.br</i>" _
& "</body>" _
& "</html>"

'p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem
strResultado = EnviaEmail(nome, email, "BUSCA PREMIADA", "bp@buscapremiada.com.br", "", email, "bp@buscapremiada.com.br", "HTML", "CONTATO PELO FORMULÁRIO DO SITE", sMensagem )
Response.Write strResultado

Estranho, porque se eu utilizar sem função, mandando todos os parâmetros direto no código ele enviar, vejam

' Cria o objeto CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria a codificção
objCDOSYSMail.bodypart.Charset = "ISO-8859-1"

sDestinatario = Rs("email")
sRemetente = "publicidade@buscapremiada.com.br" 'O endereço de e-mail deve ser uma conta válida do seu próprio domínio.
sResponder = sRemetente
sAssunto = FormataNome(Rs("nome"))&", este é seu link para promoção"
sMensagem = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" _
& "<html xmlns=""http://www.w3.org/1999/xhtml"">" _
& "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" _
& "<html>" _
& "<head>" _
& "</head>" _
& "<body style=""font:12px Tahoma, Geneva, sans-serif; color:#31426E;"">" _
& "<p>Olá <strong>"&FormataNome(Rs("nome"))&"</strong>, este e-mail é para informar seu link de indicação da promoção <strong>MEU AMIGO É 10</strong><br>Utilize este link para enviar a todos os seus amigos.<br>Lembre-se, quanto mais amigos você indicar mais chances terá de ganhar.<br>Veja as regras diretamente no site da promoção em <a href=""http://www.buscapremiada.com.br/promocao/?p=regras.asp"">http://www.buscapremiada.com.br/promocao</a>.</p>" _
& "<p>Seu Link:</p>" _
& "<p></p>" _
& "<p>=====================================================</p>" _
& "<p><strong>Link de indicação: </strong><a href=""http://www.buscapremiada.com.br/"&Rs("login")&""">http://www.buscapremiada.com.br/"&Rs("login")&"</a></p>" _
& "<p>=====================================================</p>" _
& "<p></p>" _
& "<i>Atenciosamente<br>" _
& "Busca Premiada<br>" _
& "(41) 3018-2222<br>" _
& "www.buscapremiada.com.br</i>" _
& "</body>" _
& "</html>"



'Cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.lwo.locaweb.com.br"

'Porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25

'Porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

'Atualiza a configuração do CDOSYS para envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
'Configura o remetente(FROM)
objCDOSYSMail.From = sRemetente

'Configura o destinatário(TO)
objCDOSYSMail.To = sDestinatario

'Configura o Reply-To(Responder Para) 
objCDOSYSMail.ReplyTo = sResponder

'Configura CC(Com cópia) 
'objCDOSYSMail.CC = sRemetente

'Configura BCC(Com cópia oculta) 
'objCDOSYSMail.BCC = "comercial@buscapremiada.com.br"

'Configura o assunto(SUBJECT)
objCDOSYSMail.Subject = sAssunto

'Configura o conteúdo da mensagem 
'Para enviar mensagens no formato HTML, altere o TextBody para HtmlBody
objCDOSYSMail.HtmlBody = sMensagem 

' ### ENVIA O E-MAIL ###
objCDOSYSMail.Send

' ### DESTRÓI OS OBJETOS ###
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

xanburzum · Maio 4, 2011

recomendo você usar o CDOSYS, que é padrão ASP, mas verifique o componente que irá usar junto ao seu host.

kania · Maio 4, 2011

Então xaburzum, estou utilizando o CDOSYS, na verdade sempre utilizei, porem desta vez o que estou tentando fazer é utilizar a função para não ter que toda vez que for utilizar o componente ter que ficar chamando o código todo, com a função em apenas uma linha eu executo o envio.

Quando o script funcionar, eu vou criar um arquivo padrão para envio de todos os em-amil do site, tipo, cadastro, contato, etc, e conforme a pagina de envio do formulário ele chama um código de3ntor da página padrão de envio do e-mail, mas antes tenhjo que fazer este código funcionar.

kania · Maio 5, 2011

Pessoal, efetuei varios testes com a função acima e verifiquei o seguinte:

- Se eu monto um arquivo com a função, com o conteúdo do email a ser enviado, a chamada da função e a resposta da função tudo em um arquivo só, funciona certinho;

- Se a função estiver em um arquivo separado e sendo chamado via include dentro do arquivo que tem o corpo da mensagem, a chamada da função e a resposta da função, ai ele não executa a função, na verdade nem esta chamando ela.

Alguém sabe o o porque da este pau?

@fabiosantosrj · Maio 5, 2011

você usa option explicit para obrigar a declaracao de variaveis? é sempre recomendado usar.

verifique se você tb nao esta com algum "on error resume next". faz assim, antes da chamada da funcao , utilize as duas linhas abaixo. apenas como teste.

on error goto 0
err.clear

coloque um response.write antes da chamada da funcao, um dentro no inicio, outro dentro no final e outro depois da chamada. com texto qualquer, apenas para identificar a navegação do script.

passe o resultado para gente.

xanburzum · Maio 5, 2011

eu tenho uma aplicação, que em um outro arquivo tenho a função para enviar email, que chamo em outra páginas atraves do

e executa atraves do Call, funciona normal...

kania · Maio 5, 2011

Não tenho nenhum "on error resume next" ativo na função.

Efetuei os testes pedidos com o response.write e aconteceuo seguinte:

- No incio da função ele imprimiu.

- O do final da função não imprimiu

- O fora da Função imprimiu

Problema resolvido...Obrigado gente

xanburzum · Maio 5, 2011

poste o código completo, pode ser referencia para outros usuários...

kania · Maio 5, 2011

FUNÇÃO PARA ENVIO DE EMAIL VIA CDOSYS

pagina funcao_email.asp

'FUNÇÃO PARA ENVIO DE EMAIL
Function EnviaEmail(p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem)
   ' *********************
   ' Utilizando o CDOSYS
   ' *********************
       Dim objCDOSYS
       Dim objCDOSYSConf
       Set objCDOSYS        = Server.CreateObject("CDO.Message") 
       Set objCDOSYSConf    = Server.CreateObject ("CDO.Configuration") 

       'Configurando o envio de e-mail
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.lwo.locaweb.com.br"
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
       objCDOSYSConf.Fields.update 
       Set objCDOSYS.Configuration = objCDOSYSConf 


       objCDOSYS.From      = p_strEmailFROM
       objCDOSYS.To        = p_strEmailTO
       objCDOSYS.CC        = p_strEmailCC
       objCDOSYS.BCC      	= p_strEmailBCC
       objCDOSYS.Subject   = p_strAssuntoEmail

       'Verificando o tipo de mensagem (default é TEXTO)
       If p_strTipoEmail = "HTML" Then
           objCDOSYS.HTMLBody    = p_strMensagem
       Else
           objCDOSYS.TextBody    = p_strMensagem
       End If

       'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
       Call objCDOSYS.Send
       If Err.Number = 0 Then
           EnviaEmail = ""'"OK"
       Else
           EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
       End If

       'Destruindo Objetos
       Set objCDOSYSConf = Nothing
       Set objCDOSYS = Nothing

       If Err.Number <> 0 Then
           EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
       End If
End Function

Página contatos.asp que vai chamar a função e enviar o email

If Request.QueryString("Acao") = "envia_contato" Then

nome = Request.Form("nome")
email = Request.Form("email")
ddd = Request.Form("ddd")
telefone = Request.Form("telefone")
estado = Request.Form("estado")
cidade = Request.Form("cidade")
assunto = Request.Form("assunto")
mensagem = Request.Form("mensagem")
data = Now()

telefone = "(" & ddd & ") " & telefone

	sMensagem = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" _
	& "<html xmlns=""http://www.w3.org/1999/xhtml"">" _
	& "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" _
	& "<html>" _
	& "<head>" _
	& "</head>" _
	& "<body style=""font:12px Tahoma, Geneva, sans-serif; color:#31426E;"">" _
	& "<p>Olá, o visitante <strong>"&nome&"</strong>, entrou em contato na data <strong>"&data&"</strong>, através do formulário de contato do site Busca Premiada.</p>" _
	& "<p>Abaixo seguem as informações do contato.</p>" _
	& "<p></p>" _
	& "<p>=====================================================</p>" _
	& "<p><strong>Nome do contato: </strong>"&nome&"</p>" _
	& "<p><strong>E-mail do Responsável: </strong>"&email&"</p>" _
	& "<p><strong>Telefone para Contato: </strong>"&telefone&"</p>" _
	& "<p><strong>Cidade/Estado: </strong>"&cidade&"/"&estado&"</p>" _
	& "<p><strong>Assunto abordado: </strong>"&assunto&"</p>" _
	& "<p><strong>Mensagem do visitante: <br></strong>"&mensagem&"</p>" _
	& "<p>=====================================================</p>" _
	& "<p></p>" _
	& "<i>Atenciosamente<br>" _
	& "Busca Premiada<br>" _
	& "(41) 3018-2222<br>" _
	& "www.buscapremiada.com.br</i>" _
	& "</body>" _
	& "</html>"

	nome_remetente		= nome
	email_remetente		= email
	nome_destinatario	= "NOME DA SUA EMPRESA"
	email_destinatario	= "EMAIL DA SUA EMPRESA"
	emailCC				= ""
	emailBC				= ""'PARA ENVIAR COM CÓPIA OCULTA
	formato				= "HTML"
	assunto 			= assunto
	mensagem			= sMensagem

	'p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem
	'strResultado = EnviaEmail(nome, email, "BUSCA PREMIADA", "bp@buscapremiada.com.br", "", email, "bp@buscapremiada.com.br", "HTML", assunto, sMensagem )

	strResultado = EnviaEmail(nome_remetente, email_remetente, nome_destinatario, email_destinatario, emailCC, emailBC, formato, assunto, mensagem)

	'SE TUDO CORRETO
	Response.Write strResultado & "<div class=""correto"" style=""width:940px; margin:15px auto;"">Mensagem enviada sucesso! Em breve um de nossos colaboradores entrará em contato<script language=""javascript"">setTimeout('$("".correto"").slideUp(""slow"");',5000)</script></div>"
End If
Rs.Close
Set Rs = Nothing	
End If

kania · Maio 5, 2011

FUNÇÃO PARA ENVIO DE EMAIL VIA CDOSYS

pagina funcao_email.asp

'FUNÇÃO PARA ENVIO DE EMAIL
Function EnviaEmail(p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem)
   ' *********************
   ' Utilizando o CDOSYS
   ' *********************
       Dim objCDOSYS
       Dim objCDOSYSConf
       Set objCDOSYS        = Server.CreateObject("CDO.Message") 
       Set objCDOSYSConf    = Server.CreateObject ("CDO.Configuration") 

       'Configurando o envio de e-mail
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.lwo.locaweb.com.br"
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
       objCDOSYSConf.Fields.update 
       Set objCDOSYS.Configuration = objCDOSYSConf 


       objCDOSYS.From      = p_strEmailFROM
       objCDOSYS.To        = p_strEmailTO
       objCDOSYS.CC        = p_strEmailCC
       objCDOSYS.BCC      	= p_strEmailBCC
       objCDOSYS.Subject   = p_strAssuntoEmail

       'Verificando o tipo de mensagem (default é TEXTO)
       If p_strTipoEmail = "HTML" Then
           objCDOSYS.HTMLBody    = p_strMensagem
       Else
           objCDOSYS.TextBody    = p_strMensagem
       End If

       'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
       Call objCDOSYS.Send
       If Err.Number = 0 Then
           EnviaEmail = ""'"OK"
       Else
           EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
       End If

       'Destruindo Objetos
       Set objCDOSYSConf = Nothing
       Set objCDOSYS = Nothing

       If Err.Number <> 0 Then
           EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
       End If
End Function

Página contatos.asp que vai chamar a função e enviar o email

If Request.QueryString("Acao") = "envia_contato" Then

nome = Request.Form("nome")
email = Request.Form("email")
ddd = Request.Form("ddd")
telefone = Request.Form("telefone")
estado = Request.Form("estado")
cidade = Request.Form("cidade")
assunto = Request.Form("assunto")
mensagem = Request.Form("mensagem")
data = Now()

telefone = "(" & ddd & ") " & telefone

	sMensagem = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" _
	& "<html xmlns=""http://www.w3.org/1999/xhtml"">" _
	& "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" _
	& "<html>" _
	& "<head>" _
	& "</head>" _
	& "<body style=""font:12px Tahoma, Geneva, sans-serif; color:#31426E;"">" _
	& "<p>Olá, o visitante <strong>"&nome&"</strong>, entrou em contato na data <strong>"&data&"</strong>, através do formulário de contato do site Busca Premiada.</p>" _
	& "<p>Abaixo seguem as informações do contato.</p>" _
	& "<p></p>" _
	& "<p>=====================================================</p>" _
	& "<p><strong>Nome do contato: </strong>"&nome&"</p>" _
	& "<p><strong>E-mail do Responsável: </strong>"&email&"</p>" _
	& "<p><strong>Telefone para Contato: </strong>"&telefone&"</p>" _
	& "<p><strong>Cidade/Estado: </strong>"&cidade&"/"&estado&"</p>" _
	& "<p><strong>Assunto abordado: </strong>"&assunto&"</p>" _
	& "<p><strong>Mensagem do visitante: <br></strong>"&mensagem&"</p>" _
	& "<p>=====================================================</p>" _
	& "<p></p>" _
	& "<i>Atenciosamente<br>" _
	& "Busca Premiada<br>" _
	& "(41) 3018-2222<br>" _
	& "www.buscapremiada.com.br</i>" _
	& "</body>" _
	& "</html>"

	nome_remetente		= nome
	email_remetente		= email
	nome_destinatario	= "NOME DA SUA EMPRESA"
	email_destinatario	= "EMAIL DA SUA EMPRESA"
	emailCC				= ""
	emailBC				= ""'PARA ENVIAR COM CÓPIA OCULTA
	formato				= "HTML"
	assunto 			= assunto
	mensagem			= sMensagem

	'p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem
	'strResultado = EnviaEmail(nome, email, "BUSCA PREMIADA", "bp@buscapremiada.com.br", "", email, "bp@buscapremiada.com.br", "HTML", assunto, sMensagem )

	strResultado = EnviaEmail(nome_remetente, email_remetente, nome_destinatario, email_destinatario, emailCC, emailBC, formato, assunto, mensagem)

	'SE TUDO CORRETO
	Response.Write strResultado & "<div class=""correto"" style=""width:940px; margin:15px auto;"">Mensagem enviada sucesso! Em breve um de nossos colaboradores entrará em contato<script language=""javascript"">setTimeout('$("".correto"").slideUp(""slow"");',5000)</script></div>"
End If
Rs.Close
Set Rs = Nothing	
End If

kania · Maio 5, 2011

FUNÇÃO PARA ENVIO DE EMAIL VIA CDOSYS

pagina funcao_email.asp

'FUNÇÃO PARA ENVIO DE EMAIL
Function EnviaEmail(p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem)
   ' *********************
   ' Utilizando o CDOSYS
   ' *********************
       Dim objCDOSYS
       Dim objCDOSYSConf
       Set objCDOSYS        = Server.CreateObject("CDO.Message")

       'cria a codificção
objCDOSYSMail.bodypart.Charset = "ISO-8859-1"

       Set objCDOSYSConf    = Server.CreateObject ("CDO.Configuration") 

       'Configurando o envio de e-mail
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.lwo.locaweb.com.br"
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
       objCDOSYSConf.Fields.update 
       Set objCDOSYS.Configuration = objCDOSYSConf 


       objCDOSYS.From      = p_strEmailFROM
       objCDOSYS.To        = p_strEmailTO
       objCDOSYS.CC        = p_strEmailCC
       objCDOSYS.BCC      	= p_strEmailBCC
       objCDOSYS.Subject   = p_strAssuntoEmail

       'Verificando o tipo de mensagem (default é TEXTO)
       If p_strTipoEmail = "HTML" Then
           objCDOSYS.HTMLBody    = p_strMensagem
       Else
           objCDOSYS.TextBody    = p_strMensagem
       End If

       'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
       Call objCDOSYS.Send
       If Err.Number = 0 Then
           EnviaEmail = ""'"OK"
       Else
           EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
       End If

       'Destruindo Objetos
       Set objCDOSYSConf = Nothing
       Set objCDOSYS = Nothing

       If Err.Number <> 0 Then
           EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
       End If
End Function

pagina emails_padroes.asp, aqui você configura todos os e-mail que serão enviados pelo site site

'=====================================================
'		ARQUIVO PARA CONFIGURAÇÃO PADRÃO DE TODOS
'		OS E-MAIL ENVIADOS PELO SITE
'=====================================================
If Request.QueryString("Acao") = "envia_contato" Then

'Envia pelo formulário de contato do site
sMensagem = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" _
		& "<html xmlns=""http://www.w3.org/1999/xhtml"">" _
		& "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" _
		& "<html>" _
		& "<head>" _
		& "</head>" _
		& "<body style=""font:12px Tahoma, Geneva, sans-serif; color:#31426E;"">" _
		& "<p>Olá, o visitante <strong>"&nome&"</strong>, entrou em contato na data <strong>"&data&"</strong>, através do formulário de contato do site Busca Premiada.</p>" _
		& "<p>Abaixo seguem as informações do contato.</p>" _
		& "<p></p>" _
		& "<p>=====================================================</p>" _
		& "<p><strong>Nome do contato: </strong>"&nome&"</p>" _
		& "<p><strong>E-mail do Responsável: </strong>"&email&"</p>" _
		& "<p><strong>Telefone para Contato: </strong>"&telefone&"</p>" _
		& "<p><strong>Cidade/Estado: </strong>"&Rs("nome_cidade")&"/"&Rs("sgl_estado")&"</p>" _
		& "<p><strong>Assunto abordado: </strong>"&assunto&"</p>" _
		& "<p><strong>Mensagem do visitante: <br></strong>"&mensagem&"</p>" _
		& "<p>=====================================================</p>" _
		& "<p></p>" _
		& "<i>Atenciosamente<br>" _
		& "Busca Premiada<br>" _
		& "(41) 3018-2222<br>" _
		& "www.buscapremiada.com.br</i>" _
		& "</body>" _
		& "</html>"
End If

Página contatos.asp que vai chamar a função e enviar o email

<!--#include file="funcao_email.asp.asp"-->
If Request.QueryString("Acao") = "envia_contato" Then

nome = Request.Form("nome")
email = Request.Form("email")
ddd = Request.Form("ddd")
telefone = Request.Form("telefone")
estado = Request.Form("estado")
cidade = Request.Form("cidade")
assunto = Request.Form("assunto")
mensagem = Request.Form("mensagem")
data = Now()

telefone = "(" & ddd & ") " & telefone
%>
	<!--#include file="emails_padroes.asp"-->
       <%

	nome_remetente		= nome
	email_remetente		= email
	nome_destinatario	= "NOME DA SUA EMPRESA"
	email_destinatario	= "EMAIL DA SUA EMPRESA"
	emailCC				= ""
	emailBC				= ""'PARA ENVIAR COM CÓPIA OCULTA
	formato				= "HTML"
	assunto 			= assunto
	mensagem			= sMensagem

	strResultado = EnviaEmail(nome_remetente, email_remetente, nome_destinatario, email_destinatario, emailCC, emailBC, formato, assunto, mensagem)

	'SE TUDO CORRETO
	Response.Write strResultado & "<div class=""correto"" style=""width:940px; margin:15px auto;"">Mensagem enviada sucesso! Em breve um de nossos colaboradores entrará em contato<script language=""javascript"">setTimeout('$("".correto"").slideUp(""slow"");',5000)</script></div>"

End If

Arquivado

Formulário de email

Recommended Posts

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

@fabiosantosrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

@fabiosantosrj 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante