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

Como preencher automaticamente o assunto do email com o nome do anexo no Outlook?

Para aqueles que estão acostumados a usar o nome do anexo como assunto de um e-mail no Outlook, digitar manualmente o nome do anexo na linha de assunto de cada vez será demorado. Conforme mostrado no gif abaixo, se você quiser preencher a linha de assunto do email com o nome do anexo automaticamente ao inserir um anexo, o método VBA neste tutorial ajudará.


Preencha automaticamente o assunto do email com o nome do anexo com o código VBA

Execute o seguinte código VBA para preencher automaticamente o assunto do email com o nome do anexo inserido no Outlook.

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 duplo Projeto1 (VbProject.OTM) > Objetos do Microsoft Outlook > Esta sessão do Outlook para abrir o ThisOutlookSession (Código) editor.

3. Em seguida, copie o seguinte código VBA no ThisOutlookSession (Código) editor.

Código VBA: Preencha automaticamente o assunto do email com o nome do anexo

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

4. Agora você precisa salvar o código e reiniciar o Outlook.

5. A partir de agora, ao inserir um anexo em um e-mail que ainda não possui o assunto preenchido, um Kutools para Outlook aparecerá uma caixa de diálogo perguntando se você deseja usar o nome do anexo como assunto, clique no botão Sim botão.

Em seguida, a linha de assunto será preenchida automaticamente com o nome do anexo inserido.

Notas:

1) Se você já preencheu o assunto, inserir um anexo não abrirá a caixa de diálogo.
2) Se você remover um assunto existente do e-mail atual, mas o cursor ainda for exibido na linha de assunto, inserir um anexo também não exibirá a caixa de diálogo. Depois de remover o assunto, você precisa clicar fora da linha de assunto para atualizar a caixa de mensagem e fazer o código funcionar.
3) Se você inserir vários anexos ao mesmo tempo, apenas o nome do primeiro anexo poderá ser usado como assunto do e-mail.

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 (5)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделение И? Может в данном коде дописать или вообще другой существует? Заранее спасибо
Este comentário foi feito pelo moderador no site
Olá Александр,

Você quer dizer adicionar vários anexos enquanto adiciona esses nomes de anexos ao mesmo tempo ao assunto e depois vinculá-los com AND?
Este comentário foi feito pelo moderador no site
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Este comentário foi feito pelo moderador no site
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Este comentário foi feito pelo moderador no site
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL