Outlookで電子メールを転送するときに添付ファイルの名前を変更する方法

Outlookソリューション 2025 年 9 月 29 日

複数の添付ファイルを含む電子メールを転送する場合、転送時に添付ファイルの名前を直接変更したい場合があります。この記事では、OutlookVBAでそれを実現する方法を説明します。

デフォルトでは、Outlookは転送時にユーザーが添付ファイルの名前を変更することを許可していません。したがって、名前を変更する場合は、最初にファイルをコンピューターのローカルフォルダーに保存し、次に名前を変更してから、転送用電子メールに再度添付するという独自の方法があります。明らかに、この方法はかなり面倒です。さらに、これらのファイルはあなたにとって不必要な場合があるので、あなたは本当にそれらをあなたのコンピュータに保存したくないでしょう。この状況では、転送メールで添付ファイルの名前を直接変更できるようにするためのより迅速な方法を切望する必要があります。以下は、OutlookVBAを介してそれを実現するためのアプローチです。

電子メールを転送するときに添付ファイルの名前を変更する

まず、Outlookを起動し、[開発者]タブに移動します。
次に、「VisualBasic」ボタンを見つけてクリックします。
その後、新しいポップアップウィンドウで、「挿入」>「モジュール」を選択して新しいモジュールを開きます。
その後、次の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

その後、現在の「Visual Basic」ウィンドウを終了し、通常どおり新しいマクロをクイックアクセスツールバーに追加できます。
最後に、試してみることができます。

まず、電子メールを選択してから、クイックアクセスツールバーの新しいマクロボタンをクリックします。
その後、新しい転送メールが開きます。「添付」行に元の名前で添付ファイルが表示され、特定の添付ファイルの新しい名前を入力するように求めるダイアログボックスが表示されます。
すべてのファイルに新しい名前を指定して[OK]をクリックすると、添付されているすべてのファイルが新しい名前になっていることがわかります。
最終的には、転送メールを作成し、「送信」ボタンを押してメッセージを送信できます。

Outlookに対するすべての潜在的な脅威に注意を払います

Outlookは破損しやすいことが認識されています。したがって、ウイルス感染、マルウェア攻撃、および OutlookのPSTデータの損傷など。最も重要な対策は、Outlook データの定期的なバックアップを作成することです。また、次のような最高レベルの修復ツールを手元に置いておくことも賢明です。 DataNumen Outlook Repair、便利になります。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。損傷したmdfを修復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com