CDOSYS autenticado

Fabian Kulmann · Dezembro 15, 2012

Amigos sou novo com ASP, mas isso não quer dizer que não tentei fazer sozinho, até porque que não tenta não aprende. Tenho o formulário abaixo no meu site, e como mudaram os componentes agora eu preciso sair do CDONTS e passar para o CDOSYS autenticado. Li muitos tutoriais, sendo um diferente do outro, tentei mudar dentro daquilo que tinha intepretado, mas mesmo assim o formulário dá erro com minha mudanças. Abaixo o formulário esta do jeito que funcionava, sem nenhuma linha minha. Alguém poderia me dizer onde ou o que deve ser mudado neste script.

Agradeço antecipadamente.

Fabian

<%
'
'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
componente = "CDOSYS"

'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, nomeenvia, email_form, assunto_form, strMsg
Function EnviaEmail(Host,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/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>

xanburzum · Dezembro 15, 2012

coloquei um tutorial e vários exemplos usando o CDOSYS, dá uma procurada no lab. de scripts. vai te ajudar

Fabian Kulmann · Dezembro 15, 2012

Xanburzum,

Obrigado por ajudar. Eu já tinha passado por todos os tópicos e reanalise todos inclusive o seu. Bom, mexi no meu formulário (itens em vermelho), mas o mesmo continua dando errado.

Me desculpe perguntar algo que para vocês deva ser algo muito bobo, mas é que não sei nada de ASP.

<%
'
'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
componente = "CDOSYS"

[color="#FF0000"]'senha
senha = "fabianteste123"[/color]

'Cabeçalho do texto do email recebido
cabecalho_email = "Dados do usuario"

'*******************************************************************
%>
<html>

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<body leftmargin="0" topmargin="0" rightmargin="0">

<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, [color="#FF0000"]senha[/color], nomeenvia, email_form, assunto_form, strMsg
Function EnviaEmail(Host,email_form,[color="#FF0000"]senha[/color],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")
          [color="#FF0000"] objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1[/color]
           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 = [color="#FF0000"]emailenvia[/color]
           'e-mail do destinatário
           objCDOSYSMail.To = [color="#FF0000"]email_form[/color]
           objCDOSYSMail.Subject = Assunto
           objCDOSYSMail.HtmlBody = Mensagem
           'objCDOSYSMail.TextBody = "teste mensagem"
           'objCDOSYSMail.fields.update
           objCDOSYSMail.Send
           Set objCDOSYSMail = Nothing
           Set objCDOSYSCon = Nothing

Entrar

Arquivado

CDOSYS autenticado

Recommended Posts

Fabian Kulmann 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fabian Kulmann 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante