Como abrir rapidamente a caixa de diálogo do ficheiro para inserir um anexo no Outlook?

AutorSiluvia Data de Modificação2024-09-13

Quando precisamos de inserir um anexo num e-mail em redação, normalmente temos de clicar em **Inserir > Anexar Ficheiro > Procurar neste PC** para abrir a caixa de diálogo **Inserir Ficheiro**, localizar o ficheiro pretendido e inseri-lo. Neste tutorial, disponibilizamos dois códigos VBA que lhe permitem abrir a caixa de diálogo **Inserir Ficheiro** com apenas um clique — de forma rápida e eficaz.

Abrir rapidamente a caixa de diálogo do ficheiro para inserir um anexo com VBA

Os seguintes códigos VBA permitem:

Código VBA 1: Abrir a pasta predefinida Documentos no seu computador
Código VBA 2: Abrir uma pasta específica no seu computador

Siga os passos abaixo para concluir esta tarefa.

1. Inicie o seu Outlook e prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.

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

passos para abrir a caixa de diálogo de ficheiros para inserir um anexo no Outlook

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

Código VBA 1: Abrir a pasta predefinida Documentos no 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 uma pasta específica no 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 permite abrir a pasta predefinida Documentos no seu computador.

2) No código VBA 2, substitua o Caminho do Arquivo na linha seguinte pelo Caminho do Arquivo pretendido.
xFileDlg.InitialFileName = «C:\Users\Win10x64Test\Desktop\save attachments\»
Desta forma, a pasta especificada será aberta sempre que executar este código.

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

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

5. Clique em Base > Novo Email para criar um novo e-mail. Na janela da mensagem, clique em Personalizar Barra de Acesso Rápido > Mais Comandos.

6. Na caixa de diálogo Opções do Outlook, configure conforme indicado a seguir.

6,1) Em Escolher comandos deLista suspensa, selecione Macros;

6,2) Selecione a macro que adicionou no passo anterior;

6,3) Clique no botão Adicionarpara adicionar esta macro à caixa Personalizar Barra de Acesso Rápido.

7. Mantenha o script selecionado na caixa à direita e 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 guardar as alterações.

9. O botão que especificou no passo 7 é então adicionado à Barra de Acesso Rápido. Ao compor um e-mail, se quiser inserir um anexo, basta clicar neste botão para abrir a pasta Procurar e selecionar o ficheiro que pretende inserir.

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook Transferir Já Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto ⬇ Transferir o Conjunto 💳 Comprar o Conjunto