Como renomear anexos na janela do Outlook sem salvar no disco?
Para anexos de mensagens de e-mail recebidas, você pode renomear esses anexos para reconhecê-los facilmente em trabalhos futuros. Na verdade, não há nenhuma função integrada do Outlook para renomear diretamente os anexos na janela do Outlook sem salvá-los no disco. Neste artigo, mostraremos os métodos de renomeação de anexos no Outlook.
Salve e renomeie anexos automaticamente com o código VBA no Outlook
Renomeie facilmente anexos de e-mail sem salvá-los em disco com o Kutools para Outlook
Salvar e renomear anexos com código VBA no Outlook
Nesta seção, forneceremos um código VBA para salvar automaticamente os anexos do e-mail selecionado. Depois de salvar, você pode ver que a data da última modificação dos anexos foi adicionada como um prefixo aos nomes dos anexos originais. Faça o seguinte.
1. No Documentos pasta, crie uma nova pasta chamada Anexos para salvar e renomear os anexos de um e-mail selecionado.
2. Selecione o e-mail com os anexos que deseja salvar e renomeie com as datas modificadas.
3. Pressione outro + F11 teclas simultaneamente para abrir o Microsoft Visual Basic para aplicativos janela. No Microsoft Visual Basic para aplicativos janela, clique em inserção > Móduloe cole o código VBA abaixo na janela Módulo.
Código VBA: salve os anexos e adicione a data de modificação antes do nome do arquivo
Public Sub saveattachmentsadddate()
Dim itm As Outlook.MailItem
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim fso As Object
Dim oldName
Dim file As String
Dim DateFormat As String
Dim newName As String
Dim enviro As String
enviro = CStr(Environ("USERPROFILE"))
saveFolder = enviro & "\Documents\Attachments\"
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each itm In Selection
For Each objAtt In itm.Attachments
file = saveFolder & objAtt.DisplayName
objAtt.SaveAsFile file
'Get the file name
Set oldName = fso.GetFile(file)
DateFormat = Format(oldName.DateLastModified, "yyyy-mm-dd ")
newName = DateFormat & objAtt.DisplayName
oldName.Name = newName
Set objAtt = Nothing
Next
Next
Set fso = Nothing
End Sub4. aperte o F5 para executar o código, e os anexos do e-mail selecionado são salvos na pasta "\ Documentos \ Anexos \" e a data da última modificação dos anexos foi adicionada como um prefixo aos nomes dos anexos originais automaticamente.
Notas:
Renomeie facilmente anexos de e-mail sem salvá-los em disco com o Kutools para Outlook
Aqui altamente recomendado o Renomear anexos característica de Kutools for Outlook. Com este recurso, você pode renomear anexos diretamente na janela do Outlook sem salvar no disco.
Kutools for Outlook : com mais de 100 suplementos úteis do Outlook, grátis para experimentar sem limitação em 60 dias.
1. Após a instalação Kutools for Outlook, selecione um e-mail cujos anexos você deseja renomear e clique em Kutools > Ferramentas de Anexo > Renomear tudo.
2. No Renomear anexos caixa de diálogo, você pode ver todos os nomes dos anexos do e-mail selecionado estão listados no Nome coluna. Clique duas vezes no nome de um anexo para editá-lo e, em seguida, clique no OK para salvar as alterações.
Tips: Você pode modificar todos os nomes de anexo ou apenas modificar qualquer um dos nomes de anexo conforme necessário na caixa de diálogo.
Em seguida, os anexos são renomeados na janela de e-mail selecionada.
Note: Você pode renomear um determinado anexo selecionando-o no Painel de Leitura, clicando em Kutools > Rebatizar, na caixa de diálogo de renomear, digitando um novo nome no Nome e, em seguida, clicando no OK botão para salvá-lo. Veja a imagem:
Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.
Artigos relacionados:
- Como salvar todos os anexos de vários e-mails em uma pasta no Outlook?
- Como manter os anexos ao responder no Outlook?
- Como remover todos os anexos de e-mail no Outlook?
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 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.
