Como renomear e salvar anexos de e-mail em uma pasta no Outlook?

No Outlook, você pode receber mensagens com anexos normalmente, e você tenta renomear os anexos da mensagem e salvá-los em uma pasta como mostrado na imagem abaixo? Obviamente, você pode salvá-los em uma pasta e renomeá-los um por um, mas, na verdade, tenho um código VBA que pode renomear rapidamente todos os anexos com o mesmo nome e depois salvá-los em uma pasta.

Renomear e salvar anexos com o mesmo nome em uma pasta

Renomeie e salve anexos em uma pasta com Kutools for Outlook

---

Responder mensagem com anexos originais no Outlook

Como todos sabemos, os anexos anexados serão removidos da mensagem original quando você responder uma mensagem ao destinatário no Outlook. Se você quiser responder à massagem mantendo os anexos, pode tentar Kutools for Outlook's Responder com anexo função, ele pode responder uma mensagem com os anexos originais, também funciona para todos os messafe.    Clique para obter todos os recursos de teste gratuito por 60 dias!

Kutools for Outlook: com dezenas de suplementos úteis do Outlook, gratuitos para testar sem limitação em 60 dias.

Renomear e salvar anexos com o mesmo nome em uma pasta

1. Selecione a mensagem cujos anexos deseja salvar e renomeie com o mesmo nome.

2. Pressione Alt + F11keys, então no Project1 painel, clique duas vezes Esta sessão do Outlook para criar um novo script em branco na seção certa, copie e cole o código nele.

VBA: renomear e salvar 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 Ferramentas > Referência, na caixa de diálogo popping, verifique Tempo de execução de scripts da Microsoft caixa de seleção.

4. Clique OK, pressione F5 chave para executar o código, um Procurar pasta caixa de diálogo aparece para selecionar ou criar uma pasta para colocar anexos.

5. Clique OKe dê um nome para os anexos.

6. Clique OK, agora os anexos são renomeados com o mesmo nome, se houver duplicatas, as duplicatas serão adicionadas com números como sufixo.

Renomeie e salve anexos em uma pasta com Kutools for Outlook

Na verdade, há um recurso no Kutools for Outlook - uma ferramenta útil de suplemento do Outlook pode renomear todos os anexos antes de salvar ou enviar.

Livre Instalar Kutools for Outlooke siga as etapas abaixo:

1. Ative o e-mail no painel nagativo ou na caixa Mensagem como desejar, clique Kutools > Ferramentas de Anexo > Renomear tudo.

2. Na caixa de diálogo pop-up, digite o novo nome que você usa para cada anexo. Clique OK, os anexos foram renomeados com novos nomes.
 

3. Clique com o botão direito em um anexo e selecione Salvar todos os anexos, clique em OK e selecione uma pasta para salvar os anexos conforme necessário. Em seguida, os anexos renomeados foram salvos em uma pasta.