[Resolvido]exibir contas outlook em caixa de combinação

Boa tarde! Tenho uma caixa de combinação no meu formulário e gostaria que ela listasse minhas contas do outlook.

Encontrei esse código do Avelino na net, mas não sei onde devo colocar o código. Por favor, se alguém puder me ajudar. Desde já agradeço!!

Private Function fncCarregaContas()

Dim objOut As Outlook.Application
Dim objConta As Outlook.Account
On Error Resume Next
'------------------------
'Carrega o Outlook
'------------------------
Set objOut = New Outlook.Application
'-------------------------------
'Limpa lista caixa de combinação
'-------------------------------
Me!txContas.RowSource = ""
'-----------------------------------------------
'Captura todas as contas criadas no Outlook
'e adiciona na caixa de combinação
'-----------------------------------------------
For Each objConta In objOut.Session.Accounts
If objConta.AccountType = olPop3 Then
Me!txContas.AddItem objConta
End If
Next
'----------------------------------------------
'carrega o primeiro nome da conta como
'valor padrão
'----------------------------------------------
Me!txContas.DefaultValue = "'" & Me!txContas.Column(0, 0) & "'"
'-----------------------------------
'Limpa os objetos da memória
'-----------------------------------
Set objConta = Nothing
Set objOut = Nothing
End Function

A função vai no Topo do Formulário;
Deve ter um Botão para chamar a Função;

Deve ter no FOrmulario uma Caixa de combinação com o Nome "txtContas"

Deve marcar a Referência Microsoft Outlook xxx object Library no VB

Fabio Paes muito obrigado por sua ajuda.

Eu copiei o form para outro banco de dados, mas não tinha habilitado a Referência do Outlook.

Agradeço muito sua resposta e o código que vc colocou. Muito Obrigado!

Abraço!!

Grato amigo, até a próxima se Deus quiser!