MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Importação da Cx de Entrada do Outlook parou de funcionar para uma única conta de email... em todas as outras, funciona.

    Compartilhe

    Ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 04/08/2010

    [Resolvido]Importação da Cx de Entrada do Outlook parou de funcionar para uma única conta de email... em todas as outras, funciona.

    Mensagem  Ribeiro em Ter 24 Nov 2015, 23:24

    Eu estou com um problema há uma semana e tudo o que achei até agora em pesquisas no Google, fóruns e etc. não resolve. Eu visito diariamente este fórum há vários anos e sempre me preocupei em não postar uma dúvida, sem antes ter feito muita pesquisa e efetuado vários testes. Tanto que esta é a primeira pergunta que faço aos senhores.
    Vamos lá:
    Eu tenho um sistema que importa emails da Cx de Entrada do Outlook para uma tabela  tbEmailsRecebidos do backend via código VBA. Esse código está aqui no Fórum, funciona há dois anos nos meus computadores com as minhas contas de email, sem problema algum!
    O sistema é operado por 4 usuários em uma rede de domínio (cada um deles tem um email próprio). A empresa usa o serviço de emails do Google e os emails chegam diariamente em uma conta  “atendimento@empresa.com.br” . Assim que importados, os usuários executam suas tarefas no frontend.
    De uma semana para cá, o Access não consegue importar essa caixa de entrada do atendimento@ , mas importa de todos os emails pessoais “nomeusuario@empresa .com.br”
    Após a falha, formatamos a máquina que recebe os emails, reinstalamos o Windows 7 e Office 2010, frontend e ....continua sem funcionar. Eu fiz testes de importação em máquinas de outros usuários, com Access 2007 e 2010 e o resultado foi o mesmo: Importa de todos os emails, menos do tal atendimento@empresa.
    O problema está a me deixar louco (não tenho conhecimento sobre Active Directory, redes de domínio e etc), mas o comportamento é o mesmo, independente do usuário do domínio e da versão do Office ou da máquina utilizada. Por que o código importa qualquer email menos o atendimento@empresa ?
    Algum dos senhores já teve este problema ou tem alguma ideia do que está acontecendo? Agradeço antecipadamente a atenção dos colegas.

    Elsio Ribeiro

    Ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 04/08/2010

    Re: [Resolvido]Importação da Cx de Entrada do Outlook parou de funcionar para uma única conta de email... em todas as outras, funciona.

    Mensagem  Ribeiro em Qua 25 Nov 2015, 00:35

    Segue o código utilizado baseado em post do JPaulo.

    Public Sub OutlookRecebidos()

    Dim TempRst As DAO.Recordset
    Dim rst As DAO.Recordset

    Dim OlApp As Outlook.Application
    Dim Recebidos As Outlook.MAPIFolder
    Dim RecebidosItems As Outlook.Items

    Dim Mailobject As Object
    Dim db As DAO.Database

    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * from tbEmailsRecebidos"
    DoCmd.SetWarnings True

    Set db = CurrentDb

    Set OlApp = CreateObject("Outlook.Application")
    Set Recebidos = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)
    Set TempRst = CurrentDb.OpenRecordset("tbEmailsRecebidos")
    Set RecebidosItems = Recebidos.Items

    For Each Mailobject In RecebidosItems
    With TempRst
    .AddNew
    !Titulo = Mailobject.Subject
    !De = Mailobject.SenderEmailAddress
    !Nome = Mailobject.SenderName
    !Corpo = Mailobject.Body
    !DataEnvio = Mailobject.SentOn
    .Update
    End With
    Next
    '----------------
    ' End Loop
    '----------------
    Set OlApp = Nothing
    Set Recebidos = Nothing
    Set RecebidosItems = Nothing
    Set Mailobject = Nothing
    Set TempRst = Nothing

    MsgBox "A importação foi realizada com sucesso!", vbInformation, "Confirmação"

    End Sub

    Ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 04/08/2010

    Re: [Resolvido]Importação da Cx de Entrada do Outlook parou de funcionar para uma única conta de email... em todas as outras, funciona.

    Mensagem  Ribeiro em Qui 26 Nov 2015, 02:42

    Resolvido
    O meu sistema (que eu desenvolvi para o cliente) é utilizado por um departamento de uma empresa grande e o depto. de TI alterou as permissões de acesso dos usuários sem a devida comunicação, impedindo a importação. A solução foi criar um novo email, este sim com a devido acesso. O código de importaçao é enxuto e correto (por isso sempre funcionou!).
    Valeu a experiência, ou a ...quase sabotagem.

      Data/hora atual: Seg 05 Dez 2016, 04:26