كيفية إعادة تسمية المرفقات وحفظها من البريد الإلكتروني في مجلد في Outlook؟

Author: Sun Last Modified: 2025-05-30

في Outlook، غالبًا ما تتلقى رسائل بريد إلكتروني تحتوي على مرفقات. هل حاولت يومًا إعادة تسمية مرفقات الرسالة وحفظها في مجلد كما هو موضح في الصورة أدناه؟ بالطبع يمكنك حفظ كل مرفق في مجلد وإعادة تسميته يدويًا واحدًا تلو الآخر، لكن في الواقع لدي كود VBA يمكنه إعادة تسمية جميع المرفقات بنفس الاسم بسرعة ثم حفظها في مجلد واحد.
doc rename save attach 1

إعادة تسمية وحفظ المرفقات بنفس الاسم في مجلد

إعادة تسمية وحفظ المرفقات في مجلد باستخدام أدوات Kutools لـ Outlook

إعادة تسمية وحفظ المرفقات بنفس الاسم في مجلد

1. حدد الرسالة التي ترغب في حفظ مرفقاتها وإعادة تسميتها بنفس الاسم.

2. اضغط على مفاتيح "Alt" + "F11"، ثم في جزء "Project1"، انقر نقرًا مزدوجًا على "ThisOutlookSession" لإنشاء نص برمجي جديد فارغ في القسم الأيمن، ثم انسخ الكود والصقه فيه.

VBA: إعادة تسمية وحفظ المرفقات

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

doc rename save attachments in a folder 2

3. انقر على "Tools" > "References"، وفي مربع الحوار الذي يظهر، ضع علامة على خيار "Microsoft Script Runtime".

doc rename save attachments in a folder 3

doc rename save attachments in a folder 4

4. انقر على "OK"، ثم اضغط على مفتاح "F5" لتشغيل الكود، سيظهر مربع حوار "Browse For Folder" لتحديد أو إنشاء مجلد لحفظ المرفقات.
doc rename save attachments in a folder 5

5. انقر موافق, ثم أدخل اسمًا للمرفقات.
doc rename save attachments in a folder 6

6. انقر على "OK"، الآن تم إعادة تسمية المرفقات بنفس الاسم، وإذا وُجدت مرفقات مكررة، سيتم إضافة أرقام كلاحقة للأسماء المكررة.

الرد على الرسالة مع المرفقات الأصلية في Outlook

كما نعلم جميعًا، سيتم إزالة المرفقات المرفقة من الرسالة الأصلية عند الرد على رسالة لمستلم في Outlook. إذا كنت ترغب في الرد مع الاحتفاظ بالمرفقات، يمكنك تجربة وظيفة الرد مع المرفقات من أدوات Kutools لـ Outlook، حيث يمكنها الرد على رسالة واحدة مع الحفاظ على المرفقات الأصلية، كما أنها تعمل مع جميع الرسائل. انقر لمعرفة الميزات الكاملة 30 أيام تجريبية مجانية!

أدوات Kutools لـ Outlook: تحتوي على العشرات من أدوات Outlook المفيدة، جربها مجانًا دون قيود لمدة 30 أيام.

إعادة تسمية وحفظ المرفقات في مجلد باستخدام أدوات Kutools لـ Outlook

في الواقع، هناك ميزة في "Kutools for Outlook" — وهي أداة إضافية مفيدة لـ Outlook تتيح لك إعادة تسمية جميع المرفقات قبل الحفظ أو الإرسال.

أدوات Kutools لـ Outlook: اكتشف أكثر من 100 ميزة أساسية ومتقدمة! استمتع بأكثر من 70 ميزة مجانًا. قم بتنزيل واستكشاف الإصدار المجاني اليوم!

قم بتثبيت Kutools for Outlook مجانًا، ثم اتبع الخطوات التالية:

1. فعّل البريد الإلكتروني في لوحة التنقل أو في نافذة الرسالة حسب رغبتك، ثم انقر على "Kutools" > "أدوات المرفقات" > "إعادة تسمية الكل".
doc rename save attach 2

2. في مربع الحوار الذي يظهر، أدخل الاسم الجديد الذي ترغب في استخدامه لكل مرفق. انقر على "موافق"، وسيتم إعادة تسمية المرفقات بالأسماء الجديدة.
doc rename save attach 3

3. انقر بزر الماوس الأيمن على أحد المرفقات، ثم اختر "حفظ جميع المرفقات"، وانقر على "موافق" وحدد مجلدًا لحفظ المرفقات حسب حاجتك. بعد ذلك، سيتم حفظ المرفقات التي تمت إعادة تسميتها في المجلد.
doc rename save attach 5