Código para envio de e mail. Não consigo

[fatto 0]

Olá, boa noite!Sei que minha dúvida é simples mas sou completamente leigo no assunto.Estou fazendo um site (www.personalmoveisplanejados.com.br) para a empresa onde trabalho.Não consigo fazer funcionar o formulário para contato. Acho que do modo como está funcionando atualmente(montei o formulário no site jotform.com) não é o correto. Já tentei vários exemplos mas devo estar fazendo alguma coisa errada. Alguém pode me dizer, passo a passo como fazê-lo? Agradeço muito quem puder me ajudar.Abraços!Francisco.

[Ted k' 126]

amigo se você poder postar seu código para análise já vai ser de grande ajuda!!!!!

[fatto 0]

Olá, Ted k.Obrigado por responder.Na verdade usei modelos que peguei aqui e em outros sites. Nenhum deu certo.A hospedagem diz que tem que ser em asp com componente cdosys.Desculpe se estou sendo vago pois não entendo nada mesmo.Obrigado.Francisco.

[Ted k' 126]

pegue 1 exemplo desses que você testou, teste-o novamente e post o codigo junto ao erro que irá dar, só isso mesmo, a partir dai que podemos ajudar você com o erro, que assim vai ser uma váriante!

[fatto 0]

Ted k,

página .html

<title>CREATIVEHOST - Exemplo Formulário ASP</title><form action="enviaemail.asp" method="POST"><div align="left"> <font face="Arial" size="2">  Nome:</font></div><div align="left"> <font size="2" face="Arial">  <input type="text" size="35" maxlength="50" name="nome"></font></div><div align="left">  </div><div align="left"> <font size="2" face="Arial">   E-mail<br> :<input type="text" size="35" maxlength="50" name="email"></font></div><div align="left">  </div><div align="left"> <font size="2" face="Arial"> <br> Mensagem: <br> <textarea name="mensagem" rows="5" cols="27"></textarea><br>       </font><input type="submit" value="Enviar"></div></form><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></body></html>

código .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 = "usuario@dominio.com.br" 'e-mail do destinatário objCDOSYSMail.To = "contato@personalmoveisplanejados.com.br" 'assunto da mensagem objCDOSYSMail.Subject = "Teste do CDOSYS" 'conteúdo da mensagem objCDOSYSMail.TextBody = "Teste do componente CDOSYS" '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 "E-mail enviado para Personal Móveis Planejados" %>

Desculpe a falta de conhecimento!!

Desde já obrigado.

Francisco

[Salgado 4]

Vamos lá:

Normalmente o SMTP deve ser do próprio servidor.

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.igempresas.ig.com.br"

Coloque aqui um e-mail válido.

'e-mail do remetente

objCDOSYSMail.From = "usuario@dominio.com.br"

Outra coisa, ao rodar esse script é gerado alguma mensagem de erro? O arquivo que faz efetivamenteo envio deve estar com o nome enviaemail.asp.