Como renomear e guardar anexos de e-mails numa pasta no Outlook?
No Outlook, costuma receber mensagens com anexos e já tentou renomear os anexos de uma mensagem e guardá-los numa pasta, tal como ilustrado na imagem abaixo? É claro que pode guardá-los numa pasta e renomeá-los um a um — mas, na verdade, tenho um código VBA que lhe permite renomear rapidamente todos os anexos com o mesmo nome e guardá-los numa única pasta.
Renomear e guardar anexos com o mesmo nome numa pasta
Renomear e guardar anexos numa pasta com Kutools para Outlook
Renomear e guardar anexos com o mesmo nome numa pasta
1. Selecione a mensagem cujos anexos deseja guardar e renomear com o mesmo nome.
2. Prima as teclas «Alt» + "F11" . Depois, no painel "Project1", faça duplo clique em «ThisOutlookSession» para abrir um novo script em branco na secção direita e cole o código aí.
VBA: Renomear e guardar anexos
Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object 'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xAttachment.SaveAsFile xFilePath
Set xFile = xFSO.GetFile(xFilePath)
xCount = 1
Saved = False
xExt = "." & xFSO.GetExtensionName(xFilePath)
xTmpName = xNewName
xNewName = xTmpName & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Else
xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
While Saved = False
xNewName = xTmpName & xCount & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Saved = True
Else
xCount = xCount + 1
End If
Wend
End If
Next
Next
Set xFSO = Nothing
End Sub
3. Clique em «Ferramentas» > «Referências» e, na caixa de diálogo que surgir, assinale a opção «Microsoft Script Runtime».
 |  |  |
4. Clique em «OK» e prima a tecla "F5" para executar o código. Aparecerá uma caixa de diálogo «Procurar Pasta», onde poderá selecionar ou criar uma pasta para guardar os anexos.
5. Clique em OK e, de seguida, indique um nome para os anexos.
6. Clique em «OK». Agora, os anexos foram renomeados com o mesmo nome; caso existam duplicados, estes terão números adicionados como sufixo.
Responder mensagem com os anexos originais no Outlook |
| Como todos sabemos, os anexos são removidos da mensagem original ao responder no Outlook. Se pretender responder mantendo os anexos, experimente esta funcionalidade: permite incluir automaticamente os anexos originais na sua resposta — e funciona com todas as mensagens!Clique para aceder a todas as funcionalidades numa avaliação gratuita de 30 dias!Kutools para Outlook's Responder com Anexo |
 |
| Kutools para Outlook: com dezenas de complementos práticos para o Outlook, grátis para experimentar sem limitações durante 30 dias. |
Renomear e guardar anexos numa pasta com Kutools para Outlook
Na verdade, o «Kutools para Outlook» inclui uma funcionalidade que permite renomear todos os anexos antes de os guardar ou enviar — uma extensão do Outlook verdadeiramente útil.
Instalação gratuita Kutools para Outlook, e depois siga os passos abaixo:
1. Ative o e-mail no painel de navegação ou na caixa de mensagens, conforme preferir, e clique em «Kutools» > «Ferramentas de Anexo» > «Renomear Todos».
2. Na caixa de diálogo que surge, introduza o novo nome que pretende atribuir a cada anexo e clique em «OK». Os anexos serão renomeados com o novo nome.
3. Clique com o botão direito do rato num anexo, selecione «Guardar Todos os Anexos», clique em «OK» e escolha uma pasta para guardar os anexos conforme necessário. Assim, os anexos renomeados são guardados numa pasta.
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