Ir para conteúdo

POWERED BY:

Arquivado

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

Fábio Travassos

Componente CDO dando pau no envio. Se puderem dar uma agradeço.

Por , em ASP Clássico

Recommended Posts

Fábio Travassos    0

Fábio Travassos
Postado

Pessoal, meu nome é Fábio e sou novo no forum.

 

Tenho tido um problema grave aqui na empresa. Estava usando no nosso site o componente CDOnts para envio de emails pelo formulário.

 

Este formulário por sua vez estava hospedado na Locaweb e embora eu saiba que o CDOnts é antigo e podemos usar o CDOsys, ele ainda sim funcionava bem.

 

Acontece que meu chefe pediu para passar o formulário para dentro de nosso servidor da empresa que tem Windows server 2003 e ele é que mexe nas permissões do servidor e sendo assim depois que instalei o formulário dessa vez com CDOsys, ele passa a dar erro de permissão de envio, erro este que o meu chefe não consegue descobrir onde liberá-lo e mesmo que conseguisse não seria possível de momento uma vez que ele viajou.

 

Sendo assim passei a usar o CDO.Message que utiliza o SMTP do nosso servidor e ele funcionou, mas isso quando eu configuro ele para enviar o formulário para apenas 1 e-mail e acontece que o formulário precisa ser enviado para 6 e-mails e é aí que eu me perco. Ele simplesmente não envia.

 

Abaixo segue o código que estou utilizando, por favor se alguém puder me dar uma solução eu agradeço muito:

<HTML>
<meta name="GENERATOR" content="Microsoft FrontPage 12.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<HEAD>
<meta http-equiv="Content-Language" content="pt-br">


<% 
sch = "http://schemas.microsoft.com/cdo/configuration/" 

Set cdoConfig = CreateObject("CDO.Configuration") 

With cdoConfig.Fields 
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
.Item(sch & "smtpserver") = "mail.efcweb.net" 
.update 
End With 

Set cdoMessage = CreateObject("CDO.Message") 


Dim strBody 

'Dim strMyEmailAddress 

MyEmail = Request.Form("Email")

Para_Email = "thomas@xxx.com; eduardo@xxx.com.br; willian.loiola@xxx.com.br; fabio.travassos@xxx.com.br; alessandra@xxx.com.br; patricia.marcondes@xxx.com.br"

strBody = "Assunto: " & Request.Form("assunto") & vbCrLf
strBody = strBody & "Nome: " & Request.Form("nome") & vbCrLf
strBody = strBody & "Empresa: " & Request.Form("empresa") & vbCrLf
strBody = strBody & "Email: " & Request.Form("email") & vbCrLf
strBody = strBody & "DDD: " & Request.Form("ddd") & vbCrLf
strBody = strBody & "Telefone: " & Request.Form("telefone") & vbCrLf
strBody = strBody & "Cidade: " & Request.Form("cidade") & vbCrLf
strBody = strBody & "UF: " & Request.Form("uf") & vbCrLf
strBody = strBody & "Mensagem: " & Request.Form("mensagem") & vbCrLf


With cdoMessage 
Set .Configuration = cdoConfig 
.From = MyEmail
.To = Para_Email
.Cc = ""
.BCC = ""
.Subject = "Contato WWW.EFCWEB.COM.BR" 
.TextBody = strBody 
.Send
End With


Response.redirect "sucesso.asp" 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Que erro é apresentado? O separador padrão do CDOSys é realmente o ";"?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fábio Travassos    0

Fábio Travassos
Postado

Que erro é apresentado? O separador padrão do CDOSys é realmente o ";"?

 

O erro apresentado é:

 

erro '8004020f'

/contato/enviar.asp, line 50

 

 

Sendo que a linha 50 é:

.Send

 

Esse erro corre depois que a página com o formulário fica uns 10 segundos pensando para então depois retornar o erro.

 

Quanto ao separador padrão eu sinceramente não sei se é ";" , pois eu não entendo muito de ASP, apenas usava esse separador quando o formulário era CDOnts e funcionava.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Já que está dando erro, pega seu código e preenche normalmente, sem o uso variáveis e envio para vários destinatários.

 

Caso esteja enviando normalmente, venha substituindo passo-a-passo para descobrir onde está o 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