código que não funciona, por causa versao S.O. windows

ufal · Março 30, 2010

por favor me expliquem o porquê desse código não funciona no windows 7 64 bit, porém funciona no windows xp 32 bits normalmente, sem nenhum problema... está funcionando muito bem no S. Operacional XP, quando coloco no windows 7 64 dar a seguinte msg.

CDO.Message.1 error '80040220'

Então, pessoal já pesquisei estudei e continuo estudando e pesquisando o porquê disso e se encontrar vou postar, pois pode se tornar um problema para outro e então poder encontrar nesse fórum. Veja, no WINDOWS XP 32 BITS funciona que é uma beleza... porém, o tal do 64 bits está dando erro

CDO.Message.1 error '80040220', já pesquisei e até agora não funciona o que pesquisei ... é claro que posso usar no windows 32 bits, porém eu tenho que saber o porquê disso, pois não sossegarei enquanto ele não funcionar no windows 64 bits, no caso uso o windows 7 64 bits. Valeu. segue abaixo o meu código que está funcionando no windows de 32 bits, já testei e está ótimo, porém não está nada legal no windows 7 64 bits

<FONT size=2 face=Arial>The "SendUsing" configuration value is invalid

observe: não é erro de programação, pois está funcionando bem eu consigo receber as mensagens pelo meu yahoo. O problema é que gostaria de roda no windows 7 64 bits... estou no fórum, mas já venho árduos dias pesquisando isso, e sou vou sossegar quando resolver esse problema do porquê não funciona no windows 64 bit

veja o código:

observe: não é erro de programação, pois está funcionando bem eu consigo receber as mensagens pelo meu yahoo. O problema é que gostaria de roda no windows 7 64 bits... estou no fórum, mas já venho árduos dias pesquisando isso, e sou vou sossegar quando resolver esse problema do porquê não funciona no windows 64 bit

veja o código:

Meu formulário

<title>Teste</title>
<form action="cdosys_form.asp" method="post" name="MyForm" id="MyForm">
<table border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFEE8">
<tr>
<td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Primeiro
Nome</strong></font></td>
<td> <font size="2" face="Arial, Helvetica, sans-serif">
<input name="nome" type="text" id="nome" size="30">
</font></td>
</tr>
<tr>
<td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Sobrenome</strong></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<input name="sobrenome" type="text" id="sobrenome" size="30">
</font></td>

</tr>
<tr>
<td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Email </strong></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<input name="email" type="text" id="email" size="30">
</font></td>
</tr>

<td valign="top"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Comentários</strong></font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif">
<textarea name="obs" cols="28" rows="6" wrap="VIRTUAL" id="obs"></textarea>
</font></td>
</tr>
<tr>
<td colspan="2"><div align="center"> <font size="2" face="Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Enviar">
</font></div></td>
</tr>
</table>
</form>

Meu script em ASP

'First lets Dim all the variables we need
Dim MyMail
Dim MyBody
Dim MyEmail
Dim MyFirstname
Dim MyLastname
Dim MyComments

'Now lets get some values for the variables from the form
MyEmail = Request.Form("email")
MyFirstname = Request.Form("nome")
MyLastname = Request.Form("sobrenome")
MyComments = Request.Form("obs")

'Now lets build the body of the email from the data in the form
MyBody = "Nome: "& MyFirstName & vbcrlf
MyBody = MyBody & "Sobrenome: "& MyLastName & vbcrlf
MyBody = MyBody & "Email: "& MyEmail & vbcrlf
MyBody = MyBody & "Comentário:" & vbcrlf
MyBody = MyBody & MyComments

'Now lets put the variables and other information we need into the mailing script
Set MyMail = CreateObject("CDO.Message")
MyMail.From = MyEmail
MyMail.To = "enchrys@yahoo.com.br"
MyMail.Subject = "Testando CDOSYS"
MyMail.TextBody = MyBody
MyMail.Send
Set MyMail= nothing
Response.Write("Email enviado com sucesso!")

Editado Abril 5, 2010 por Jonathan Queiroz
Adicionar tag's (Jonathan)

rodrigotnoma · Março 31, 2010

O problema não poderia estar no IIS que está rodando no 64 bits?

bareta · Março 31, 2010

use o código completo do cdosys e poste o resultado

http://www.portalmaracaju.com.br/blog/arti...com_cdosys.html

ufal · Abril 3, 2010

está dando o erro '8004020e' na linha no objeto mymail.send... olhei e me reparo que no windows xp funciona, pois creio q está faltando algo no meu IIS 7 Configurar....

Rafael Spilki · Abril 5, 2010

Acho que matou a charada, ou seja, o problema certamente deve estar em alguma configuração ou falta de instalação de componente do IIS, visto que seu codigo funciona em outro servidor...

Portanto sugiro rever as configurações de seu iis e tb confimar o funcionamento do componente CDO.Sys... como fazer isso?

Veja os links e obedeça os passos:

