Outlook дээр имэйл дамжуулахдаа хавсралтын нэрийг хэрхэн өөрчлөх вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Заримдаа, та хэд хэдэн хавсралт агуулсан имэйлийг дамжуулахдаа дамжуулахдаа хавсралтын нэрийг шууд өөрчлөхийг хүсч болно. Энэ нийтлэл нь Outlook VBA-ийн тусламжтайгаар үүнийг хэрхэн хийхийг танд заах болно.

Анхдагч байдлаар, Outlook нь хэрэглэгчдэд хавсралтын нэрийг өөрчлөхийг зөвшөөрдөггүй. Тиймээс, хэрэв та тэдгээрийн нэрийг өөрчлөхийг хүсвэл файлуудыг эхлээд өөрийн компьютер дээрх дотоод хавтсанд хадгалж, дараа нь нэрийг нь өөрчилж, дамжуулах имэйл рүү дахин хавсаргах нь онцгой арга юм. Мэдээжийн хэрэг, энэ арга нь нэлээд төвөгтэй юм. Түүнээс гадна, заримдаа эдгээр файлууд нь танд хэрэггүй байж болох тул та тэдгээрийг компьютер дээрээ хадгалахыг үнэхээр хүсэхгүй байна. Энэ тохиолдолд та хавсаргасан файлуудын нэрийг шууд дамжуулах имэйлд өөрчлөх боломжийг олгох илүү хурдан аргыг хүсэх хэрэгтэй. Дараах нь Outlook VBA-ээр дамжуулан үүнийг хэрэгжүүлэх арга юм.

Имэйл дамжуулах үед хавсралтуудын нэрийг өөрчлөх

Эхлээд Outlook-г ажиллуулаад "Хөгжүүлэгч" таб руу очно уу.
Дараа нь "Visual Basic" товчийг олж, товшино уу.
Үүний дараа шинэ гарч ирэх цонхонд "Оруулах" > "Модуль" гэснийг сонгон шинэ модулийг нээнэ үү.
Дараа нь та дараахь 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" цонхноос гарч, ердийнхөөрөө Quick Access Toolbar-д шинэ макро нэмэх боломжтой.
Эцэст нь та хичээгээд үзээрэй.

Эхлээд имэйлээ сонгоод, хурдан нэвтрэх хэрэгслийн самбар дээрх шинэ макро товчийг дарна уу.
Дараа нь шинэ дамжуулах имэйл нээгдэнэ. Та хавсаргасан файлуудыг "Хавсралт" мөрөнд эх нэрээр нь харах боломжтой бөгөөд мөн тодорхой хавсралтад шинэ нэр оруулахыг шаарддаг харилцах цонхыг хүлээн авах боломжтой.
Бүх файлд шинэ нэрийг зааж өгсний дараа "OK" дээр дарсны дараа хавсаргасан бүх файлууд шинэ нэрэнд байгааг харах болно.
Эцэст нь та дамжуулах имэйлийг зохиож, мессеж илгээхийн тулд "Илгээх" товчийг дарж болно.

Таны хэтийн төлөвт учирч болзошгүй бүх аюулаас сэрэмжтэй байгаарай

Outlook нь авлигад өртөмтгий гэдгийг хүлээн зөвшөөрч байна. Тиймээс Outlook-ийн өгөгдлийг вирусын халдвар, хортой програмын халдлага гэх мэт бүх аюулаас хамгаалах нь урт хугацааны ажил юм Outlook PST өгөгдлийн эвдрэлгэх мэт. Хамгийн чухал алхам бол Outlook өгөгдлөө тогтмол нөөцлөх явдал юм. Түүнчлэн, ойролцоох дээд зэрэглэлийн засварлах хэрэгслийг хадгалах нь зүйтэй. DataNumen Outlook Repair, энэ нь хэрэг болно.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. эвдэрсэн mdf засвар програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com