Como abrir uma pasta específica do Outlook a partir do Excel?
Você já tentou abrir uma pasta específica do Outlook a partir de um arquivo do Excel, como a pasta "Caixa de Entrada", a pasta "Contatos" ou qualquer outra pasta? Neste artigo, vou explicar como abrir uma pasta desejada do Outlook a partir de uma pasta de trabalho do Excel.
Abrir uma pasta específica do Outlook a partir do arquivo do Excel com código VBA
Abrir uma pasta específica do Outlook a partir do arquivo do Excel com código VBA
O seguinte código VBA pode ajudá-lo a abrir uma pasta específica do Outlook a partir de uma planilha do Excel. Por favor, siga estes passos:
1. No Excel, pressione e segure as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".
2. Clique em "Inserir" > "Módulo" e cole a seguinte macro na "Janela do Módulo".
Código VBA: Abrir uma pasta específica do Outlook a partir do arquivo do 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
Observação: No código acima, você pode alterar o "Caixa de Entrada" no script "Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)" para qualquer outro nome de pasta que deseja abrir.
3. Depois, clique em "Ferramentas" > "Referências" na janela "Microsoft Visual Basic for Applications" e, na caixa de diálogo "Referências-Projeto1" que aparece, marque a opção "Biblioteca de Objetos do Microsoft Outlook" na lista de "Referências Disponíveis". Veja a captura de tela:
4. Em seguida, clique em "OK" para fechar a caixa de diálogo e pressione a tecla "F5" para executar este código, e a pasta especificada do Outlook será aberta imediatamente.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / CC/BCC automático por Regra ao Enviar Email / Encaminhamento automático (Regra avançada) / Adicionar Saudação automaticamente / Dividir automaticamente Emails com múltiplos destinatários em Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint