Note: The other languages of the website are Google-translated. Back to English
English English

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.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos