Padrão qualidade MicroSoft (rs)

[Gdias 0]

Salve amigos,

 

Mudei de servidor e eles utilizam o Win 2003 onde roda esse maravilhoso CDOSYS ao invés do CDONTS, o qual usava sem nenhum pau (pelo incrível que pareça)

 

Pois bem, copiei daqui mesmo um código postado e coloquei na minha página de envio de e-mails e deu pau...

 

Apenas aparece a mensagem:

 

'error 8004020f'

linha 792

 

A linha é justamente objCDOSYSMail.Send

 

Vejam o código abaixo e me ajudem... algém sabe que erro é esse ou o que pode estar dando esse erro?

 

destinatario = "emails@desdinatario.com.br"com_copia = "outro@meudominio.com"assunto = "CDONTS era melhor"htmltext = "Não aguento mais a Microsoft"'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message")'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.meudominio.com"'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'timeout 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 = "gustavo@meudominio.com"'e-mail do destinatário objCDOSYSMail.To = destinatario'e-mail com cópiaobjCDOSYSMail.Bcc   = com_copia'assunto da mensagem objCDOSYSMail.Subject = assunto'conteúdo da mensagem objCDOSYSMail.HtmlBody = htmlTextobjCDOSYSMail.fields.update'envia o e-mail objCDOSYSMail.Send  'ESTA É A LINHA 792''destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing

Desde já obrigado e abraços a todos!

Gustavo

[Gdias 0]

Não me abandonei amigos... (rs)

postem pelo menos algo como :

 

"Mude de servidor" ou "Programe em PHP"

 

hahahahahah!!!

 

 

seguinte, adicionei ao código as seguintes linhas:

 

'Setup server login information if your server require it objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuuser" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx"

e o erro continhua...

 

descobri que o erro 8004020f significa:

 

The server rejected one or more recipient addresses. The server response was: %1

 

ou

 

O usuário rejeitou um ou mais endereço do receptor. A resposta do usuário era: %1

 

legal né?!

só não sei o que ele quer dizer, já mudei uma pá de coisas e nada!!!

 

Helpe-me...

 

Abraços,

Gustavo

[Gdias 0]

ARUMEIIIIIIIIIIIIII!!!!!!

 

 

O pobrema é u siginti....

 

na linha

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuuser"

ao invés de "meuuser" deve ser usado "meuuser@meudominio.com.br"

 

Thanks pela atenção e fica aqui a solução

 

 

abraços,

Gustavo