Escolher conta para importar e-mails do Outlook

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:

http://maximoaccess.forumeiros.com/t1913-resolvidoabrindo-pasta-especifica-no-outlook

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,

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.