Note: The other languages of the website are Google-translated. Back to English

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.
doc renomear salvar anexo 1

Renomear e salvar anexos com o mesmo nome em uma pasta

Renomear e salvar anexos em uma pasta com o Kutools para 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 para 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 recursos completos
60
dias de teste grátis!
 
doc responder com anexo
 
Kutools for Outlook: com dezenas de complementos úteis do Outlook, grátis para experimentar sem limitação em
60
dias.
Guia Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2021 - 2010 ou Office 365. Recursos completos Avaliação gratuita de 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

doc renomear salvar anexos em uma pasta 2

3. Clique Ferramentas > Referências, na caixa de diálogo popping, verifique Tempo de execução de scripts da Microsoft caixa de seleção.

doc renomear salvar anexos em uma pasta 3 doc seta para a direita doc renomear salvar anexos em uma pasta 4

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.
doc renomear salvar anexos em uma pasta 5

5. Clique OKe dê um nome para os anexos.
doc renomear salvar anexos em uma pasta 6

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.


Renomear e salvar anexos em uma pasta com o Kutools para Outlook

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

Kutools for Outlook , Inclui
100
 recursos e ferramentas poderosos para Microsoft Outlook 2016, 2013, 2010 e Office 365.

Livre Instalar Kutools para Outlook e siga as etapas abaixo:

1. Ative o e-mail no painel nagativo ou na caixa Mensagem como desejar, clique Kutools > Ferramentas de AnexoRenomear tudo.
doc renomear salvar anexo 2

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.
doc renomear salvar anexo 3 

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.
doc renomear salvar anexo 5 
doc renomear salvar anexo 5


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (4)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Ei! Você sabe como podemos melhorar o código abaixo para renomear o arquivo quando salvo?

Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim salvar pasta como string
saveFolder = "C:\Users\cheng\Desktop"
Para cada objAtt em itm.Attachments
objAtt.SaveAsFile saveFolder
Definir objAtt = Nada
Seguinte
End Sub
Este comentário foi feito pelo moderador no site
Olá, Lipe, pode ser que este código possa te ajudar.

Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
Dim xCopiedAppointment As Outlook.AppointmentItem
Dim xMovedAppointment As Outlook.AppointmentItem
Dim xMeeting As MeetingItem
Dim xApoint As AppointmentItem
On Error Resume Next
Se Item.Class = olAppointment Então
Definir xAponto = Item
Definir xCopiedAppointment = xApoint.Copy
Definir xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Se xApoint.Subject <> xMovedAppointment.Subject Then
If InStr(1, xMovedAppointment.Subject, "Copiar:") > 0 Then
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copiar: ", "", 1, 1)
xMovedAppointment.Salvar
Se acabar
Se acabar
ElseIf Item.Class = olMeetingRequest Then
Definir xReunião = Item
Definir xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
Definir xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
Se xMeeting.Subject <> xMovedAppointment.Subject Then
If InStr(1, xMovedAppointment.Subject, "Copiar:") > 0 Then
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copiar: ", "", 1, 1)
xMovedAppointment.Salvar
Se acabar
Se acabar
xCopiedAppointment.Delete
Se acabar
Definir xCopiedAppointment = Nothing
End Sub
Este comentário foi feito pelo moderador no site
Oi! Como isso pode funcionar se tiver vários e-mails? Isso é apenas para vários anexos no mesmo e-mail? Obrigado!
Este comentário foi feito pelo moderador no site
Obrigado, é ridículo que tenhamos que ir tão longe para fazer algo que deve ser tratado pelo aplicativo
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL