Como preencher automaticamente o assunto do e-mail com o nome do anexo no Outlook?
Para quem costuma usar o nome do anexo como assunto de e-mail no Outlook, digitar manualmente esse nome na linha de assunto todas as vezes pode ser demorado. Como ilustrado no GIF abaixo, se pretende preencher automaticamente a linha de assunto com o nome do anexo assim que este for inserido, o método VBA apresentado neste tutorial é a solução ideal.
Preencher automaticamente o Assunto do Email com o Nome do Anexo com código VBA
Execute o seguinte código VBA para preencher automaticamente o campo Assunto do e-mail com o nome do anexo inserido no Outlook.
1. Inicie o seu Outlook e prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em Project1 (VbProject.OTM) > Microsoft Outlook Objects > ThisOutlookSession para abrir o editor do ThisOutlookSession (Code).
3. Em seguida, copie o seguinte código VBA para o editor do ThisOutlookSession (Code).
Código VBA: Preenchimento automático do 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, guarde o código e reinicie o Outlook.
5. A partir de agora, ao inserir um anexo num e-mail cujo assunto ainda não tenha sido preenchido, aparecerá uma caixa de diálogo Kutools para Outlook a perguntar se deseja utilizar o nome do anexo como assunto; clique no botão Sim.
Em seguida, a linha de assunto será preenchida automaticamente com o nome do anexo inserido.
Notas:
Assistente de E-mail com IA no Outlook: Respostas mais inteligentes, comunicação mais clara (magia com um só clique!)
Simplifique as suas tarefas diárias no Outlook com o Assistente de E-mail com IA do Kutools para Outlook. Esta ferramenta inteligente aprende com os seus e-mails anteriores para sugerir respostas precisas, otimizar o conteúdo das suas mensagens e ajudá-lo a redigir e aperfeiçoar textos com facilidade.
Esta funcionalidade suporta:
- Respostas Inteligentes: Obtenha respostas elaboradas com base nas suas conversas anteriores — personalizadas, precisas e prontas a usar.
- Conteúdo Aprimorado: Refine automaticamente o texto dos seus e-mails para garantir maior clareza e impacto.
- Redação sem esforço: basta indicar palavras-chave e deixe que a IA trate do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: potencie as suas ideias com sugestões sensíveis ao contexto.
- Resumo: Obtenha instantaneamente uma visão clara e concisa de e-mails longos.
- Alcance Global: Traduza os seus e-mails para qualquer idioma com facilidade.
Esta funcionalidade suporta:
- Respostas inteligentes por e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
Não espere—descarregue já o Assistente de E-mail com IA e desfrute!
Melhores Ferramentas de Produtividade para o Office
Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!
📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...
📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...
📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...
🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...
👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...
👩🏼🤝👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...
Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!
🚀 Transferência com um Clique — Obtenha Todos os Extras do Office
Altamente Recomendado: Kutools for Office (5 em 1)
Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!
- ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
- 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
- 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint