..:: 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 Me Ajudem Por Favor ! Corel Draw leosimac 
  • 2 Replies
  • 986 Views
New Replies [ajuda] comando para salvar e imprimir uma determinada camada
Por favor, preciso de ajuda urgente... 		Flash & ActionScript Dana_42 
  • 3 Replies
  • 1526 Views
New Replies Meu FireWorks CS3 ta dando um erro
Se alguem puder ajudar fico grato 		Dúvidas Gerais Caio.M 
  • 0 Replies
  • 494 Views
New Replies Ajuda com Video Tutorial !!
Tava querendo fazer uns... mas... 		Dúvidas Gerais _Fox_ 
  • 3 Replies
  • 1053 Views
New Replies som embolado em site
porque?? 		Flash & ActionScript rocker 
  • 5 Replies
  • 1101 Views
New Replies Ajuda com site
Action em flash 		Flash & ActionScript Darthvader 
  • 2 Replies
  • 700 Views
New Replies Problemas com video no pageflip Flash & ActionScript lajus 
  • 0 Replies
  • 206 Views
New Replies Resize + XML
Ajuda c/ posicionamento de botões duplicados de acordo c/ a qtd do XML 		Flash & ActionScript souza_sp 
  • 7 Replies
  • 1341 Views

Publicidade

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