CDOSYS autenticado

Fabian Kulmann · December 16, 2012

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>

<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>

<%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>

Obrigado pelo contato ! Em breve estaremos retornando.</font></p>

<p></p>

<font face="Arial" color="#666666" size="2"><%

Else

%> </font></p>

</p>

</td>

</tr>

<p style="margin-left: 30px">Telefone* (ex. 11-9999-9999)<br>

</td>

</tr>

<p style="margin-left: 30px">Celular* (ex. 11-9999-9999)<br>

</td>

</tr>

</td>

</tr>

<p style="margin-left: 30px">Mensagem*<br>

</td>

</tr>

<tr>

<td>

</p>

</td>

</tr>

</table>

</td>

</tr>

</table>

</div>

</form>

<font color="#606060"><%

End If

%> </font>

</body>

</html>

Edited December 16, 2012 by Fabian Kulmann

bareta · December 25, 2012

http://suporte.hostsys.com.br/index.php?/K...mtp-autenticado

1980coelho · January 19, 2013

http://suporte.hostsys.com.br/index.php?/K...mtp-autenticado

vou lhe enviar um exemplo funcional usado por mim:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
Set Flds = objCDOSYSCon.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = [i]1[/i]
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = [i]EmailUsername[/i]
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = [i]EmailPassword [/i]
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = [i]EmailServer[/i]
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = [i]EmailPort[/i]
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = [i]2[/i]
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = [i]60[/i] 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = [i]False[/i]
Flds.update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = [i]SiteEmail[/i]
objCDOSYSMail.To = [i]Email[/i]
objCDOSYSMail.Subject = [i]Asunto[/i]
objCDOSYSMail.HTMLBody = [i]htmlBody[/i]
objCDOSYSMail.Send 
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

---

Aguardo contato..