Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

vitor thiago

nao concigo enviar e-maile-mail

Por , em ASP Clássico

Recommended Posts

vitor thiago    0

vitor thiago
Postado

salve pessoal estou com o seguinte desafio aqui!! colocar esse codigo para funcionar , estou comecando a programar em asp agora, nao sei se esta faltando alguma coisa Ele carrega mais quandoeu mando enviar ele da erro!!!!<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%FORM_EMAIL= request("FORM_EMAIL")NOME= request("nome")REMETENTE= request.form("email")TELEFONE= request("telefone")CONTATO= request("contato")ASSUNTO= request("assunto")MSG= request("msg")%><%if FORM_EMAIL="1" then%><% '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") = "sendmail.teste"'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 = "sendmail" 'e-mail do destinatário objCDOSYSMail.To = "teste@hotmail.com"'assunto da mensagem objCDOSYSMail.Subject = ".:SCF:. Nome: "&NOME&" -- Telefone: "&TELEFONE&" -- Contato: "&CONTATO&""'conteúdo da mensagem objCDOSYSMail.TextBody = "Assunto: "&ASSUNTO&" ----- Mensagem: "&MSG&""'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = ""'objCDOSYSMail.fields.update'envia o e-mail objCDOSYSMail.send'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write "Obrigado Pela Colaboração... em breve estaremos respondendo seu contato." %><%else%><center> <html> <head> <title>.::Contato ::.:: SCF Sistema de Facilidades Telemar ::.</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../style.css" rel="stylesheet" type="text/css"> </head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" margin marginheight="0"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td ><div align="center"> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="texto"><div align="center"> <p><br> Preencha no formulário Abaixo, a sua Dificuldade, Sugestão, Critica, etc... Para que possamos melhorar cada vez mais ).<br> Obrigado Pela Colaboração. <br> </p> </div></td> </tr> </table> <form method="POST" action="default.asp" name="contato"> <input type="hidden" name="FORM_EMAIL" value="1"> <table width="500" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999" class="tabela"> <tr bgcolor="#FFFFFF"> <td align="right" valign="middle" class="texto"> Nome: </td> <td align="left" valign="bottom"><input name="nome" type="text" class="formulario" id="nome" size="30"> <span class="texto">( * ) </span></td> </tr> <tr bgcolor="#FFFFFF"> <td align="right" valign="middle" class="texto"> Email: </td> <td align="left" valign="bottom"><input name="email" type="text" class="formulario" id="email" size="30"> <span class="texto">( * )</span></td> </tr> <tr bgcolor="#FFFFFF"> <td align="right" valign="middle" class="texto"> Telefone: </td> <td align="left" valign="bottom"><input name="telefone" type="text" class="formulario" id="telefone" size="30"></td> </tr> <tr bgcolor="#FFFFFF"> <td align="right" valign="middle" nowrap class="texto"> Tipo de Contato: </td> <td align="left" valign="bottom"><select name="contato" class="formulario" id="contato"> <option value="Suporte" selected>Suporte</option> <option value="Informar Erro">Informar Erro</option> <option value="Sugestão">Sugestão</option> <option value="elogio">Elogios</option> <option value="Critica">Critica</option> </select> <span class="texto">( ** ) </span></td> </tr> <tr bgcolor="#FFFFFF"> <td align="right" valign="middle" class="texto"> Assunto: </td> <td align="left" valign="bottom"><input name="assunto" type="text" class="formulario" id="assunto" size="30"></td> </tr> <tr bgcolor="#FFFFFF"> <td align="right" valign="middle" class="texto"> Mensagem: </td> <td align="left" valign="bottom"><textarea name="msg" cols="80" rows="8" wrap="VIRTUAL" class="formulario"></textarea></td> </tr> <tr bgcolor="#FFFFFF"> <td colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="5" align="center" valign="middle"><img src="../Img/trans.gif" width="1" height="1"></td> </tr> <tr> <td align="center" valign="middle"><input name="enviar" type="submit" class="botao" value="Enviar"></td> </tr> <tr> <td height="5" align="center" valign="middle"><div align="center"><img src="../Img/trans.gif" width="1" height="1"> </div></td> </tr> <tr> <td align="left" valign="middle" class="lista"><span class="texto">( * )</span><span class="lista"> Campo Obrigatório.<br> </span><span class="texto">( ** )</span>Caso o Assunto seja informação de erro, Por favor peço que copie e cole o erro no campo de mensagem e se possível, também informar os procedimentos que estava realizando antes do acontecimento desta dificuldade.</td> </tr> <tr> <td height="5" align="center" valign="middle" class="lista"><img src="../Img/trans.gif" width="1" height="1"></td> </tr> </table></td> </tr> </table> </form> </body> </html></center><%end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

que erro???

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito