Jump to content


Photo

Cdosys


  • Faça o login para participar
3 replies to this topic

#1 lizardbr

lizardbr

    Novato no fórum

  • Usuários
  • 7 posts
  • Sexo:Não informado

Posted 14/12/2004, 17:00

Pessoal, seguinte erro apareceu
CDO.Message.1 erro '80040213'

The transport failed to connect to the server.

/MaisProduto.asp, line 94

a linha 94 é:
objCDOSYSMail.Send

espero um help, obrigado

#2 Luis Otávio

Luis Otávio

    Super Veterano

  • Usuários
  • 3113 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre
  • Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.

    - Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.

    - Otimização de Desempenho aplicados a performance de banco de dados Mysql.

    - Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.

    - Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.

    - Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.

Posted 14/12/2004, 17:37

posta a parte em que vc cria o objeto ate ai...

;) (y)
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto

#3 lizardbr

lizardbr

    Novato no fórum

  • Usuários
  • 7 posts
  • Sexo:Não informado

Posted 14/12/2004, 18:04

posta a parte em que vc cria o objeto ate ai...

;)  (y)

'Cria os Componentes de Envio e de Configuração
set objCDOSYSMail = Server.CreateObject("CDO.Message")
set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
'Enviar via porta (não através de Pickup Diretory
objCDOSYSCon.Fields("http://schemas.micro...tion/sendusing") = 2
'Colocar o SMTP para enviar e-mail
objCDOSYSCon.Fields("http://schemas.micro...ion/smtpserver") = "smtp.xyz.com.br"
'Porta SMTP usada
objCDOSYSCon.Fields("http://schemas.micro...smtpserverport") = 25
'Remetente
objCDOSYSCon.Fields("http://schemas.micro...ndemailaddress") = VarSeuNome & "<" & VarSeuEmail & ">"

objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.Subject = SubjectIndique
objCDOSYSMail.HTMLBody = Corpo
objCDOSYSMail.To = VarNomePara & "<" & VarEmailPara & ">"
objCDOSYSMail.Send
set objCDOSYSMail = Nothing
set objCDOSYSCon = Nothing
else

#4 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 15/12/2004, 01:47

vc nao especificou o server..

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xyz.com.br"

troque o "smtp.xyz.com.br" pelo seu smtp
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq