Como Abrir Rapidamente a Caixa de Diálogo de Arquivo Para Inserir Um Anexo no Outlook?

Author: Siluvia Last Modified: 2025-06-04

Quando precisamos inserir um anexo em um e-mail que estamos compondo, geralmente precisamos clicar em Inserir > Anexar Arquivo > Procurar Este PC para abrir a caixa de diálogo Inserir Arquivo, depois encontrar e inserir o arquivo necessário. Neste tutorial, fornecemos dois códigos VBA para ajudá-lo a abrir a caixa de diálogo Inserir Arquivo facilmente com apenas um clique.

Abrir Rapidamente a Caixa de Diálogo de Arquivo Para Inserir Um Anexo Com VBA

Os seguintes códigos VBA podem realizar:

Código VBA 1: Abrir a pasta Documentos padrão do seu computador
Código VBA 2: Abrir a pasta especificada do seu computador

Por favor, siga os passos abaixo para concluir.

1. Abra seu Outlook, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Ferramentas > Referências, depois marque a caixa Microsoft Scripting Runtime na caixa de diálogo Referências – Project1.

steps of opening the file dialog box to insert an attachment in outlook

3. Clique em Inserir > Módulo. Em seguida, copie um dos seguintes códigos VBA para a janela Módulo.

Código VBA 1: Abrir a pasta Documentos padrão do seu computador

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

Código VBA 2: Abrir a pasta especificada do seu computador

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

Notas:

1) O código VBA 1 ajuda a abrir a pasta Documentos padrão do seu computador.

2) No código VBA 2, altere o caminho da pasta na seguinte linha para o caminho da pasta que você precisa.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
Então, a pasta especificada será aberta sempre que você executar este código.

4. Pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.

Agora você precisa de um botão para executar a macro.

5. Clique em Página Inicial > Novo Email para criar um novo email. Na janela de mensagem, clique em Personalizar Barra de Ferramentas de Acesso Rápido > Mais Comandos.

6. Na caixa de diálogo Opções do Outlook, você precisa configurar conforme segue.

6.1) Na lista suspensa Escolher comandos de, selecione Macros;

6.2) Selecione a macro que você adicionou na etapa anterior;

6.3) Clique no botão Adicionar para adicionar esta macro à caixa Personalizar Barra de Ferramentas de Acesso Rápido.

7. Mantenha o script selecionado na caixa à direita e, em seguida, clique no botão Modificar. Na caixa de diálogo Modificar Botão, atribua um novo botão ao script e clique em OK.

8. Clique em OK na caixa de diálogo Opções do Outlook para salvar as alterações.

9. O botão que você especificou na etapa 7 é então adicionado à Barra de Ferramentas de Acesso Rápido. Ao compor um e-mail, se você quiser inserir um anexo, pode simplesmente clicar neste botão para abrir a pasta Procurar e selecionar o arquivo que deseja inserir.

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!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 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...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!