Ir para o conteúdo principal

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

notas:

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 Início > 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.


Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations