Jak zmienić nazwę załączników podczas przesyłania wiadomości e-mail w programie Outlook

Czasami, gdy przesyłasz dalej wiadomość e-mail zawierającą kilka załączników, możesz chcieć zmienić nazwy załączników bezpośrednio podczas przesyłania dalej. W tym artykule dowiesz się, jak to osiągnąć za pomocą programu Outlook VBA.

Domyślnie program Outlook nie zezwala użytkownikowi na zmianę nazwy załączników podczas przesyłania dalej. Dlatego jeśli chcesz zmienić ich nazwy, unikalnym sposobem jest najpierw zapisanie plików w lokalnym folderze na komputerze, a następnie zmiana ich nazw, a następnie ponowne załączenie ich do wiadomości e-mail do przekazywania dalej. Oczywiście ta metoda jest bardzo kłopotliwa. Co więcej, czasami te pliki mogą być dla Ciebie nieistotne, więc naprawdę nie chcesz ich zapisywać na swoim komputerze. W tej sytuacji musisz długo czekać na szybszą metodę zmiany nazw załączonych plików bezpośrednio w wiadomościach e-mail przekazujących dalej. Poniżej przedstawiono podejście do realizacji tego za pomocą programu Outlook VBA.

Zmień nazwę załączników podczas przesyłania wiadomości e-mail

1. W pierwszej kolejności uruchom program Outlook i przejdź do zakładki „Programista”.
2. Następnie znajdź i kliknij przycisk „Visual Basic”.
3. Następnie w nowym oknie wyskakującym otwórz nowy moduł, wybierając „Wstaw” > „Moduł”.
4. Następnie należy skopiować i wkleić do niego następujące kody VBA.

Sub RenameAttachmentsWhenForwarding()
    Dim olItem As MailItem
    Dim Att As Attachment
    Dim Atts As Attachments
    Dim olForward As MailItem
    Dim FWAtt As Attachment
    Dim FWAtts As Attachments
    Dim FSO As Object
    Dim TempFPath As Object
    Dim FilePath As String
    Dim strName As String
    Dim strExten As String
    Dim strFile As String
 
    Set olItem = Application.ActiveExplorer.Selection.Item(1)
    Set Atts = olItem.Attachments
    Set olForward = olItem.Forward
    olForward.Display
 
    On Error Resume Next
 
    For Each Att In Atts
        'Get the path to Temporary Folder
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set TempFPath = FSO.GetSpecialFolder(2)
        FilePath = TempFPath.Path & "\"
 
        'Rename the attachments
        strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
        'Change "4" based on the length of the attachment file extension
        strExten = Right(Att.FileName, 4)
        strFile = FilePath & strName & "." & strExten
 
        If strName <> "" Then
           'Save the attachments to the Temporary Folder
           Att.SaveAsFile (strFile)
 
           'Add the attachments saved in new names from the Temporary Folder
           olForward.Attachments.Add (strFile)
           Set FWAtts = olForward.Attachments
 
           'Remove the original attachments
           For Each FWAtt In FWAtts
               If InStr(FWAtt.FileName, Att.FileName) > 0 Then
                  FWAtt.Delete
               End If
           Next
        End If
    Next
End Sub

5. Następnie możesz wyjść z bieżącego okna „Visual Basic” i jak zwykle dodać nowe makro do paska narzędzi szybkiego dostępu.
6. Wreszcie możesz spróbować.

• Najpierw wybierz wiadomość e-mail, a następnie kliknij przycisk nowego makra na pasku narzędzi Szybki dostęp.
• Następnie otworzy się nowa wiadomość e-mail do przekazywania. Możesz zobaczyć załączone pliki w oryginalnych nazwach w wierszu „Załączone”, a także otrzymać okno dialogowe, które wymaga wprowadzenia nowej nazwy dla określonego załącznika.
• Po określeniu nowych nazw dla wszystkich plików i kliknięciu „OK”, zobaczysz, że wszystkie załączone pliki mają nowe nazwy.
• W końcu możesz skomponować wiadomości e-mail do przekazywania i nacisnąć przycisk „Wyślij”, aby wysłać wiadomość.

Bądź czujny na wszystkie potencjalne zagrożenia dla swojego programu Outlook

Uznaje się, że program Outlook jest podatny na korupcję. Dlatego ochrona danych programu Outlook przed wszystkimi zagrożeniami, w tym infekcjami wirusowymi, atakami złośliwego oprogramowania i innymi zagrożeniami, jest długotrwałym zadaniem Uszkodzenie danych PST programu Outlook, itd. Najważniejszym działaniem jest regularne tworzenie kopii zapasowej danych programu Outlook. Warto również mieć pod ręką najnowocześniejsze narzędzie do naprawy, takie jak DataNumen Outlook Repair, co się przyda.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Napraw uszkodzony mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com