Componentes CDOSYS e CDONTS

[brunoo 0]

BOM DIA!

 

Eu ajudo o meu primo em seu site com algumas coisas em asp, e recentemente ele mudou de hospedagem. Descobri que a nova hospedagem naum oferece o componente CDONTS. Agora tenho que modificar o codigo para CDOSYS... ou/e possivel mudar o componente no servidor CDOSYS para CDONTS? Caso nao seja possivel mudar no servidor como posso modificar o codigo para CDOSYS?

 

function sen(sue,see,rpn,bdy)
sen=false
select case"CDONTS"
case"CDONTS"
set owl=server.createobject("CDONTS.NewMail")
owl.bodyformat=1
owl.mailformat=0
owl.send see,rpn,sue,bdy
sen=true
case"JMail"
set jml=server.createobject("JMail.SMTPMail") 
jml.serveraddress="mail.yourserver.com"
jml.see=see
jml.sue=sue
jml.addrecipient recipient
jml.bdy=bdy
jml.execute
sen=true
case"aspMail"
set owl=server.createobject("SMTPsvg.Mailer")
owl.fromaddress=see
owl.remotehost="mail.yourserver.com"
owl.addrecipient recipient
owl.sue=sue
owl.bodytext=bdy
owl.sen
sen=true
case"SMTP"
set owl=server.createobject("SmtpMail.SmtpMail.1")
owl.mailserver="mail.yourserver.com"
owl.recipients=rpn
owl.see=see
owl.sue=sue
owl.message=bdy
owl.sen2
sen=true
case"aspEMail"
set owl=server.createobject("Persits.MailSender")
owl.from=see
owl.host="mail.yourserver.com"
owl.addaddress recipient
owl.sue=sue
owl.bdy=bdy
owl.send
sen=true
end select
end function

[hargon 64]

Não é possível, pois o componente é instalado pelo próprio servidor.

 

Dê uma olhada nessa classe criada pelo jonathandj

http://forum.imasters.com.br/index.php?showtopic=265564

 

Qualquer dúvida posta aqui.

[brunoo 0]

Tentei utilizar o codigo do jonathandj e de cara apareceu esse erro

 

Microsoft VBScript compilation error '800a0400'

Expected statement

indique.asp, line 9

option explicit

^

 

mesmo pesquisando no google naum solucionei esse erro

[brunoo 0]

Agora esta ocorrendo o seguinte erro:

 

ERRO DURANTE TENTATIVA DE ENVIO DE E-MAIL.

ERROR NUMBER: -2147220977

ERROR DESCRIPTION: The server rejected one or more recipient addresses. The server response was: 554 : Relay access denied

[hargon 64]

Remove essa linha do option explicit.

[brunoo 0]

Eu ja tirei mas ainda continua ocorrendo esse erro:

 

ERRO DURANTE TENTATIVA DE ENVIO DE E-MAIL.

ERROR NUMBER: -2147220977

ERROR DESCRIPTION: The server rejected one or more recipient addresses. The server response was: 554 : Relay access denied

[hargon 64]

Faz o seguinte, esquece o código acima e utiliza esse abaixo:

sub enviarEmail(smtp,remetente,emailremetente,destinatario,emaildestinatario,assunto,texto)
	Const cdoSendUsingPort = 2

	set iMsg = CreateObject("CDO.Message")
	set iConf = CreateObject("CDO.Configuration")

	set Flds = iConf.Fields

	with Flds
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
		.Update
	end With

	With iMsg
		Set .Configuration = iConf
		.To = destinatario & "<" & emaildestinatario & ">"
		.From = remetente & "<" & emailremetente & ">"
		.Subject = assunto
		.HtmlBody = texto
		.Send
	End With

	Set iMsg = Nothing
	Set iConf = Nothing
	Set Flds = Nothing
end sub


call enviarEmail("smtp.dominio.com.br","Seu nome","Seu e-mail","Nome de quem vai receber","Email de quem vai receber","Assunto","Corpo")

[brunoo 0]

Aconteceu esse erro:

 

error '8004020f'

indique.asp, line 22

 

Linha 22 em negrito

 

sub enviarEmail(smtp,remetente,emailremetente,destinatario,emaildestinatario,assunto
,texto)
	Const cdoSendUsingPort = 2

	set iMsg = CreateObject("CDO.Message")
	set iConf = CreateObject("CDO.Configuration")

	set Flds = iConf.Fields

	with Flds
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
		.Update
	end With

	With iMsg
		Set .Configuration = iConf
		.To = destinatario & "<" & emaildestinatario & ">"
		.From = remetente & "<" & emailremetente & ">"
		.Subject = assunto
		.HtmlBody = texto
