วิธีเปลี่ยนชื่อไฟล์แนบเมื่อส่งต่ออีเมลใน Outlook

ในบางครั้ง เมื่อคุณส่งต่ออีเมลที่มีไฟล์แนบหลายไฟล์ คุณอาจต้องการเปลี่ยนชื่อไฟล์แนบโดยตรงเมื่อส่งต่อ บทความนี้จะสอนวิธีทำให้สำเร็จด้วย 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

5. หลังจากนั้น คุณสามารถออกจากหน้าต่าง “Visual Basic” ปัจจุบัน และดำเนินการเพิ่มแมโครใหม่ไปยังแถบเครื่องมือด่วนได้ตามปกติ
6. ในที่สุดคุณก็สามารถลองได้

• ขั้นแรก เลือกอีเมลแล้วคลิกปุ่มมาโครใหม่ในแถบเครื่องมือด่วน
• จากนั้นอีเมลส่งต่อใหม่จะเปิดขึ้น คุณสามารถดูไฟล์แนบในชื่อเดิมในบรรทัด "แนบ" และยังได้รับกล่องโต้ตอบที่ขอให้คุณป้อนชื่อใหม่สำหรับไฟล์แนบเฉพาะ
• หลังจากระบุชื่อใหม่สำหรับไฟล์ทั้งหมดแล้วคลิก "ตกลง" คุณจะเห็นว่าไฟล์ที่แนบมาทั้งหมดอยู่ในชื่อใหม่
• ในที่สุดคุณสามารถเขียนอีเมลส่งต่อและกดปุ่ม "ส่ง" เพื่อส่งข้อความ

ตื่นตัวอยู่เสมอต่อภัยคุกคามที่อาจเกิดขึ้นกับ Outlook ของคุณ

เป็นที่ทราบกันดีว่า Outlook มีความอ่อนไหวต่อการเสียหาย ดังนั้นจึงเป็นงานที่ต้องใช้เวลานานในการปกป้องข้อมูล Outlook จากภัยคุกคามทั้งหมด รวมถึงการติดไวรัส การโจมตีด้วยมัลแวร์ และ ข้อมูล Outlook PST เสียหายเป็นต้น สิ่งสำคัญที่สุดคือการสำรองข้อมูล Outlook ของคุณเป็นประจำ นอกจากนี้ ควรมีเครื่องมือซ่อมแซมคุณภาพสูงไว้ใกล้ตัวด้วย เช่น DataNumen Outlook Repairซึ่งจะมีประโยชน์

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซม mdf ที่เสียหาย และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.