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

    Escolher conta para importar e-mails do Outlook

    Compartilhe

    Ricardo.Correa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 16/04/2014

    Escolher conta para importar e-mails do Outlook

    Mensagem  Ricardo.Correa em Qui 17 Abr - 9:22

    Olá caros amigos,

    Estou fazendo importação de e-mails do outlook para um aplicativo que estou desenvolvendo, e estou usando os códigos VBA baseados no endereço abaixo:

    [Você precisa estar registrado e conectado para ver este link.]

    Funciona! Porém tenho mais de uma conta no outlook e já tentei até mudar a conta principal, só que não resolveu e continua a importar e-mails da inbox da conta que não desejo.

    O código é o seguinte:

    Public Sub ImportaEmails()

    Dim OlApp As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim Pasta As Outlook.MAPIFolder
    Dim Emails As Outlook.Items
    Dim Mailobject As Object
    Dim strBackupPath As String
    Dim vSuccess As Variant

    Set OlApp = CreateObject("Outlook.Application")
    Set myNameSpace = OlApp.GetNamespace("Mapi")
    Set Pasta = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Teste")
    Set Emails = Pasta.Items

    strBackupPath = "C:\Users\ricardo.correa\Desktop\PROJETOS\E-MAILS\Distribuir\GESTÃO\"

    For Each Mailobject In Emails
    'Aqui o ProcessEmail salva o arquivo .msg na pasta strBackupPath
    vSuccess = ProcessEmail(Mailobject, strBackupPath)

    Next

    MsgBox "Arquivos Salvos!!!! Chupaaa!!!", vbInformation
    Set OlApp = Nothing
    Set Pasta = Nothing
    Set Emails = Nothing
    Set Mailobject = Nothing
    End Sub

    Temos como "apontar" para qual conta de e-mail desejo fazer a importação?

    Agradeço a ajuda e me desculpem se aqui não for o lugar correto para essa postagem!!!

    Um abraço

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Escolher conta para importar e-mails do Outlook

    Mensagem  Avelino Sampaio em Qui 17 Abr - 10:25

    Olá!

    Veja se este meu artigo atende (versão 2007 em diante)

    [Você precisa estar registrado e conectado para ver este link.]

    Veja também este tópico

    [Você precisa estar registrado e conectado para ver este link.]

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Ricardo.Correa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 16/04/2014

    Re: Escolher conta para importar e-mails do Outlook

    Mensagem  Ricardo.Correa em Qui 17 Abr - 10:56

    Avelino,

    Obrigado pela sua resposta!

    Neste caso, se eu declarar uma variável Contas Ex: "Dim Contas As Outlook.Accounts" onde eu a encaixaria para que seja verificada a pasta Caixa de entrada/Teste?

    Os operadores tem um "e-mail de grupo" que todos acessa e um que é próprio para assuntos internos, neste sentido não precisarei capturar todas as contas dos usuários, pois o "e-mail de grupo" é a conta que desejo fazer a varredura dos e-mails para salvar na pasta e/ ou importar para o access.

    Aqui em  "Set Pasta = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Teste")" aponto qual pasta que que seja verificada, todavia, não consigo fazer com que aponte para o e-mail de grupo/Inbox/teste, aí a pasta que ele verifica é e-mail próprio para assuntos internos/Inbox/teste.

    Mesmo mudando a conta do e-mail de grupo para principal ainda assim a conta do e-mail do e-mail de grupo não é selecionada.

      Data/hora atual: Sex 2 Dez - 23:35