[Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007

ola amigos do forum...

Meu nome e Ricardo..

Criei um aplicativo de entrada e saida de pessoas e veiculos, e é necessario enviar relatorio aos email's.
criei uma macro para enviar, porém, o outlook não envia... aparece a seguinte mensagem " programa tentando enviar um email em seu nome.. se for isso for inesperado, clique em negar e verifique e software antivirus se esta atualizado"

instalei avast;
instalei windows defender;

atualizei todos e nada continua dando esta mensagem...

alguém pode me ajudar?!

Olá Ricardo, seja Bem-Bindo ao fórum.

Verifique as definições de segurança e Macro, veja este tópico:
https://www.maximoaccess.com/t21960-access-2013-enviar-relatorio-com-anexo-pelo-outoolk

Pode fazer uma "Busca" aqui do fórum, e ver outros tópicos:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

bom dia amigo teixeira...

entao eu tentei os codigos aqui do forum, ate as configurações do outlook (central confiabilidade), mas nao obtive exito... continua a notificação...

instalei antivirus windows defender e avast para integrar com outlook e parar este aviso, mas tbm sem exito.

a- pelo outlook = problema "alguem tentando enviar um email em seu nome"

b- codigo vba para enviar sem cliente de email (servidor smtp) = problema "erro sem contato transporte de servidor"

o outlook pede uma identidade digital, eu até entrei em alguns sites de identidade digital, mas é enviavel tendo em vista o valor da assinatura.

e complicado a microsoft faz suas aplicações mas deixa limitada para que vc so utilize aplicaçoes criadas por eles, amarrando as configurações entre eles...

e só oque falta para eu terminar minha aplicação...

será que existe um codigo que eu possa enviar atraves do thunderbird!?

este codigo abaixo ate funciona porem o email fica preso na caixa de saida e não envia devido as configurações de segurança do outlook...

Código:

'------------------------------------------------------------
' user_encarregado_emissão_enviar_email_enviar_relatorio
'
'------------------------------------------------------------
Private Sub Command49_Click()
Dim appOutlook As Object
Dim olMail As Object
Dim strArquivo As String
Dim strLocal As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
strArquivo = "entrada e saida de pessoas e veiculos " & ".html"
DoCmd.OutputTo acOutputReport, "usuario_encarregado", acFormatHTML, strLocal
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = "ricardoartefinaltwo@yahoo.com.br"
.CC = ""
.subject = "Assunto"
If Not IsNull(strLocal) Then
.Attachments.Add ("C:\Users\PMESP\Desktop\SdR.luis\usuario_encarregado.html")
End If
.body = "teste"
.Send 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar
End With
MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"
End Sub

me ajudem por favor

Olá;

Faça o teste, tal como está, sem alterar nada por favor;

Código:

Dim appOutlook As Object
Dim olMail As Object
Dim strArquivo As String
Dim strLocal As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

'faça o teste com o caminho da pasta temp em c: tal como está
strLocal = "c:\temp\"
strArquivo = "entrada e saida de pessoas e veiculos " & ".html"

'exporta com parametros
DoCmd.OutputTo acOutputReport, "usuario_encarregado", acFormatHTML, strLocal & "\" & strArquivo, False, , vbUnicode, acExportQualityPrint

'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = "ricardoartefinaltwo@yahoo.com.br"
.CC = ""
.Subject = "Assunto"
If Not IsNull(strLocal) Then
.Attachments.Add (strLocal & "\" & strArquivo)
End If
.Body = "teste"
.Send 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar
End With
MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"

Se a mensagem persistir, descompacte este ficheiro, depois dê 2 cliques nele para desabilitar a mensagem de segurança do outlook.

Download

boa tarde meus amigos.. tentei o ultimo codigo e esta dando erro no DoCmd.OutputTo acOutputReport erro nao pode salvar o arquivo no endereço informado...

agora eu tentei esse:

Código:

Private Sub Command49_Click()
Dim appOutlook As Object
Dim olMail As Object
Dim strArquivo As String
Dim strLocal As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
strArquivo = "entrada e saida de pessoas e veiculos " & ".html"
DoCmd.OutputTo acOutputReport, "usuario_encarregado", acFormatHTML, strLocal
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = "ricardoartefinaltwo@yahoo.com.br"
.CC = ""
.subject = "Assunto"
If Not IsNull(strLocal) Then
.Attachments.Add ("C:\Users\PMESP\Desktop\SdR.luis\usuario_encarregado.html")
End If
.body = "teste"
.Send 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar
End With
MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"
End Sub


codigo envia, porem agora fica preso na caixa de saida!?

Em todos os testes que fiz funciona em pleno as minhas alterações.

Repare que você não está a indicar qualquer caminho para a variável strLocal no OutputTo.

Se dá erro, coloque a linha assim

DoCmd.OutputTo acOutputReport, "usuario_encarregado", acFormatHTML, strLocal & "\" & strArquivo

ow amigo me desculpe pelo transtorno...

vou tentar com essa linha que vc me passou, mas desde ja obrigado...

e que eu não estou muito familiarizado com o vba, eu usava macro na execução das rotinas...

mas desde ja agradeço a todos vcs pela ajuda foi de grande valia e aprendizado pra mim..

vou continuar tentando..

obrigado
=====>>>>>

novamente srs.. tentei com a linha que vc me passou... não deu nenhum erro agora... parece que realmente agora funcionou... ( o codigo ) , mas o email ta preso na caixa de saida.. sbe me dizer se o servidor interfere... servidor: intranet.gov.br

Essa parte do seu servidor não sei não.
Agora todo o resto funda beleza.

obrigado irmao pela força abraços a todos quando esse email sair da caixa eu passo o a informação direito para o srs... obrigado abraços

E ae, o email chegou a saír ?

Ola amigo... Bom dia a todos... Consegui sim graças a voçes e nosso bom deus...


Código passado deu certinho, so estava ficando preso na caixa de saída do outlook..
Mudei a configuração do smtp no questão do ssl e os emails foram enviados normalmente..


Agora preciso de uma rotina pra enviar esse email em determinado horario ex: 18:45 e 06:45...

Oque me recomenda macro ou vba?

Abraços e desde já eternamente grato...

Atente ao item Nº 12;

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

me desculpem não sabia deste detalhe da letra maiscula..

Bom dia meu amigo...

Preciso de ajuda..

O código acima, deu certo conseguimos desta forma enviar emails!

agora gostaria de enviar este email em uma hora especifica, por ex: as 06:45 e as 18:45,
qual seria viável o código vba ou macro?

obrigado amigo...

Ola boa tarde srs, por favor como faço para executar uma macro ou codigo em uma determinada hora.

ex:

executar codigo enviar email as 18:45

eu ja tenho o codigo que envia o email, que inclusive peguei aqui com os srs...

apenas o que falta pra mim finalizar o bd...

obrigado srs...

abraços..

Código:

Public Sub Form_Load()
'ao carregar do form, coloca o cronometro em 1000, para correr de segundo a segundo
    Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
'quando chegar a hora, corre a macro
 If Format(Time(), "hh:nn:ss") >= "18:45:00" And Format(Time(), "hh:nn:ss") <= "18:45:01" Then
    DoCmd.RunMacro "Sua macro"
 End If
End Sub

Boa tarde Jpaulo, primeiramente quero agradecer muito a ajuda.

Então, consegui rodar sem novidades a macro neste codigo.

Ma como eu faço pra rodar esse codigo abaixo na hora 18:45?

Código:

Private Sub Comando51_Click()
Dim appOutlook As Object
Dim olMail As Object
Dim strArquivo As String
Dim strLocal As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
strArquivo = "entrada e saida de pessoas e veiculos " & ".html"
DoCmd.OutputTo acOutputReport, "usuario_encarregado", acFormatHTML, "C:\Users\PMESP\Desktop\SdR.luis\usuario_encarregado.html"
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = "ricardoartefinaltwo@yahoo.com.br"
.CC = ""
.subject = "Assunto"
If Not IsNull(strLocal) Then
.Attachments.Add ("C:\Users\PMESP\Desktop\SdR.luis\usuario_encarregado.html")
End If
.body = "teste"
.Send 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar
End With
MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"
End Sub


Gostei muito da ajuda, se puder me ajudar nesta questão...

abri o formulario no modo estrutura e em propriedades do formulario, entrei na linha (ao carregar) selecionei procedimentos do evento e colei o codigo que o sr me passou, mas aconteceu nada

eternamente grato...

Você não precisa do botão;

Tem de transformar todo o trecho em SUB, assim;

Cole no VBA do formulario;

Código:

Sub EnviaEmail()
Dim appOutlook As Object
Dim olMail As Object
Dim strArquivo As String
Dim strLocal As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
strArquivo = "entrada e saida de pessoas e veiculos " & ".html"
DoCmd.OutputTo acOutputReport, "usuario_encarregado", acFormatHTML, "C:\Users\PMESP\Desktop\SdR.luis\usuario_encarregado.html"
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = "ricardoartefinaltwo@yahoo.com.br"
.CC = ""
.Subject = "Assunto"
If Not IsNull(strLocal) Then
.Attachments.Add ("C:\Users\PMESP\Desktop\SdR.luis\usuario_encarregado.html")
End If
.Body = "teste"
.Send 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar
End With
MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"
End Sub

No cronometro, chame o SUB;

Código:

Private Sub Form_Timer()
'quando chegar a hora, corre a macro
 If Format(Now(), "hh:nn:ss") >= "18:45:00" And Format(Now(), "hh:nn:ss") <= "18:45:01" Then
    Call EnviaEmail
 End If
End Sub

jpaulo boa tarde amigo, entendi agora!!! chgando em casa ja faco o teste... obrigado...

eternamente grato...

bom dia Jpaulo..

então colei o codigo como voce disse, no cronometro [procedimento do evento] alterei o nome de sub de (comando51) para (enviaemail) e colei a sub tambem, coloquei intervalo de 1000 ms conforme me instruiu, porem esta dando esse erro da foto...

tanto usando a subs: (Private Sub Form_Timer()
(Public Sub Form_Timer()


mensagem de erro:

"erro de compilação:
é impossivel localizar o projeto ou biblioteca".

so alterei a hora de 18:45:00 para 07:45:00.

Olá;

O timer do form não requer nada publico, o relogio roda dentro desse mesmo sub que é nativo.
Por isso volte a repor em Private.

Use Now() em vez de Time() que em Portugues é "Agora()", ou seja a data hora do momento exato.

boa tarde Jpaulo...


ainda esta dando o erro... mandei o print da tela

olha codigo:

Código:

Private Sub EnviaEmail()
Dim appOutlook As Object
Dim olMail As Object
Dim strArquivo As String
Dim strLocal As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
strArquivo = "entrada e saida de pessoas e veiculos " & ".html"
DoCmd.OutputTo acOutputReport, "usuario_encarregado", acFormatHTML, "C:\Users\PMESP\Desktop\SdR.luis\usuario_encarregado.html"
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = "ricardoartefinaltwo@yahoo.com.br;ricardoartefinaleight@gmail.com"
.CC = ""
.subject = "Assunto"
If Not IsNull(strLocal) Then
.Attachments.Add ("C:\Users\PMESP\Desktop\SdR.luis\usuario_encarregado.html")
End If
.body = "teste"
.Send 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar
End With
MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"
End Sub

Private Sub Form_Timer()
'quando chegar a hora, corre a macro
If Format(Now(), "hh:nn:ss") >= "11:35:00" And Format(Now(), "hh:nn:ss") <= "11:35:01" Then
   Call EnviaEmail
End If
End Sub


desde ja agradeço... amigo..

Altere de Private Sub EnviaEmail() para apenas Sub EnviaEmail()

Vá a Debug e Compile, veja se aparece algum trecho grifado com erro e corriga.

então Jpaulo, ele grifa o Format;

fiz como vc me instruiu modifiquei private sub pra sub apenas,
ai eu depuro e cai na msg abaixo



"é impóssivel encontrar projeto ou a biblioteca"
e em seguida grifa a Format...

Código:


Sub Form_Timer()
'quando chegar a hora, corre a macro
If Format(Now(), "hh:nn:ss") >= "15:35:00" And Format(Now(), "hh:nn:ss") <= "15:35:01" Then
   Call EnviaEmail
End If
End Sub

Veja as referências VBA, deve ter alguma ausente.

Olá a todos,

Ricardo, como ficou a situação?
Os membros do fórum merecem e agradecem o retorno.

Caso esteja esclarecido, não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Pessoal consegui... agradeco a todos do forum... abracos