8 replies to this topic

[ibreak]

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...

[gUiTaR_mAn]

da uma olhada nesse topico
http://forum.wmonlin...93356&hl=cdosys

flw

[ibreak]

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.

<!-- #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"-->

[gUiTaR_mAn]

verifique se esta recebendo a variavel com o e-mail de quem devera receber a mensagem...

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.

[ibreak]

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.

[gUiTaR_mAn]

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

[ibreak]

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

[gUiTaR_mAn]

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+

[Generation]

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