Ola, Pessoal. Bom dia!

Estou em busca de uma solução aparentemente simple pra quem tem um conhecimento um pouco mais avançado em VBA.

Eu preciso fazer uma busca no meu outlook para encontrar determinada mensagem, pre determinada no codigo VBA.
O codigo abaixo está funcionando perfeitamente, porém eu trabalho com duas caixas funcionais, ou seja, tenho duas contas com emails diferentes e quero determinar de onde eu quero que o codigo VBA faça a Busca.

O codigo abaixo só está fazendo a busca do meu email pessoal e não da outra conta na qual preciso.

Sub teste()

Dim olApp As Outlook.Application
Dim olns As Namespace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer

Set olApp = New Outlook.Application
Set olns = olApp.GetNamespace("MAPI")
Set Fldr = olns.GetDefaultFolder(olFolderInbox)

i = 1
a = olns

For Each olMail In Fldr.Items
If InStr(olMail.Subject, "contrato100") <> 0 Then
olMail.Display

i = i + 1
End If
Next olMail
End Sub

agradeço a ajuda

Marcell