Jak zmienić nazwę i zapisać załączniki wiadomości e-mail w folderze w Outlooku?

W programie Outlook możesz zwykle otrzymywać wiadomości z załącznikami i czy próbujesz zmienić nazwę załączników wiadomości i zapisać je w folderze, jak pokazano na zrzucie ekranu? Oczywiście możesz zapisać je w folderze i zmieniać ich nazwy jeden po drugim, ale w rzeczywistości mam kod VBA, który może szybko zmienić nazwy wszystkich załączników o tej samej nazwie, a następnie zapisać je w jednym folderze.

Zmień nazwę i zapisz załączniki o tej samej nazwie w folderze

Zmień nazwę i zapisz załączniki w folderze z Kutools for Outlook

---

Odpowiedz na wiadomość z oryginalnymi załącznikami w programie Outlook

Jak wszyscy wiemy, załączone załączniki zostaną usunięte z oryginalnej wiadomości, gdy odpowiadasz na wiadomość do odbiorcy w Outlooku. Jeśli chcesz odpowiedzieć na masaż zachowaniem przywiązań, możesz spróbować Kutools dla programu Outlook's Odpowiedz z załącznikiem Funkcja, może odpowiedzieć na jedną wiadomość z oryginalnymi załącznikami, działa również dla wszystkich messafe.    Kliknij, aby wyświetlić pełne funkcje 60-dniowa bezpłatna wersja próbna!

Kutools dla programu Outlook: dzięki dziesiątkom przydatnych dodatków do programu Outlook można bezpłatnie wypróbować bez ograniczeń w ciągu 60 dni.

Zmień nazwę i zapisz załączniki o tej samej nazwie w folderze

1. Wybierz wiadomość, której załączniki chcesz zapisać i zmień jej nazwę na tę samą.

2. naciśnij Alt + F11 tyseys, a następnie w Project1 okienku, kliknij dwukrotnie Ta sesja programu Outlook aby utworzyć nowy pusty skrypt w prawej sekcji, a następnie skopiuj i wklej do niego kod.

VBA: Zmień nazwę i zapisz załączniki

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. kliknij Tools > Referencje, w wyświetlanym oknie dialogowym zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft checkbox.

4. kliknij OK, naciśnij F5 klucz do uruchomienia kodu, a Przeglądaj w poszukiwaniu folderu pojawi się okno dialogowe wyboru lub utworzenia folderu do umieszczania załączników.

5. kliknij OK, a następnie nadaj nazwę załącznikom.

6. kliknij OK, teraz nazwy załączników są zmieniane na tę samą nazwę, jeśli istnieją duplikaty, do zduplikowanych załączników zostaną dodane liczby jako przyrostek.

Zmień nazwę i zapisz załączniki w folderze z Kutools for Outlook

W rzeczywistości jest funkcja Kutools dla programu Outlook - poręczne narzędzie Outlooka może zmienić nazwy wszystkich załączników przed zapisaniem lub wysłaniem.

Darmowa instalacja Kutools dla programu Outlook, a następnie wykonaj poniższe czynności:

1. Aktywuj wiadomość e-mail w panelu negatywnym lub w polu wiadomości, jak chcesz, kliknij Kutools > Narzędzia załączników > Zmień nazwę wszystkim.

2. W wyświetlanym oknie dialogowym wpisz nową nazwę, której używasz dla każdego załącznika. Kliknij OK, nazwy załączników zostały zmienione na nowe.
 

3. Kliknij prawym przyciskiem myszy załącznik, wybierz Zapisz wszystkie załącznikikliknij OK i wybierz folder, aby zapisać potrzebne załączniki. Następnie załączniki o zmienionej nazwie zostały zapisane w folderze.
 

---

Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki Pro: Zapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

Czytaj więcej       Darmowe pobieranie      Zakup