http://www.babooforum.com.br/forum/IIS-no-...SP-t708805.html

[]'s

ufal · Abril 5, 2010

prezados,

concordo com Rafael Spilki, pois o meu código está funcionando no IIS 5 e não no IIS 7 qual configuração eu uso para o código mecionado funcionar no IIS 7... lembrando de que o banco de dados, inserir, atualizar,o servidor está dando o retorno alguém por favor poderia testar o seguinte código no IIS 7.0 e verifique se a mensagem "Email enviado com sucesso" aparece, pois eu consigo no IIS 5 no 7 não funciona... será que o cdosys.dll está ok, pois eu registrei e apareceu que teve êxito, não sei o que fazer mais, já que no IIS 5 funciona, não gostaria de ficar no IIS 5...já pesquisei e continuo pesquisando, mas alguém pode me dar algum esclarecimento....

fale.asp

<title>Teste</title>
<form action="cdosys_form.asp" method="post" name="MyForm" id="MyForm">
  <table border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFEE8">
    <tr> 
      <td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Primeiro 
        Nome</strong></font></td>
      <td> <font size="2" face="Arial, Helvetica, sans-serif"> 
        <input name="nome" type="text" id="nome" size="30">
        </font></td>
    </tr>
    <tr> 
      <td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Sobrenome</strong></font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> 
        <input name="sobrenome" type="text" id="sobrenome" size="30">
        </font></td>
    </tr>
    <tr> 
      <td><font size="2" face="Arial, Helvetica, sans-serif"><strong>Email </strong></font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif"> 
        <input name="email" type="text" id="email" size="30">
        </font></td>
    </tr>

      <td valign="top"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Comentários</strong></font></td>
      <td><font size="2" face="Arial, Helvetica, sans-serif">
        <textarea name="obs" cols="28" rows="6" wrap="VIRTUAL" id="obs"></textarea>
      </font></td>
    </tr>
    <tr> 
      <td colspan="2"><div align="center"> <font size="2" face="Arial, Helvetica, sans-serif"> 
          <input type="submit" name="Submit" value="Enviar">
          </font></div></td>
    </tr>
  </table>
</form>

cdosys_form.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
    'First lets Dim all the variables we need
    Dim MyMail
    Dim MyBody
    Dim MyEmail
    Dim MyFirstname
    Dim MyLastname
    Dim MyComments

    'Now lets get some values for the variables from the form
    MyEmail = Request.Form("email")
    MyFirstname = Request.Form("nome")
    MyLastname = Request.Form("sobrenome")
    MyComments = Request.Form("obs")

    'Now lets build the body of the email from the data in the form
    MyBody = "Nome: "& MyFirstName & vbcrlf
    MyBody = MyBody & "Sobrenome: "& MyLastName & vbcrlf
    MyBody = MyBody & "Email: "& MyEmail & vbcrlf
    MyBody = MyBody & "Comentário:" & vbcrlf
    MyBody = MyBody & MyComments

    'Now lets put the variables and other information we need into the mailing script
    
    Set MyMail = CreateObject("CDO.Message")
    MyMail.From = MyEmail
    MyMail.To = "enchrys@yahoo.com.br"
    MyMail.Subject = "Testando  CDOSYS"
    MyMail.TextBody = MyBody
    MyMail.Send
    Set MyMail= nothing
    Response.Write("Email enviado com sucesso!")
%>

rodrigotnoma · Abril 6, 2010

Pelo que me parece o código está OK, só verifique as configurações do IIS.

O mesmo código deve funcionar no IIS 5, IIS 6 e IIS 7 da mesma forma, independe do código o que pode afetar é a configuração do IIS, permissões, etc...

Abços

ufal · Abril 6, 2010

Pelo que me parece o código está OK, só verifique as configurações do IIS.
O mesmo código deve funcionar no IIS 5, IIS 6 e IIS 7 da mesma forma, independe do código o que pode afetar é a configuração do IIS, permissões, etc...
Abços

pessoal obrigado pela atenção de vocês,

verifiquei que o meu problema pode ser o SMTP service, olhei no IIS 5.1 tem essa opção para instalar no windows xp 32 bits e existe a pasta mailroot com (badmail,drop, queue,pickup, etc) para adicionar esse serviço do smtp no IIS 5 existe e no windows 7 64 bits procurei e não encontrei ou seja não tem escolha do serviço SMTP , só vi serviço FTP no IIS 7 qual estou usando.Como faço para obter esse serviço SMTP e consequentemente aparecer a pasta Mailroot com suas respectivas pastas...isso pode afetar no meu envio pelo cdosys...

Editado Abril 6, 2010 por ufal

Entrar

código que não funciona, por causa versao S.O. windows

Pergunta

ufal

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

rodrigotnoma

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

ufal

Link para o comentário

Compartilhar em outros sites

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

ufal

Link para o comentário

Compartilhar em outros sites

rodrigotnoma

Link para o comentário

Compartilhar em outros sites

ufal

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades