Luiz Carlos Tavares

logico q sim, a dll do CDO.Mensagem, seja la qual for ela, deve estar salva e registrada no seu pc. onde foi q você baixou esse codigo?? la eles não falavam sobre a biblioteca?? sei q o CDO é uma dll q manda mensagem e é usada no ASP. mas não sei se ela vem no windows (acho q não), mas tb acho q o certo é CDO.Message e não CDO.Mensagem. CARA MUITO OBRIGADO PELA DICA, INSTALEI O CDO.MESSAGE ATRAVÉZ DO LINK http://www.dlldump.com/download-dll-files_...0/download.html FFIZ A ALTERAÇÃO NO SCRIPT DE CDO.MENSAGEM PARA CDO.MESSAGE E OS ERROS COMO OS COMENTADO ACABARAM, AGORA ELE DÁ RESPOSTA REFERENTE A ULTIMA LINHA O SERVIDOR ESTÁ OK E LÁ TEM UM SMTP RODANDO NORAMLMENTE, VOCÊ FAZ IDEIA DO QUE SEJA ISSO ? LINE: 22 COLUMN: 0 ERROR: THE TRANSPORT FAILED TO CONNECT TO THE SERVER CODE: 80040213 SOURCE: CDO.MESSAGE.1

KUROI VEJA SÓ ELE DÁ O SEGUINTE ERRO: LINE: 11 COLUMN: 0 ERROR: OBJETO NECESSÁRIO: 'OBJEMAIL' CODE: 800A01A8 SOURCE: ERRO DE TEMPO DE EXECUÇÃO DO MICROSOFT VBSCRIPT QUANTO A STRING NO MEIO DO CODIGO, EU já A REMOVI. EU POR ACASO TENHO QUE TER ALGO INSTALADO NA MINHA MAQUINA PARA QUE O SCRIPT RODE, ESTOU COM UM WINXP AQUI ATUALIZADO.

Bom dia Galera, peguei este script semi pronto no script center, só alterei alguma informações como endereço de e-mail de origem e destino, servidor e porta SMTP, só que quando vou executuar o debugging no VbsEdit recebo o resultado que está no fim desta pagina. Será que falta alguma coisa, pois meus conehcimentos em vb hoje são limitados. Acredito que seja alguma bobeirinha. Oque poderia estar errado ? Segue o Script abaixo. ' Send Email without Installing the SMTP Service ' Windows Server 2003 : Yes ' Windows XP : Yes ' Windows 2000 : Yes ' Windows NT 4.0 : Yes ' Windows 98 : Yes Set objEmail = CreateObject("CDO.Mensagem") objEmail.From = "monitor@t37.com.br" objEmail.To = "lctavares@t37.com.br" objEmail.Subject = "Servidor de Mensagens MXM está parado" objEmail.Textbody = "Após duas tentativas de reinicio o serviço de Mensagens do MXM em LTM-S-000003 parou de funcionar, favor averiguar." objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 172.17.80.138 "smarthost" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send Erro de compilação do Microsoft VBSc: Fim da instrução esperado *script completed * Valeu rapazeada, conto com o auxilio de vocês., desde já agradeço.