Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zanelati2002

[Resolvido] Que erro é este

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

Pessoal to tentando ataptar um codigo aqui que peguei par enviar newletter em massa só que ta dando este erro.

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'ObjMail'

 

/login/enviar_email2.asp, line 138

 

Outra coisa esta parte ta certa

 

ComandoSQL = "SELECT * FROM users ORDER BY email ASC"

 

 

o que pode ser..

 

<%
Response.Buffer = True 

'Numero de registros por pagina (emails a serem enviados, neste caso, 10 por vez)
Const registros_por_pagina = 5

'Verifica o numero da pagina de registros a ser consultada
If Request.QueryString("pagina_atual") = "" Or Request.QueryString("pagina_atual") = "0" Then
pagina_atual = 1
Else
pagina_atual = Request("pagina_atual")
End If

'Cria conexao com o banco de dados, informe corretamente o caminho do banco de dados
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Data Source=c:\domains\amigos.com\wwwroot\login\uuuusers.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

'Captura o email dos registros da tabela pela ordem alfabética
ComandoSQL = "SELECT * FROM users ORDER BY email ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
objRS.CacheSize = registros_por_pagina
objRS.Open ComandoSQL, Conexao,,, &H0001
objRS.PageSize = registros_por_pagina
status = ""

If Not objRS.EOF Then

'Informa o numero da pagina a ser utilizada
objRS.AbsolutePage = pagina_atual

'Captura o numero total de paginas criadas
total_paginas = objRS.PageCount

'Calcula o percentual de emails enviados até o momento
status_envio = status_envio & Fix((pagina_atual*100)/total_paginas) & "% enviado<br>"

'Percorre todos os registros da pagina atual para capturar os email a serem enviados a newsletter
For Cont = 1 to objRS.PageSize

'Para mensagem em HTML utilize sempre este bloco no inicio da mensagem a ser enviada

Set Mail = Server.CreateObject("JMail.SMTPMail")

corpo = corpo & "<head>" & vbcrlf
corpo = corpo & "</head>" & vbcrlf
corpo = corpo & "<body bgcolor='#ffffff' style='text-align: center'>" & vbcrlf
corpo = corpo & "<table border='0' cellpadding='0' cellspacing='0' width='597'>" & vbcrlf
corpo = corpo & "  <tr>" & vbcrlf
corpo = corpo & "   <td>" & vbcrlf
corpo = corpo & "	<p align='center'><img src='http://www.onemasters.com/propaganda/images/spacer.gif' width='13' height='1' border='0' alt='' /></td>" & vbcrlf
corpo = corpo & "   <td>" & vbcrlf
corpo = corpo & "	<p align='center'><img src='http://www.onemasters.com/propaganda/images/spacer.gif' width='298' height='1' border='0' alt='' /></td>" & vbcrlf
corpo = corpo & "   <td>" & vbcrlf
corpo = corpo & "	<p align='center'><img src='http://www.onemasters.com/propaganda/images/spacer.gif' width='27' height='1' border='0' alt='' /></td>" & vbcrlf
corpo = corpo & "   <td>" & vbcrlf
corpo = corpo & "	<p align='center'><img src='http://www.onemasters.com/propaganda/images/spacer.gif' width='249' height='1' border='0' alt='' /></td>" & vbcrlf
corpo = corpo & "   <td>" & vbcrlf
corpo = corpo & "	<p align='center'><img src='http://www.onemasters.com/propaganda/images/spacer.gif' width='10' height='1' border='0' alt='' /></td>" & vbcrlf
corpo = corpo & "   <td>" & vbcrlf
corpo = corpo & "	<p align='center'><img src='http://www.onemasters.com/propaganda/images/spacer.gif' width='1' height='1' border='0' alt='' /></td>" & vbcrlf
corpo = corpo & "  </tr>" & vbcrlf
corpo = corpo & "</body>" & vbcrlf
corpo = corpo & "</html>" & vbcrlf

Mail.ServerAddress = "smtp.amigos.com"
Mail.Logging = True
Mail.Sender = "admin@onemasters.com" 
Mail.SenderName = "amigos.com"
ObjMail.AddRecipient ObjRS("email")
Mail.Subject = "Estamos com Novidades"
Mail.HTMLBody = corpo
Mail.Execute
Set Mail = Nothing

'Vai para o proximo registro da pagina
objRS.MoveNext
Next

%>

<html>
<head>
<title>Newsletter</title>
</head>
<body>

<%
If Int(pagina_atual) < Int(total_paginas) Then

'Informa o status do envio da newsletter
Response.Write status_envio

'Codigo JavaScript para atualizar a pagina e enviar os proximos emails, neste caso, a cada 5 segundos
%>

<br>Aguarde o envio da newsletter...

<script LANGUAGE="JavaScript">
<!--
function atualiza(){
document.location.href = "<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina_atual=<%=pagina_atual+1%>"
}
setTimeout("atualiza()",5000);
//-->
</SCRIPT>

<%
Else

'Informa que o envio da newsletter foi concluido
%>

Envio da Newsletter concluido.

<%
End If
End If
%>

</body>
</html>

<%
'Fecha a conexao com o banco de dados
objRS.Close
Conexao.Close

'Elimina as variaveis da memória do servidor
Set pagina_atual = Nothing
Set total_paginas = Nothing
Set ComandoSQL = Nothing
Set objRS = Nothing
Set objRS_atualiza = Nothing
Set Conexao = Nothing
Set status_envio = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

mesmo erro

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'ObjMail'

 

/login/enviar_email2.asp, line 134

 

 

tentei assim

 

ObjMail.AddRecipient ObjMailRS("email")

ObjMail.AddRecipient ObjRS("email")

 

O que pode ser

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O erro está aqui pelo visto:

ObjMail.AddRecipient ObjRS("email")

 

Ao invés de ObjMail é somente Mail.

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

bom coloquei assim

 

Set Mail = Server.CreateObject("JMail.SMTPMail")
Mail.ServerAddress = "smtp.onemasters.com"
Mail.Logging = True
Mail.Sender = "admin@onemasters.com" 
Mail.SenderName = "Novidades do Site"
Mail.AddRecipient ObjRS("email")
Mail.Subject = "Novidades do Site"
Mail.HTMLBody = corpo
Mail.Execute
Set Mail = Nothing

deu este erro

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'ObjMail.AddRecipient'

 

/login/enviar_email2.asp, line 138

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Impossível ter dado o mesmo erro, uma vez que não tem esse objeto no último código postado. Verifique novamente. Talvez você alterou mas não enviou o arquivo para o lugar certo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

esta assim o codigo

 

Mail.ServerAddress = "smtp.onemasters.com"

Mail.Logging = True

Mail.Sender = "admin@onemasters.com"

Mail.SenderName = "Onemasters.com"

Mail.AddRecipient ObjRS("email")

Mail.Subject = "Estamos com Novidades"

Mail.HTMLBody = corpo

Mail.Execute

Set Mail = Nothing

 

esta dando este erro

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'Mail.AddRecipient'

 

/login/enviar_email2.asp, line 138

 

 

ta assim o codigo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Dê uma pesquisada pela sintaxe desse componente de envio de e-mail. Outra coisa: preste atenção na mensagem de erro pois ela já diz qual o erro e onde ele está ocorrendo (aproximadamente na linha que ele indica).

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito