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

Quando precisamos inserir um anexo em um e-mail de composição, geralmente precisamos clicar em Inserir > Anexar arquivo > Procurar neste computador para abrir a caixa de diálogo Inserir arquivo e, em seguida, localizar 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.

Abra rapidamente a caixa de diálogo do arquivo para inserir um anexo com o VBA

Os seguintes códigos VBA podem alcançar:

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

Por favor, faça o seguinte para fazê-lo.

1. Inicie o Outlook, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > Referências, então verifique o Tempo de execução de scripts da Microsoft caixa no Referências - Projeto1 caixa de diálogo.

3. Clique inserção > Módulo. Em seguida, copie um dos seguintes códigos VBA para o Módulo janela.

Código VBA 1: Abra a pasta Documentos padrão em 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: Abra a pasta especificada em 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

Observações:

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

2) No código VBA 2, altere o caminho da pasta na linha a seguir para o caminho da pasta que você precisa.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
Em seguida, a pasta especificada será aberta toda vez que você executar esse código.

4. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.

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

5. Clique Home page > Novo Email para criar um novo e-mail. Na janela de mensagem, clique em Personalize a barra de ferramentas de acesso rápido > Mais comandos.

6. No Opções do Outlook caixa de diálogo, você precisa configurar da seguinte maneira.

6.1) No Escolha comandos de lista suspensa, selecione macros;

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

6.3) Clique no Adicionar botão para adicionar esta macro ao Personalize a barra de ferramentas de acesso rápido caixa.

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

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

9. O botão que você especificou na etapa 7 é então adicionado ao Barra de Ferramentas de Acesso Rápido. Ao redigir um e-mail, caso queira inserir um anexo, basta clicar neste botão para abrir o Procurar pasta e selecione o arquivo que você precisa inserir.