Janinii

Pessoal, preciso de ajuda!! Estou fazendo um sistema e uma das partes dele é enviar e-mail automático através de vbs. Mas quando estou tentando ennviar está dando a seguinte mensagem de erro: Script: c:\inetpub\wwwroot\passagem.vbs Line: 68 Char: 17 Error: The "sendingUsing" configuration value is invalid Code: 80040220 Source: CDO.Message.1 Segue o código que estou utilizando: Dim strEmailInicio Dim strEmailFim Dim objUtilitario Dim ObjFso, ObjAbreArq Dim strEncaminhar Set objUtilitario = CreateObject("ReportingMatriz.Utilitario") 'abrindo o aquivo com os endereços de email que devem ser enviados 'Criando o objeto Set ObjFso = CreateObject("Scripting.FileSystemObject") Set ObjAbreArq = CreateObject("Scripting.FileSystemObject") 'Conforme o comentário acima utilizaremos a propriedade 'OpenTextFile (do objeto ObjFso), onde poderão ser aplicadas 'três argumentos após o nome. '*************** '* Processos Sigom * '*************** if not ObjFso.FileExists("passagem1.email") then strEmailFim = "Segue Passagem de Turno: <br><br><br>" strEmailFim = strEmailFim & "Srs.<br><br>" strEmailFim = strEmailFim & "Ocorreu um erro na abertura do arquivo 'turno1'.<br><br>" strEmailFim = strEmailFim & "Favor verificar a sua existência.<br><br><br>" strEmailFim = strEmailFim & "Operação Banco de Atacado<br>" strEmailFim = strEmailFim & "Fone.: 011 5538-8893 <br><br>" strEmailFim = strEmailFim & "Visite: <a call objUtilitario.EnviaEmail("upunix@provedor.com.br", "efmoreira@provedor.com.br","", "", "Passagem de Turno I", strEmailFim) else 'ObjFso.OpenTextFile( 'nome_do_arquivo, modo_de_abertura, cria_outro?, formato_de_abertura) Set ObjAbreArq = ObjFso.OpenTextFile("passagem1.email", 1, False, False) 'A instrução ObjAbreArq.AtEndOfStream 'diz para que continue lendo o arquivo 'enquanto tiver linha preenchida strEncaminhar = "" Do While Not ObjAbreArq.AtEndOfStream 'é atribuído o valor da linha 'lida a variável linha strEncaminhar = strEncaminhar & trim(ObjAbreArq.ReadLine) & ";" Loop ObjAbreArq.Close Set ObjAbreArq = Nothing Set ObjFso = Nothing if trim(strEncaminhar) <> "" Then strEncaminhar = left(strEncaminhar,len(strEncaminhar)-1) strEmailFim = "<font size=2 face=Verdana, Arial, Helvetica, sans-serif color=#004050;><strong>Segue passagem de Turno I para Turno II: </strong></font><br><br><br>" strEmailFim = strEmailFim & "Srs.<br><br>" strEmailFim = strEmailFim & "Segue Passagem de Turno I para Turno II. <br><br>" strEmailFim = strEmailFim & "Pendências do dia:." strEmailFim = strEmailFim & "(<a href='http://bsbrsp1071/planilhas/Passagens Turno/Turno I.xls' target='_new'>Passagem de Turno I</a>)<br><br><br>" strEmailFim = strEmailFim & "Operação Banco de Atacado<br>" strEmailFim = strEmailFim & "Fone.: 011 5538-8893 <br><br>" strEmailFim = strEmailFim & "Visite: <a call objUtilitario.EnviaEmail("upunix@provedor.com.br", strEncaminhar,"", "", "Passagem de Turno I", strEmailFim) end if end if 'FINALIZANDO Set objUtilitario = Nothing Desde já estou agradecendo a quem puder me dar uma luz com esse problema Jane

