Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Com Aspmail, Dando Erro

ju_rezende

Perguntado por ju_rezende,

 Share

Pergunta

ju_rezende

ju_rezende

Postado
Postado

olá pessoal estou com um probleminha estou tentando usar o aspmail e ele está dando erro

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'AddRecipient'

/adm/email_promocao.asp, line 56

Pior que não sei porque está dando este erro

vou colocar meu código aqui, se alguém puder dar uma ajudinha ficarei muito grata.

<p align="center">&nbsp;</p>

<p align="center">Sua mensagem foi enviada com sucesso!</p>

<p align="center"><!--#include file="conexao.asp"-->

<%Call AbreConexao()

strHost = "mail.cowhorse.com.br"

corpo = "<html><head><meta http-equiv=" & chr(34) & "Content-Type" & chr(34) & " content=" & chr(34) & "text/html; charset=iso-8859-1" & chr(34) & "></head>"

corpo = corpo+ "<body>"

corpo= corpo + "<table >"

sql="select * from promocao"

set rs= server.CreateObject("ADODB.Recordset")

'response.write sql

'response.end

rs.open sql,conn,3,3

corpo= corpo + "<tr><th bgcolor="& "#666666" &"><font="& "arial" & "><font color="& "#ffffff" &">Produto</th></font><th bgcolor="& "#666666" &"><font color="& "#ffffff" &">Categoria</th><thbgcolor="& "#666666" &"><font color="& "#ffffff" &"> Tipo</th bgcolor="& "#666666" &"><th bgcolor="& "#666666" &"><font color="& "#ffffff" &">Valor</th><th bgcolor="& "#666666" &"><font color="& "#ffffff" &">Refer&ecirc;ncia</th><th bgcolor="& "#666666" &"><font color="& "#ffffff" &">Novo valor</th></tr>"

do while rs.eof=false

sql2="select * from categoria where codigo=" & rs("categoria")

sql3="select * from tipo where codigo=" & rs("tipo")

set rs2= server.CreateObject("ADODB.Recordset")

set rs3= server.CreateObject("ADODB.Recordset")

'response.write sql2

rs2.open sql2,conn,3,3

rs3.open sql3,conn,3,3

corpo=corpo+ "<tr><td>"& rs("produto")&"</tr><td>"& rs2("categoria") &"</td><td>"& rs3("tipo") &"</td><td>"& rs("valor") & "</td><td>" & rs("referencia") & "</td><td>R$"& rs("novo_valor") & "</td><td><img src="""& rs("foto")& """width=60""/></td></tr>"

rs.movenext

loop

corpo=corpo+"</table>"

corpo=corpo+ "</body>"

corpo=corpo+ "</html>"

mensagem = corpo

'response.write mensagem

'enviando

sql4= "select * from assossiado"

set rs4= server.CreateObject("ADODB.Recordset")

rs4.open sql4,conn,3,3

total=1

response.write sql4

response.write total

'do while rs4.eof=false

'response.write rs4("email")

'loop

'response.end

Do while rs4.eof=false and total<=rs4.recordcount

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = strHost

Mail.From = (email)

Mail.FromName = "Cow Horse"

Mail.AddAddress "cowhorse@cowhorse.com.br"

Mail.AddRecipient rs4("nome"), rs4("email") Linha 56 ( está dando erro)

Mail.Subject = "Promoção da Semana"

Mail.BodyText = mensagem

Mail.SendMail

rs4.movenext

total=total+1

response.write sql4

loop

'response.write total

%> </p>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
bareta

bareta

Postado
Postado 
'veja este codigo


<%
' Coloque o servidor de SMTP
strHost = "smtp.seudominio.com.br" 
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost 
Mail.From = Request("From") ' Endereço do remetente
Mail.FromName = Request("FromName") ' opcional
Mail.AddAddress Request("To") 
' assunto da mensagem
Mail.Subject = Request("Subject")
' Corpo da mensagem
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send ' Envio da mensagem
If Err <> 0 Then 
strErr = Err.Description
else
bSuccess = True
End If
End If
%>

Link para o comentário
Compartilhar em outros sites
  • 0
ju_rezende

ju_rezende

Postado
  • Autor
Postado

Amigo obrigada pela atenção mas descobri o problema, o servidor informou componente errado, eu testei com o aspemail e funcionou, mas estou com dois problemas,

Uma que a imagem não aparece no email, mas quando eu dou um response.write corpo apos a mesagem de envio com sucesso, a imagem aparece perfeitamente, sabe o que pode ser.

Outro problema é que por exemplo quando chega a mesagem no yahoo, ele vai para caixa "EM MASSA"

Amigo obrigada pela atenção mas descobri o problema, o servidor informou componente errado, eu testei com o aspemail e funcionou, mas estou com dois problemas,

Uma que a imagem não aparece no email, mas quando eu dou um response.write corpo apos a mesagem de envio com sucesso, a imagem aparece perfeitamente, sabe o que pode ser.

Outro problema é que por exemplo quando chega a mesagem no yahoo, ele vai para caixa "EM MASSA" E NÃO NA CAIXA DE ENTRADA...

cOMO PODEREI SOLUCIONAR ESTE PROBLEMA?

oBRIGADA PELA ATENÇÃO DE TODOS

Link para o comentário
Compartilhar em outros sites
  • 0
ju_rezende

ju_rezende

Postado
  • Autor
Postado

Obrigada Amigo, funcionou certinho, era esse mesmo o problema.

Mas eu continuo com um problema, quando vai email para yahoo, uol, ele ficam na caixa em massa como se fosse spam, alguém sabe como solucionar este problema, pois preciso que fique na caixa de entrada.

Obrigada pela atenção de todos

Desculpe, no yahoo, a imagem fica ciza, e o nome dela é substituida, no outlook ele funciona normalmente.

Se Alguém sopuber a solução por gentileza não sei o que posso fazer para resolver este problema.

Obrigada pela atenção de todos

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...