[Resolvido]erros em tempo de execução

Senhores, satisfação imensa encontrar esse fórum.

Meu problema é o seguinte: Fiz vários mdbs que enviam emails simultaneamente e de vez em quando estoura mensagens de erro de permissão negada.

Já tentei de tudo pra omitir esse erro mas não tem jeito. Já tentei On Error Resume Next mas nada faz esse erro não aparecer.

Como esse sistema eu quero ficar enviando email sempre mas quando ele para eu tenho que clicar em ok pra ele continuar ai isso para meu fluxo de envios.

Alguém tem alguma ideia de como resolver isso?

Obrigado.
--
Walison Silva
walison.eng@gmail.com
81-99973-1894

Boa tarde amigo, tente instalar um programa chamado ClickYes

quando aparecer esta mensagem de notificação do seu e-mail, ele simplesmente confirma e continua enviado normalmente.

segue link

http://www.contextmagic.com/express-clickyes/free-version.htm

' Declare Windows' API functions
Private Declare Function RegisterWindowMessage _
Lib "user32" Alias "RegisterWindowMessageA" _
(ByVal lpString As String) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As Any, _
ByVal lpWindowName As Any) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Private Sub SomeProc()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long

' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")

' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)

' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)

' ...
' MEU CÓDIGO AQUI???
' ...

' Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)

End Sub

To testando, vamos ver se algum erro ocorre.

Erro ainda ocorre.

Titulo da janela: Access9:70
Mensagem: Permissão negada
Opção: OK

Boa tarde!
poderia postar parte do projeto para melhor ajuda-lo ?

Meu projeto é bastante complexo. Mas vou tentar resumir...

- Tenho uma base de e-mails no banco SQL. Cada linha contém o e-mail, nome, cpf, mensagem do email, etc.
- Pego o relatório, gero um .SNP, depois transformo em .tmp e depois tenho um código que transforma em .pdf criptografado (a abertura é uma parte do cpf).
- Depois de gerar, envio um e-mail com o .pdf em anexo e altero o status do e-mail no banco para enviado.

Nessa geração de .pdf (que é onde eu desconfio que esteja gerando algum conflito) está mostrando esta tela de erro que nada na face da terra consegue dar um resume next nisso. kkkkkk

Tenho vários forms que cada form envia um tipo de e-mail. As vezes um para, as vezes dois, as vezes todos. kkkkkk

Eu teria que postar todo o projeto pra que analisem cada ponto dele, mas, de forma resumida é isso que eu faço.

Alguma ideia do que possa ocultar esse erro?

Provavelmente o código no formulário faz uma chamada a uma função em um módulo, e se é nela que o erro ocorre, é lá que deverá ser tratado.

Ou ainda

Pode não ser nada com o código do Access, já que ele envia normalmente

até dar o erro.

Para evitar spams, os servidores de e-mail mantem um limite de emails a serem enviados por conexão.

Não posso dizer se esse limite é igual em todos, precisaria verificar.

Tem servidores que o máximo de envio é de 100 emails .

Procure saber qual é o limite do teu servidor de email e envie em bateladas.

É só mais um aspecto que deve ter em mente  

[ ]'s

Noobezinho, uso um servidor externo que me 1M de e-mails pelo valor contratado e se passar, pago excedente. Ja usamos este sistema a varios meses, então se fosse isso, mesmo clicando em OK ele não enviaria mais nada.

Cláudio Más, eu coloquei um On Error Resume Next em todos os módulos que eu uso e, ainda assim, este erro de permissão negada ocorre.

Enquanto há vida, há esperança. kkkkkk

Walison

Aí que pode estar o problema.

On Error Resume Next,  quer dizer continue mesmo com erro.

Então, o access continua a executar o código com o erro,

mas isso não quer dizer que o erro foi consertado.

Em muitas vezes, ao invés de ajudar,  esconde o erro.

Geralmente usamos essa linha quando sabemos o número do

erro que nosso código irá encontrar.

Então, a usamos para depois fazermos um tratamento especial para esse erro.

Quanto a emails, falei sobre limites de envio de emails, não de quantidade de email contratada.

Agora, se já enviou quantidades de emails, de uma vez só, ótimo, então realmente não é isso.  

Se está desconfiado que o erro esteja no momento da geração do pdf, sugiro que  teste sem enviar para o email.

Eu tenho um aplicativo que faz exatamente isso, gera pdf's de boletos bancários e envia por email.

Fiz uma função para o envio de email. Dessa forma, posso testar a geração de pdf, sem enviar.

A propósito, conseguiu de alguma forma eliminar esse aviso que está imprimindo o pdf ?

Já virei a net e n encontrei nada para isso  

[ ]'s

Noobezinho,

Ótimos esclarecimentos. Vou observar essa questão do resume next. Obrigado. Mas, eu removi todos os tratamentos de erro e mesmo assim esse erro ocorre. Nem aparece nada de depurar pra eu ver onde é o erro e qual o erro. Já tentei tratar o erro 70 mas nem entra no tratamento. Suspeito que seja alguma falha do access.

Eu gero o PDF e ele realmente mostra na tela que ta gerando o relatório em outro arquivo, mas esse aviso é rápido, leva menos de 1s. Não achei nada na net que pudesse ocultar isso também.

Entendo Walison

Mas no meu caso, ele faz um loop nos registros da tabela, gerando os pdfs.

Ou seja, a cada registro, exibe essa janela, fica abrindo e fechando.

[ ]'s

Insira o comando Stop no início do código e execute linha a linha com o F8, para tentar descobrir onde exatamente ocorre o erro.

Esse envio simultâneo de e-mails pode estar causando o problema, talvez fosse interessante tentar fazer um controle do tipo, bloquear enquanto estiver enviando e só iniciar o próximo quando terminar o atual.

Cláudio Más,

O problema é que depois de milhares de emails enviados ele aparece o erro. No F8 ele não mostra o erro. Depois de algum tempo executando ele dá o erro e tenho que clicar em OK.

Teve um dia que ele deu o erro as 18:30, meia hora depois de eu sair do trabalho, de manhã fiquei muito puto. kkkkkkk

Walison

Posso saber qual é o teu servidor de email?

Noobezinho,

SendGrid - sendgrid.com

Walison

Se fosse problema do Access, o erro apareceria de pronto, não

iria dar erro após ser enviado uma certa quantia de emails.

Ainda continuo crendo que o culpado disso é o limite de envio diário.

Veja esses serviços do teu servidor de email.

Se contratou esse serviço, veja com eles se está correto, confirme se o serviço está ativo.

Converse com eles.

Se estiver tudo certo no servidor, retorne.

[ ]'s

Noobezinho, fiz um teste aqui e percebi que, quando eu abro uma conexão e, antes de terminar, abro outra, ele gera esta mensagem.

Então concluo que este problema seja devido a multipla conexão que não há pra este servidor. Pelo que vejo aqui nas documentações do Sendgrid, não há como eles liberarem isto para nós, talvez criando um novo usuário.

Vou ver se no dashboard tem algo sobre isso.

Obrigado!

Ótimo

Se precisar de algo, dê um grito

Valeu pelo retorno!

Boa sorte!

Criei os subusuários, estou aguardando mas até agora não deu erros.

Obrigado!