Pessoal, preciso de ajuda!! Estou fazendo um sistema e uma das partes dele é enviar e-mail automático através de vbs. Mas quando estou tentando ennviar está dando a seguinte mensagem de erro: Script: c:\inetpub\wwwroot\passagem.vbs Line: 68 Char: 17 Error: The "sendingUsing" configuration value is invalid Code: 80040220 Source: CDO.Message.1 Segue o código que estou utilizando: Dim strEmailInicio Dim strEmailFim Dim objUtilitario Dim ObjFso, ObjAbreArq Dim strEncaminhar Set objUtilitario = CreateObject("ReportingMatriz.Utilitario") 'abrindo o aquivo com os endereços de email que devem ser enviados 'Criando o objeto Set ObjFso = CreateObject("Scripting.FileSystemObject") Set ObjAbreArq = CreateObject("Scripting.FileSystemObject") 'Conforme o comentário acima utilizaremos a propriedade 'OpenTextFile (do objeto ObjFso), onde poderão ser aplicadas 'três argumentos após o nome. '*************** '* Processos Sigom * '*************** if not ObjFso.FileExists("passagem1.email") then strEmailFim = "Segue Passagem de Turno: <br><br><br>" strEmailFim = strEmailFim & "Srs.<br><br>" strEmailFim = strEmailFim & "Ocorreu um erro na abertura do arquivo 'turno1'.<br><br>" strEmailFim = strEmailFim & "Favor verificar a sua existência.<br><br><br>" strEmailFim = strEmailFim & "Operação Banco de Atacado<br>" strEmailFim = strEmailFim & "Fone.: 011 5538-8893 <br><br>" strEmailFim = strEmailFim & "Visite: <a call objUtilitario.EnviaEmail("upunix@provedor.com.br", "efmoreira@provedor.com.br","", "", "Passagem de Turno I", strEmailFim) else 'ObjFso.OpenTextFile( 'nome_do_arquivo, modo_de_abertura, cria_outro?, formato_de_abertura) Set ObjAbreArq = ObjFso.OpenTextFile("passagem1.email", 1, False, False) 'A instrução ObjAbreArq.AtEndOfStream 'diz para que continue lendo o arquivo 'enquanto tiver linha preenchida strEncaminhar = "" Do While Not ObjAbreArq.AtEndOfStream 'é atribuído o valor da linha 'lida a variável linha strEncaminhar = strEncaminhar & trim(ObjAbreArq.ReadLine) & ";" Loop ObjAbreArq.Close Set ObjAbreArq = Nothing Set ObjFso = Nothing if trim(strEncaminhar) <> "" Then strEncaminhar = left(strEncaminhar,len(strEncaminhar)-1) strEmailFim = "<font size=2 face=Verdana, Arial, Helvetica, sans-serif color=#004050;><strong>Segue passagem de Turno I para Turno II: </strong></font><br><br><br>" strEmailFim = strEmailFim & "Srs.<br><br>" strEmailFim = strEmailFim & "Segue Passagem de Turno I para Turno II. <br><br>" strEmailFim = strEmailFim & "Pendências do dia:." strEmailFim = strEmailFim & "(<a href='http://bsbrsp1071/planilhas/Passagens Turno/Turno I.xls' target='_new'>Passagem de Turno I</a>)<br><br><br>" strEmailFim = strEmailFim & "Operação Banco de Atacado<br>" strEmailFim = strEmailFim & "Fone.: 011 5538-8893 <br><br>" strEmailFim = strEmailFim & "Visite: <a call objUtilitario.EnviaEmail("upunix@provedor.com.br", strEncaminhar,"", "", "Passagem de Turno I", strEmailFim) end if end if 'FINALIZANDO Set objUtilitario = Nothing Desde já estou agradecendo a quem puder me dar uma luz com esse problema Jane

Estou tendo o seguinte erro! Alguém pode me ajudar por favor!! ReportingMatriz error '800a01b0' File name or class name not found during Automation operation /ValidaLogin.asp, line 29 <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'VALIDA LOGIN Option Explicit 'On Error Resume Next 'Script para não guardar a página no cache response.addheader "Pragma", "no-cache" response.expires = -1 response.addheader "Cache-Control","no-store" 'Declaração de variáveis Dim objPessoaFisica Dim rsPessoaFisica Dim Login Dim Senha 'Zerando as variaveis session("Login") = "" session("idPessoaFisica") = "" session("Nome") = "" session("Cargo") = "" session("Email") = "" Login = ucase(trim(request("Login"))) Senha = ucase(trim(request("Senha"))) 'Criando os Objetos Set objPessoaFisica = Server.CreateObject("ReportingMatriz.dbPessoaFisica") Set rsPessoaFisica = Server.CreateObject("ADODB.Recordset") Set rsPessoaFisica = objPessoaFisica.ValidarLogin (Login, Senha) 'validando o login if not (rsPessoaFisica.BOF and rsPessoaFisica.EOF) Then session("idPessoaFisica") = rsPessoaFisica("id") session("Nome") = rsPessoaFisica("Nome") session("Cargo") = rsPessoaFisica("Cargo") session("Email") = rsPessoaFisica("Email1") session("Login") = rsPessoaFisica("Login") server.transfer "fraPrincipal.asp" else %> <script language="JavaScript" > window.alert("Senha ou Login inválido!!!"); if(window.frames.length >0 ){ window.open('Default.htm',_top); }else{ document.location='Default.htm'; } </script> <% 'server.transfer "Default.htm" end if %> Desde já agradeço pela atenção!!!