Ir para conteúdo
Fórum Script Brasil

Fabian Kulmann

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    1

  • Registro em

  • Última visita

Sobre Fabian Kulmann

Fabian Kulmann's Achievements

0

Reputação

  1. Fabian Kulmann
    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>
×
×
  • Criar Novo...