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:
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.
