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 agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / 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 mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
