Pessoal, sou novo em webdesigner, não sei muito sobre programação para não dizer que não sei nada. Tinha um formulário no meu site usando CDONTS, mas mudaram para o CDOSYS autenticado e até hoje não consegui fazer funcionar. Vou colocar meu script e se alguém puder me dar uma ajuda ficarei muito agradecido. Em vermelho foi o que mudei daquilo que funcionava. Antecipo meus agradecimentos. --------------------------------------------------------------------------------------------------------------------------------- <% ' 'Email para onde serão enviados os dados do formulário email_form = session("emailcontato") 'Título do email assunto_form = "Contato Site " 'Componente para envio do email: CDOSYS | CDONTS componente = "CDOSYS" 'senha senha = "fabian123r" 'Cabeçalho do texto do email recebido cabecalho_email = "Dados do usuario" '******************************************************************* %> <html> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <style> <!-- .titulo_campos { font-family: Arial; font-size: 10pt; color: #333333 } input { font-family: Arial; font-size: 10pt; color: #333333 } textarea { font-family: Arial; font-size: 10pt; color: #333333; width:250 } --> </style> <body leftmargin="0" topmargin="0" rightmargin="0"> <%session.LCID = 1046%> </head> <body> <p style="margin-left: 30px; margin-right: 6" align="left"><% If Not IsEmpty(Request.Form) Then strMsg = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" strMsg = strMsg & "<HTML><HEAD>" strMsg = strMsg & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>" strMsg = strMsg & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>" strMsg = strMsg & "<BODY><FONT face=12px size=2><B>" & cabecalho_email & "</B><BR><BR>" strMsg = strMsg & "<B>Nome</B><BR><BR>" & Trim(Request.Form("Campo1")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Telefone</B><BR><BR>" & Trim(Request.Form("Campo4")) &" - " & Trim(Request.Form("Campo44")) &"<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>e-mail</B><BR><BR>" & Trim(Request.Form("Campo2")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Mensagem</B><BR><BR>" & Trim(Request.Form("Campo3")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "</FONT></BOBY>" strMsg = strMsg & "</HTML>" nomeenvia = request.form("campo1") emailenvia = request.form("campo2") EnviaEmail servidor, componente, emailenvia, senha, nomeenvia, email_form, assunto_form, strMsg Function EnviaEmail(Host,email_form,senha,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem) Select Case Componente Case "CDOSYS" On Error Resume Next Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 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 = paraemail 'e-mail do destinatário objCDOSYSMail.To = paraemail objCDOSYSMail.Subject = Assunto objCDOSYSMail.HtmlBody = Mensagem 'objCDOSYSMail.TextBody = "teste mensagem" 'objCDOSYSMail.fields.update objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing End Select End Function %> <font face="Arial" color="#666666" size="2">Dados enviados </font></p> <p style="margin-left: 30px; margin-right: 6" align="left"> <font face="Arial" color="#666666" size="2"><br> Obrigado pelo contato ! Em breve estaremos retornando.</font></p> <p style="margin-left: 6; margin-right: 6" align="left"> <font face="Arial" color="#666666" size="2"> </font></p> <p style="margin-left: 6; margin-right: 6" align="left"> <font face="Arial" color="#666666" size="2"> </font></p> <p></p> <p style="word-spacing: 0; margin-left: 6; margin-right: 6; margin-top: 0; margin-bottom: 0" align="left"> <font face="Arial" color="#666666" size="2"><% Else %> </font></p> <p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> </p> <form name="form_incluir" method="post" onsubmit="return valida_pega()" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" > <div align="center"> <table border="0" cellpadding="2" cellspacing="1" class="tabela_formulario" width="50%"> <tr class="titulo_campos"> <td width="100%" align="left"> <p style="margin-left: 30px" align="left">Nome*<br> <input type="text" name="Campo1" maxlength="50" df_verificar="sim" class="campos_formulario" size="50" style="border:1px solid #808080; padding-left:3px; padding-right:3px; padding-top:10px; padding-bottom:10px"> </td> </tr> <tr class="titulo_campos"> <td width="100%" align="left"> <p style="margin-left: 30px">Telefone* (ex. 11-9999-9999)<br> <input type="text" id="Campo4" name="Campo4" maxlength="12" df_verificar="sim" class="campos_formulario" size="50" style="border:1px solid #808080; padding-left:3px; padding-right:3px; padding-top:10px; padding-bottom:10px"> </td> </tr> <tr class="titulo_campos"> <td width="100%" align="left"> <p style="margin-left: 30px">Celular* (ex. 11-9999-9999)<br> <input type="text" id="Campo44" name="Campo44" maxlength="12" df_verificar="sim" class="campos_formulario" size="50" style="border:1px solid #808080; padding-left:3px; padding-right:3px; padding-top:10px; padding-bottom:10px"> </td> </tr> <tr class="titulo_campos"> <td width="100%" align="left"> <p style="margin-left: 30px">e-mail*<br> <input name="Campo2" id="emailInput" onblur="return RegexEmail('emailInput')" class="campos_formulario" size="50" style="border:1px solid #808080; padding-left:3px; padding-right:3px; padding-top:10px; padding-bottom:10px"> </td> </tr> <tr class="titulo_campos"> <td width="100%" align="left"> <p style="margin-left: 30px">Mensagem*<br> <textarea name="Campo3" df_verificar="sim" onkeypress="desabilita_cor(this)" class="campos_formulario" rows="7" cols="49" style="border:1px solid #808080; padding-left:3px; padding-right:3px; padding-top:10px; padding-bottom:10px; width:430"></textarea> </td> </tr> <tr class="titulo_campos"> <td width="100%" align="left"> <table border="0" cellspacing="1" width="50%"> <tr> <td> <p align="center" style="margin-left: 130px"> <input type="submit" align="left" name="submit" value="Enviar" class="botao_enviar" style="width: 180; font-size: 15; font-family: Arial; border: 1px solid #DFDFDF; padding-left: 3px; padding-right: 3px; padding-top: 10px; padding-bottom: 10px; background-color: #E6E6E6"> </p> </td> </tr> </table> </td> </tr> </table> </div> </form> <font color="#606060"><% End If %> </font> </body> </body> </html> </html>
