MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

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

    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 22/2/2019, 15:48

    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?!
    Anexos
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Attachmentemail.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (167 Kb) Baixado 6 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7367
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira 22/2/2019, 15:59

    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
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 26/2/2019, 14:38

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 26/2/2019, 15:29

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 26/2/2019, 18:55

    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!?
    Anexos
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Attachmentemail.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 0 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 26/2/2019, 19:13

    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




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 26/2/2019, 20:43

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 26/2/2019, 21:00

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 26/2/2019, 21:34

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 28/2/2019, 11:33

    E ae, o email chegou a saír ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 28/2/2019, 14:15

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


    Última edição por rlss em 4/3/2019, 20:41, editado 1 vez(es)
    Administrador
    Administrador
    Administrador
    Administrador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 408
    Registrado : 02/11/2009

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

    Mensagem  Administrador 28/2/2019, 15:32

    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.


    .................................................................................
    Admin
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 28/2/2019, 16:28

    me desculpem não sabia deste detalhe da letra maiscula..
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 2/3/2019, 11:27

    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...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Empty executar macro ou código vba em determinada hora!

    Mensagem  rlss 24/3/2019, 16:11

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 25/3/2019, 16:59

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 26/3/2019, 20:39

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 27/3/2019, 17:57

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 27/3/2019, 18:14

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

    eternamente grato...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 28/3/2019, 11:02

    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.
    Anexos
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Attachmenterro email b.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (14 Kb) Baixado 2 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 28/3/2019, 13:21

    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.





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 28/3/2019, 14:41

    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..
    Anexos
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 AttachmentSem título.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 28/3/2019, 16:58

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

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 28/3/2019, 18:43

    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


    Última edição por rlss em 28/3/2019, 18:49, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10639
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 28/3/2019, 18:49

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Outlook erro ao enviar email pelo macro do ms access 2007 Folder_announce_new Instruções SQL como utilizar...
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7367
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira 12/8/2020, 15:10

    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

    avatar
    rlss
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/12/2017

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

    Mensagem  rlss 12/8/2020, 15:59

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

      Data/hora atual: 6/12/2021, 16:55