Formail

[belerofonte 0]

Galera Boa Tarde!

 

eu tenho um formulário em flash q envia pra esta pg mail conforme o código abaixo pra funcionar no ig eu consegui arrumar só q pro terra não consigo

alguem por favor me ajuda

 

ASP

<%

'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") = "mail.igempresas.ig.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 o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

 

'e-mail do remetente

objCDOSYSMail.From = request.Form("email")

 

'e-mail do destinatário

objCDOSYSMail.To = "miottoautocenter@miottoautocenter.com.br"

 

'assunto da mensagem

objCDOSYSMail.Subject = request.Form("assunto")

 

'conteúdo da mensagem  

strBody = "Dados" & vbCrLf & vbCrLf & _

"Nome: "& Request("nome") & vbCrLf & _

"E-Mail: "& Request("email") & vbCrLf & _

"Telefone: "& "(" & Request("ddd") & ")" & Request("telefone") & vbCrLf & _

"Mensagem: "& Request("msg")

strBody = strBody & "."

 

objCDOSYSMail.TextBody = strBody  

'para envio da mensagem no formato html altere o TextBody para HtmlBody

'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

 

'objCDOSYSMail.fields.update

 

'envia o e-mail

objCDOSYSMail.Send

 

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

 

Response.write "status=MENSAGEM ENVIADA COM SUCESSO.<br>    OBRIGADO! EM BREVE, ENTRAREMOS EM CONTATO"  

 

%>

[Ted k' 126]

as vezes esse componente pode demorar de enviar a mensagem até a caixa do usuário!