[b]		.Send[/b]
	End With

	Set iMsg = Nothing
	Set iConf = Nothing
	Set Flds = Nothing
end sub


call enviarEmail("smtp.juseundi.com.br","Alessandro","alessancost@hotmail.com","Alessndro","alessandro@juseundi.com.br","Assunto","Corpo")

[hargon 64]

Qual a mensagem de erro é apresentada?

 

O código está correto. Verifique com seu servidor o que pode ser. Servidores como Locaweb no SMTP deve ser informado apenas localhost.

[brunoo 0]

A menssagem de erro e essa:

 

error '8004020f'

indique.asp, line 22

 

A linha 22 esta em negrito em meu post acima

 

O novo servidor do meu primo e igempresas... na hospedagem o Servidor de saída (SMTP) e smtp.juseundi.com.br

[hargon 64]

Eu vi a msg acima, mas não tem mais nada? Algo dizendo, falha de conexão com o servidor, ou algo do tipo?

 

Sobre o SMTP, tem servidores que utilizam smtp diferente para envio de e-mails utilizando componentes. Por isso disse para que verificasse.

 

Caso o SMTP seja esse mesmo, talvez seja necessário acrescentar as linhas de autenticação no código, pois diferente do CDONTS (que não precisa de SMTP), o CDOSYS necessita que eles esteja configurado corretamente.

[brunoo 0]

Nao, so tem isso mesmo! Sobre o SMTP, eu pequei o endereco direto na pagina da hospedagem, nao havia outro! Como seriam essas linhas de autenticacao? Eu pesquisei um pouco mais sobre o erro e encontrei essa resposta mas naum entendi nada..

 

http://forum.ievolutionweb.com/index.php?s...20f39-a-solucao

 

 

http://forum.imasters.com.br/lofiversi...hp/t121550.html

[hargon 64]

Altera, essas linhas:

with Flds
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
		.Update
	end With

Para essas:

with Flds
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "conta" 'informe aqui o usuário de login do e-mail
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha" 'informe aqui a senha do e-mail
		.Update
	end With

[brunoo 0]

Poxa, pensei que agora ia, mas continua o mesmo erro:

 

error '8004020f'

/noticia/indique.asp, line 28

 

 

A modificacao

with Flds
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "alessandro@juseundi.com.br" 'informe aqui o usuário de login do e-mail
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxx" 'informe aqui a senha do e-mail
		.Update
	end With

Alguma coisa estranha tentei o codigo do segundo exemplo que postei e para minha surpresa aparece o mesmo erro: error '8004020f'

Nao aredito agora que seja erro nos codigos, nem mais sei o que pode ser...

[desisto 0]

nao uso esse componente, nao sei ajudar...

 

mas o google deve saber

http://www.google.com.br/search?hl=pt-BR&a...oogle&meta=

 

procura pelo erro, sempre tem alguem no mesmo caso

[]s

[hargon 64]

O código está correto.

 

Verifica as configurações, para envio de e-mail utilizando componente, com o suporte do servidor...

[Ted k' 126]

isso, e veja esse smtp tbm para ver se existe....

[brunoo 0]

Bom dia! Oi desisto, eu sou um rato do google, naum vou dizer que sempre procuro no google antes de pergunatr aqui, pois seria mentira, mas fiz uma pesquisa e descobri diversas pessoas com o mesmo problema mas naum vi nenhuma solucao concreta.

 

hargon, Ted k', hoje verifiquei as configurações, para envio de e-mail utilizando componente, com o suporte do servidor e eles me passaram um outro smtp.

 

Agora oorre esse erro:

 

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

indique.asp, line 52

 

O erro ocorre na mesma linha mas e outro tipo de erro...

[hargon 64]

Sempre vai ocorre na mesma linha, porque as outras linhas são somente configuração. A linha que dá erro é a linha de execução.

 

Sobre o erro, você removeu aquela configuração de autenticação? Mesmo sem ela deu erro?

 

Esse erro que você informou, só acontece comigo quando faço teste local, na minha própria máquina.

[brunoo 0]

Sim, fiz um teste sem e com as linhas de autenticacao:

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "alessandro@juseundi.com.br"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxx"

 

E ocorre o mesmo erro nas duas opicoes! Tudo os testes que faco sao online, nao faco teste na maquina