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 salvar em disco com Kutools for 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 Sub

4. 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 salvar em disco com Kutools for 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. 

Anote os: 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?