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 uzyskać pełne funkcje 60-dniowy bezpłatny okres próbny! |
![]() |
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. |
- Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili według reguł; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
- Ostrzeżenie BCC - pokaż wiadomość, gdy próbujesz odpowiedzieć wszystkim, jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
- Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie mailowej; Odpowiadaj na wiele e-maili jednocześnie; Automatyczne dodawanie powitania kiedy odpowiedz; Automatyczne dodawanie daty i godziny do tematu ...
- Narzędzia załączników: Automatyczne odłączanie, kompresowanie wszystkiego, zmiana nazwy wszystkiego, automatyczne zapisywanie wszystkiego ... Szybki raport, Policz wybrane wiadomości, Usuń zduplikowane wiadomości e-mail i kontakty ...
- Ponad 100 zaawansowanych funkcji będzie rozwiąż większość swoich problemów w Outlook 2021 - 2010 lub Office 365. Pełne funkcje 60-dniowy bezpłatny okres próbny.
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 keys, 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 Narzędzia > 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.
Kutools for Outlook , zawiera
100
zaawansowane funkcje i narzędzia dla Microsoft Outlook 2016, 2013, 2010 i Office 365. |
||
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.
Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!
- Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
- Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
- Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
- Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
- Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.





