CDO.Message.1 error '80040220'
<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:
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 = "[email="enchrys@yahoo.com.br"]enchrys@yahoo.com.br[/email]"
MyMail.Subject = "Testando CDOSYS"
MyMail.TextBody = MyBody
MyMail.Send
Set MyMail= nothing
Response.Write("Email enviado com sucesso!")
Edição feita por: Renan L. Queiroz, 31/03/2010, 10:25.
Inclusão da tag [ code ] para postagem de scripts










