Як перейменувати вкладення при пересиланні електронної пошти в Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Іноді, коли ви пересилаєте електронний лист, що містить кілька вкладень, можливо, вам доведеться перейменувати вкладення безпосередньо під час пересилання. Ця стаття навчить вас, як це зробити за допомогою Outlook VBA.

За замовчуванням Outlook не дозволяє користувачеві перейменовувати вкладення під час пересилання. Тому, якщо ви хочете перейменувати їх, унікальний спосіб - це спочатку зберегти файли в локальній папці на вашому комп’ютері, потім перейменувати їх і наступним чином знову прикріпити до електронного листа для переадресації. Очевидно, що цей метод значно клопіткий. Більше того, іноді ці файли можуть бути для вас несуттєвими, тому ви дійсно не хочете зберігати їх на своєму комп’ютері. У цій ситуації вам слід прагнути до більш швидкого методу, який дозволить вам перейменовувати вкладені файли безпосередньо в електронних листах для пересилання. Нижче наведено підхід до його реалізації за допомогою Outlook VBA.

Перейменуйте вкладення під час пересилання електронної пошти

  1. Перш за все запустіть Outlook і перейдіть на вкладку «Розробник».
  2. Потім знайдіть і натисніть кнопку “Visual Basic”.
  3. Після цього у новому спливаючому вікні відкрийте новий модуль, вибравши “Вставити”> “Модуль”.
  4. Згодом вам слід скопіювати та вставити в нього такі коди 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

Коди VBA - перейменуйте вкладення під час пересилання електронної пошти

  1. Після цього ви можете вийти з поточного вікна “Visual Basic” і продовжити додавати новий макрос на панель швидкого доступу, як зазвичай.Додайте новий макрос на панель швидкого доступу
  2. Нарешті можна спробувати.
  • Спочатку виберіть електронний лист, а потім натисніть кнопку нового макросу на панелі швидкого доступу.Виберіть електронну пошту та натисніть кнопку в QAT
  • Тоді відкриється новий електронний лист для переадресації. Ви можете побачити вкладені файли в оригінальних іменах у рядку “Вкладене”, а також отримати діалогове вікно, яке вимагає введення нового імені для конкретного вкладення.Введіть нові імена для вкладень у пересиланні електронної пошти
  • Вказавши нові імена для всіх файлів і натиснувши “OK”, ви побачите, що всі вкладені файли містяться у нових іменах.Вкладені файли в новій назві
  • Зрештою ви можете скласти електронні листи для переадресації та натиснути кнопку «Надіслати», щоб надіслати повідомлення.

Слідкуйте за усіма потенційними загрозами для вашого Outlook

Визнано, що Outlook схильний до корупції. Таким чином, це давно розроблене завдання захистити дані Outlook від усіх загроз, включаючи зараження вірусом, шкідливе програмне забезпечення та Пошкодження даних Outlook PSTтощо. Найважливіше – регулярно створювати резервні копії даних Outlook. Також доцільно мати під рукою сучасний інструмент для відновлення, наприклад DataNumen Outlook Repair, який стане в нагоді.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт пошкодженого mdf - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.