Guest Valterlin Postado Fevereiro 21, 2004 Denunciar Share Postado Fevereiro 21, 2004 Tenho uma tabela no ACCESS com os campos NOME e EMAIL que fiz para usar este codidoe mandar um tipo de newslleter para eles, masi quando clico para mandar dá esse erro ? Alguém sabe o que é ?Esse é o errö:Informações técnicas (para a equipe de suporte)Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01B6)O objeto não dá suporte para a propriedade ou método: 'Boby'/valter/envia_email.asp, line 41envia_email.asp:<%@LANGUAGE="VBSCRIPT"%><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = Recordset1.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("email.mdb")Recordset1.Source = "SELECT * FROM email"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0Recordset1_numRows = Recordset1_numRows + Repeat1__numRows%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>envia_email.asp</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %><% if (cStr(Request("Submit")) <> "") ThenDim objCDOSet objCDO = Server.CreateObject("CDONTS.NewMail")objCDO.From = "valterlin.guimaraes@ig.com.br"objCDO.To = (Recordset1.Fields.Item("Email").Value)objCDO.CC = ""objCDO.Subject = "Assunto do email"objCDO.Boby = "Texto do email"objCDO.Send()Set objCDO = NothingEnd if%><% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext()WendResponse.Redirect("sucesso.html")%></body></html><%Recordset1.Close()Set Recordset1 = Nothing%> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ursolouco Postado Fevereiro 21, 2004 Denunciar Share Postado Fevereiro 21, 2004 objCDO.BodyFormat = 1 objCDO.MailFormat = "Texto do email" Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Valew urso............. Postado Fevereiro 21, 2004 Denunciar Share Postado Fevereiro 21, 2004 objCDO.BodyFormat = 1 objCDO.MailFormat = "Texto do email" valeu nem tinha visto vou trocar e testar........es Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Valterlin
Tenho uma tabela no ACCESS com os campos NOME e EMAIL que fiz para usar este codido
e mandar um tipo de newslleter para eles, masi quando clico para mandar dá esse erro ? Alguém sabe o que é ?
Esse é o errö:
Informações técnicas (para a equipe de suporte)
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01B6)
O objeto não dá suporte para a propriedade ou método: 'Boby'
/valter/envia_email.asp, line 41
envia_email.asp:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = Recordset1.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("email.mdb")
Recordset1.Source = "SELECT * FROM email"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>envia_email.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<% if (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "valterlin.guimaraes@ig.com.br"
objCDO.To = (Recordset1.Fields.Item("Email").Value)
objCDO.CC = ""
objCDO.Subject = "Assunto do email"
objCDO.Boby = "Texto do email"
objCDO.Send()
Set objCDO = Nothing
End if
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
Response.Redirect("sucesso.html")
%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.