..:: MX Studio Fóruns ::..: Problemas Formulario por email - ..:: MX Studio Fóruns ::..

Jump to content

Publicidade

ATENÇÃO

Para evitar posts desnecessários e que não influam para o andamento e desenvolvimento do fórum, clique aqui e leia todas as regras.
Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Problemas Formulario por email ajuda

#1 User is offline   Caio Harkin 

  • Group: Membros
  • Posts: 6
  • Joined: 27-November 06

Posted 17 April 2007 - 12:38 PM

gente está dando erro e não sei qual...
vocês podem ver por favor...

<%'


var_nome = Request.QueryString("nome")
var_mail = Request.QueryString("email")
var_assunto = Request.QueryString("assunto")
var_mensagem = Request.QueryString("message")
var_from = "enviaemail@b-services.com.br"
var_to = "info@b-services.com.br"


msgHTML = msgHTML & "<html>"
msgHTML = msgHTML & "<head>"
msgHTML = msgHTML & "<title>::B-Services::</title>"
msgHTML = msgHTML & "<link href=http://localhost/b-services/estilos.css rel=stylesheet type=text/css>"
msgHTML = msgHTML & "</head>"
msgHTML = msgHTML & "<body bottommargin=0 leftmargin=0 rightmargin=0 topmargin=0 bgcolor=#D9E2FF>"
msgHTML = msgHTML & "<table align=center cellpadding=0 cellspacing=0 border=0>"
msgHTML = msgHTML & "<tr>"
msgHTML = msgHTML & "<td>"
msgHTML = msgHTML & "<img src=http://localhost/b-services/images/topo_bservices.jpg border=0>"
msgHTML = msgHTML & "</td>"
msgHTML = msgHTML & "</tr>"

msgHTML = msgHTML & "<tr>"
msgHTML = msgHTML & "<td>"
msgHTML = msgHTML & "<br>"
msgHTML = msgHTML & "<img src=http://localhost/b-services/images/topo_bservicesb.jpg border=0>"
msgHTML = msgHTML & "</td>"
msgHTML = msgHTML & "</tr>"
msgHTML = msgHTML & "<tr>"
msgHTML = msgHTML & "<td>"
msgHTML = msgHTML & "<font face=verdana,arial,tahoma size=1 color=#3366AA>"
msgHTML = msgHTML & " <strong>Nome:</strong> " & var_nome & "<br><br>"
msgHTML = msgHTML & " <strong>E-mail:</strong> " & var_mail & "<br><br>"
msgHTML = msgHTML & " <strong>Assunto:</strong> " & var_assunto & "<br><br>"
msgHTML = msgHTML & " <strong>Mensagem:</strong> " & var_mensagem & "<br><br>"
msgHTML = msgHTML & "</font>"
msgHTML = msgHTML & "</td>"
msgHTML = msgHTML & "</tr>"
msgHTML = msgHTML & "<tr>"
msgHTML = msgHTML & "<td height=16>"
msgHTML = msgHTML & " "
msgHTML = msgHTML & "</td>"
msgHTML = msgHTML & "</tr>"
msgHTML = msgHTML & "<tr>"
msgHTML = msgHTML & "<td height=21 align=center background=http://localhost/b-services/images/barra_menuvertical.jpg border=0>"
msgHTML = msgHTML & "B-Servicesz"
msgHTML = msgHTML & "</td>"
msgHTML = msgHTML & "</tr>"
msgHTML = msgHTML & "</table>"
msgHTML = msgHTML & "</body>"
msgHTML = msgHTML & "</html>"


sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.b-services.com.br "
cdoConfig.Fields.Item(sch & "sendusername") = "enviaemail@b-services.com.br"
cdoConfig.Fields.Item(sch & "sendpassword") = "envia123"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = var_from
cdoMessage.To = var_mail
cdoMessage.Subject = "B-Services - " & var_nome & " enviou um e-mail para você"
cdoMessage.HTMLBody = msgHTML
cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

0

#2 User is offline   Bertizini 

  • Group: Membros
  • Posts: 58
  • Joined: 18-November 05

Posted 19 April 2007 - 09:30 AM

Fala Grande.....

Seguinte....
Vc está usando CDO....este componente as vezes apresenta problema de incompatibilidade entre o IIS 5 e o IIS 6. Cada um pede alguns parâmetros específicos que não funciona no outro.
Vc já tentou utilizar AspMail ou AspEmail???? Ou vc precisa que seja com COD????

Aguardo tua resposta....

Inté


0

#3 User is offline   Rafael Gomes 

  • Group: Membros
  • Posts: 138
  • Joined: 10-June 05

Posted 19 April 2007 - 10:02 AM

Tente usar o exemplo abaixo que estou lhe enviando ele usa o componente CDOSYS, em alguns servidores o e-mail do destinatario e do remetente tem que ser do mesmo dominio onde o seu site esta hospedado.

Espero ter ajudado

'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'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 o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon
'e-mail do remetente
objCDOSYSMail.From = "email@do_remetente"
'e-mail do destinatário
objCDOSYSMail.To = "email@do_destinatario""
'assunto da mensagem
objCDOSYSMail.Subject = "Formulário de Contato"
'conteúdo da mensagem

'objCDOSYSMail.fields.update
MyBody = MyBody & "Formulário de Contato " & vbcrlf & "<br>"
MyBody = MyBody & "Nome................: "& request("Campo1") & vbcrlf & "<br>"
MyBody = MyBody & "E-mail..............: "& request("Campo2") & vbcrlf & "<br>"
MyBody = MyBody & "Telefone............: "& request("Campo3") & vbcrlf & "<br>"
MyBody = MyBody & "Mensagem............: "& request("Campo9") & vbcrlf & "<br>"

objCDOSYSMail.HtmlBody = MyBody
'envia o e-mail
objCDOSYSMail.Send
'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Similar Topics Collapse

  Topic Forum Started By Stats Last Post Info
New Replies Campeonato faz barcos cruzarem o Atlântico sem ajuda humana Notícias Notícias 
  • 0 Replies
  • 398 Views
New Replies Manda por favor tabela 2006 Corel Draw Valter Guilherme 
  • 0 Replies
  • 424 Views
New Replies Não consigo abrir o meu 3D Max
Por favor, me ajudem 		Animação 3D e Modelagem GPC-18 
  • 1 Reply
  • 2519 Views
New Replies GE e Comcast fecham preço por NBC Universal, mas Vivendi não Notícias Notícias 
  • 0 Replies
  • 124 Views
Hot Topic (New) Ajuda.
Como eu faço... 		Fireworks Apenas_Iniciante 
  • 17 Replies
  • 1941 Views
New Replies Ajuda de Fera
Com faço isso??? 		Web Standards allcris 
  • 1 Reply
  • 531 Views
New Replies CFMail - Problemas no envio.
Não esta enviando o e-mail. 		ColdFusion Thony Conde 
  • 1 Reply
  • 885 Views
New Replies Ativista quer US$ 1 bi de Zuckerberg e Facebook por página da Intifada Notícias Notícias 
  • 0 Replies
  • 34 Views

Publicidade

1 User(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)