Erro No Envio De Newsletter, Componente?
Started By ibreak, 07/04/2006, 14:15
8 replies to this topic
#1
Posted 07/04/2006, 14:15
Boa tarde. Pessoal gostaria de pedir a colaboração de vocês pra me ajudar a entender o seguinte erro:
A Mensagem foi adicionado no historico com sucesso !
Microsoft VBScript runtime error '800a0046'
Permission denied
/boletim/enviar.asp, line 42
Na linha 42 eu tenho isso aqui: (em vermelho)
While Not rs_sendmail.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From=emailadministrador
mail.To=rs_sendmail("email")
mail.Subject=Assunto
Mail.BodyFormat=0
Mail.MailFormat=0
mail.Body = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
mail.Send
Set mail = Nothing
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "<br><font face=arial size=2>Total de Emails enviado: " & no & " email(s).</font>"
rs_sendmail.Close
Set rs_sendmail = Nothing
End If
O suporte do meu servidor de hospedagem disse que é porque não existe mais o CDonts e sim CDosys, acho que é isso... Caso seja isso, alguém poderia me ajudar a mudar o componente para que o newsletter funcione...
Obrigado...
A Mensagem foi adicionado no historico com sucesso !
Microsoft VBScript runtime error '800a0046'
Permission denied
/boletim/enviar.asp, line 42
Na linha 42 eu tenho isso aqui: (em vermelho)
While Not rs_sendmail.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From=emailadministrador
mail.To=rs_sendmail("email")
mail.Subject=Assunto
Mail.BodyFormat=0
Mail.MailFormat=0
mail.Body = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
mail.Send
Set mail = Nothing
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "<br><font face=arial size=2>Total de Emails enviado: " & no & " email(s).</font>"
rs_sendmail.Close
Set rs_sendmail = Nothing
End If
O suporte do meu servidor de hospedagem disse que é porque não existe mais o CDonts e sim CDosys, acho que é isso... Caso seja isso, alguém poderia me ajudar a mudar o componente para que o newsletter funcione...
Obrigado...
#2
Posted 07/04/2006, 16:33
#3
Posted 07/04/2006, 18:23
Guitar bem legal o post.
Estou com álgumas dificuldades sobre a transferência de CDonts Para CDOSYS.
Bem está aparecendo este erro:
A Mensagem foi adicionado no historico com sucesso !
CDO.Message.1 error '8004020c'
At least one recipient is required, but none were found.
/boletim/enviar.asp, line 50
Na linha 50 eu tenho isso (em vermelho)
set objCDOSYSMail = Server.CreateObject("CDO.Message")
set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.micro...tion/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.micro...ion/smtpserver") = "mail.aldo.noticiaregional.com.br"
objCDOSYSCon.Fields("http://schemas.micro...smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.micro...nectiontimeout") = 60
objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = emailadministrador
objCDOSYSMail.to = Session("email")
objCDOSYSMail.Subject = Assunto
'objCDOSYSMail.BodyFormat=0
'objCDOSYSMail.MailFormat=0
objCDOSYSMail.htmlBody = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Deu também estes erros nas duas linhas acima, 'objCDOSYSMail.BodyFormat=0 / 'objCDOSYSMail.MailFormat=0, e eu comentei... o erro que deu foi este.
A Mensagem foi adicionado no historico com sucesso !
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'BodyFormat'
/boletim/enviar.asp, line 47
Podem me ajudar a resolver o problema do newsletter. Obrigado.
Vejam código completo da página.
Estou com álgumas dificuldades sobre a transferência de CDonts Para CDOSYS.
Bem está aparecendo este erro:
A Mensagem foi adicionado no historico com sucesso !
CDO.Message.1 error '8004020c'
At least one recipient is required, but none were found.
/boletim/enviar.asp, line 50
Na linha 50 eu tenho isso (em vermelho)
set objCDOSYSMail = Server.CreateObject("CDO.Message")
set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.micro...tion/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.micro...ion/smtpserver") = "mail.aldo.noticiaregional.com.br"
objCDOSYSCon.Fields("http://schemas.micro...smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.micro...nectiontimeout") = 60
objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = emailadministrador
objCDOSYSMail.to = Session("email")
objCDOSYSMail.Subject = Assunto
'objCDOSYSMail.BodyFormat=0
'objCDOSYSMail.MailFormat=0
objCDOSYSMail.htmlBody = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Deu também estes erros nas duas linhas acima, 'objCDOSYSMail.BodyFormat=0 / 'objCDOSYSMail.MailFormat=0, e eu comentei... o erro que deu foi este.
A Mensagem foi adicionado no historico com sucesso !
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'BodyFormat'
/boletim/enviar.asp, line 47
Podem me ajudar a resolver o problema do newsletter. Obrigado.
Vejam código completo da página.
<!-- #include file="Config.asp"--> <!-- #include file="abrirconexao.asp"--> <!--#INCLUDE file="topogeral.inc" --> <% '------------------------------------------------------------- '------------------------------------------------------------- Response.write "<div align=""center"">" Function Plic(strTexto) Temp = Replace(strTexto, "'", "''") Plic = Replace(Temp, """", """") End Function Assunto = Request("Assunto") Mensagem = Request("Mensagem") Data = Date() sSQL="SELECT * FROM Masters" Set rs=ConnStr.Execute(sSQL) emailadministrador=rs("email") Set rs=Nothing sql_select = "select * from Lista" no = 0 Set rs_sendmail = Server.CreateObject("ADODB.Recordset") rs_sendmail.Open sql_select, ConnStr if rs_sendmail.EOF then Response.write "<br><br><center><font face=arial size=2>" & Msg_NenhumEmail & "</font></center>" Else strSQL = "INSERT INTO HistoricoLista (Assunto, Mensagem, Data) VALUES ('" & Assunto & "', '" & Plic(Mensagem) & "', '" & Data & "')" ConnStr.Execute(strSQL) Response.write "<br><br><font face=arial size=""2"">" & Msg_HistoricoAdicionado & "</font><br>" While Not rs_sendmail.EOF set objCDOSYSMail = Server.CreateObject("CDO.Message") set objCDOSYSCon = Server.CreateObject("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.aldo.noticiaregional.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.update set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = emailadministrador objCDOSYSMail.to = Session("email") objCDOSYSMail.Subject = Assunto objCDOSYSMail.BodyFormat=0 objCDOSYSMail.MailFormat=0 objCDOSYSMail.htmlBody = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>" objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing no = no + 1 rs_sendmail.MoveNext Wend Response.Write "<br><font face=arial size=2>Total de Emails enviado: " & no & " email(s).</font>" rs_sendmail.Close Set rs_sendmail = Nothing End If Response.write "</div>" %> <!-- #include file="undergeral.inc"--> <!-- #include file="fecharconexao.asp"-->
#4
Posted 07/04/2006, 21:39
verifique se esta recebendo a variavel com o e-mail de quem devera receber a mensagem...
a tradução do erro é essa:
pra ser mais preciso, faix um teste... coloca um <% =Session("email") %> no inicio da pagina e ve... se aparecer o email é pq ta ok, caso contrario vc deve verificar se o valor dessa session esta sendo gravada..
flw
a tradução do erro é essa:
Pelo menos um receptor é requerido, mas nenhum foi encontrado.
pra ser mais preciso, faix um teste... coloca um <% =Session("email") %> no inicio da pagina e ve... se aparecer o email é pq ta ok, caso contrario vc deve verificar se o valor dessa session esta sendo gravada..
flw
Edição feita por: gUiTaR_mAn, 07/04/2006, 21:47.
#5
Posted 07/04/2006, 22:14
Guitar valeu pela força... O erro estava naquela linha mesmo que você me passou...
Estava assim: objCDOSYSMail.to = Session("email")
Eu coloquei assim: objCDOSYSMail.to=rs_sendmail("email")
Agora está funcionando...
Eu removi essas duas linhas do código como te disse acima que estavam dando erros... isso vai gerar álgum problema. Para que serve esses comandos:
Mail.BodyFormat=0
Mail.MailFormat=0
Mais uma dúvida final. Eu estava com um problema que dizia que não encontrava o include, o caminho estava assim: <!-- #include virtual="include/adovbs.inc" --> e eu mudei para isso e resolveu. <!-- #include file="include/adovbs.inc" -->
É só um outro processo de inserir include ou faz álguma diferença na include. É uma curiosidade.
Muito obrigado.
Estava assim: objCDOSYSMail.to = Session("email")
Eu coloquei assim: objCDOSYSMail.to=rs_sendmail("email")
Agora está funcionando...
Eu removi essas duas linhas do código como te disse acima que estavam dando erros... isso vai gerar álgum problema. Para que serve esses comandos:
Mail.BodyFormat=0
Mail.MailFormat=0
Mais uma dúvida final. Eu estava com um problema que dizia que não encontrava o include, o caminho estava assim: <!-- #include virtual="include/adovbs.inc" --> e eu mudei para isso e resolveu. <!-- #include file="include/adovbs.inc" -->
É só um outro processo de inserir include ou faz álguma diferença na include. É uma curiosidade.
Muito obrigado.
#6
Posted 07/04/2006, 23:11
das includes eu nao sei cara... geralmente eu uso include file e sempre funciona.. mas se só funcionou assim pra vc, entao deve ter algum lance sim...
quanto aquelas duas linhas... são as linhas que dizem que seu e-mail poderá conter formatação HTML... assim você podera colocar o body da mensagem com negrito, italico, links, etc, etc, etc...
é issu aew cara
flw
quanto aquelas duas linhas... são as linhas que dizem que seu e-mail poderá conter formatação HTML... assim você podera colocar o body da mensagem com negrito, italico, links, etc, etc, etc...
é issu aew cara
flw
#7
Posted 08/04/2006, 01:40
Guitar valeu pela explicação...
quanto a estas duas linhas...
Mail.BodyFormat=0
Mail.MailFormat=0
elas não funcionam no código do jeito que estão... dão este erro:
A Mensagem foi adicionado no historico com sucesso !
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'BodyFormat'
/boletim/enviar.asp, line 47
Como posso passar apenas estas duas linhas para funcionarem junto do CDOSYS
quanto a estas duas linhas...
Mail.BodyFormat=0
Mail.MailFormat=0
elas não funcionam no código do jeito que estão... dão este erro:
A Mensagem foi adicionado no historico com sucesso !
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'BodyFormat'
/boletim/enviar.asp, line 47
Como posso passar apenas estas duas linhas para funcionarem junto do CDOSYS
#8
Posted 08/04/2006, 23:08
cara... é o seguinte...
nunca trabalhei com CDOSYS, mas tenho certeza de que se vc fizer uma busca no forum por ele vc vai achar várias referencias e varios exemplos de como utiliza-lo...
talves aquele post q passei possa estar errado nesta parte... sei lá... da uma pesquisada aew flw..
t+
nunca trabalhei com CDOSYS, mas tenho certeza de que se vc fizer uma busca no forum por ele vc vai achar várias referencias e varios exemplos de como utiliza-lo...
talves aquele post q passei possa estar errado nesta parte... sei lá... da uma pesquisada aew flw..
t+
#9
Posted 09/04/2006, 00:54
Ibreak, de uma olhada no link que o guitar_man te passou , se voce observar nao possue esse bodyformat e nem mailformat..que sao propriedades do cdonts
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)