Como abrir uma pasta específica do Outlook no Excel?
Você já tentou abrir uma pasta específica do Outlook a partir de um arquivo do Excel, como abrir a pasta Caixa de entrada, a pasta Contatos ou qualquer outra pasta? Neste artigo, vou falar sobre como abrir uma pasta do Outlook desejada a partir da pasta de trabalho do Excel?
Abra uma pasta específica do Outlook a partir de um arquivo Excel com o código VBA
Abra uma pasta específica do Outlook a partir de um arquivo Excel com o código VBA
O seguinte código VBA pode ajudá-lo a abrir uma pasta específica do Outlook a partir da planilha do Excel, faça o seguinte:
1. No Excel, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole a macro a seguir no Janela Módulo.
Código VBA: abra uma pasta específica do Outlook a partir do arquivo Excel:
Sub OpenOutlookFolder()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outlook.Namespace
Dim xFolder As Outlook.Folder
Dim xFolderType As OlDefaultFolders
On Error Resume Next
Set xOutlookApp = New Outlook.Application
Set xNameSpace = xOutlookApp.Session
Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
xFolder.Display
Set xFolder = Nothing
Set xNameSpace = Nothing
Set xOutlookApp = Nothing
Exit Sub
End Sub
Note: No código acima, você pode alterar o Caixa de entrada no Definir xFolder = xNameSpace.GetDefaultFolder (olFolderInbox) script para qualquer outro nome de pasta que você deseja abrir.
3. Então clique Ferramentas > Referências no Microsoft Visual Basic para Aplicações janela, no estalou para fora Referências-Projeto1 caixa de diálogo, verifique Biblioteca de objetos do Microsoft Outlook opção do Referências Disponíveis caixa de lista, veja a captura de tela:
4. E então, clique OK para fechar a caixa de diálogo e pressione F5 para executar este código e a pasta especificada do Outlook será aberta imediatamente.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!