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

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.

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:

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.

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 o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar e-mails com facilidade, incluindo responder, resumir, otimizar, estender, traduzir e criar e-mails.

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

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não espere, baixe agora e aumente sua eficiência!

Tabela Unidimensional de Kutools para Outlook      Baixar agora      Ir para Comprar

🚀 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

Sobre o Pacote ⬇ Baixar o Pacote 💳 Comprar o Pacote