كيفية إعادة تسمية المرفقات وحفظها من البريد الإلكتروني في مجلد في Outlook؟
في Outlook، غالبًا ما تتلقى رسائل بريد إلكتروني تحتوي على مرفقات. هل حاولت يومًا إعادة تسمية مرفقات الرسالة وحفظها في مجلد كما هو موضح في الصورة أدناه؟ بالطبع يمكنك حفظ كل مرفق في مجلد وإعادة تسميته يدويًا واحدًا تلو الآخر، لكن في الواقع لدي كود VBA يمكنه إعادة تسمية جميع المرفقات بنفس الاسم بسرعة ثم حفظها في مجلد واحد.
إعادة تسمية وحفظ المرفقات بنفس الاسم في مجلد
إعادة تسمية وحفظ المرفقات في مجلد باستخدام أدوات 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
3. انقر على "Tools" > "References"، وفي مربع الحوار الذي يظهر، ضع علامة على خيار "Microsoft Script Runtime".
 |  |  |
4. انقر على "OK"، ثم اضغط على مفتاح "F5" لتشغيل الكود، سيظهر مربع حوار "Browse For Folder" لتحديد أو إنشاء مجلد لحفظ المرفقات.
5. انقر موافق, ثم أدخل اسمًا للمرفقات.
6. انقر على "OK"، الآن تم إعادة تسمية المرفقات بنفس الاسم، وإذا وُجدت مرفقات مكررة، سيتم إضافة أرقام كلاحقة للأسماء المكررة.
الرد على الرسالة مع المرفقات الأصلية في Outlook |
| كما نعلم جميعًا، سيتم إزالة المرفقات المرفقة من الرسالة الأصلية عند الرد على رسالة لمستلم في Outlook. إذا كنت ترغب في الرد مع الاحتفاظ بالمرفقات، يمكنك تجربة وظيفة الرد مع المرفقات من أدوات Kutools لـ Outlook، حيث يمكنها الرد على رسالة واحدة مع الحفاظ على المرفقات الأصلية، كما أنها تعمل مع جميع الرسائل. انقر لمعرفة الميزات الكاملة 30 أيام تجريبية مجانية! |
 |
| أدوات Kutools لـ Outlook: تحتوي على العشرات من أدوات Outlook المفيدة، جربها مجانًا دون قيود لمدة 30 أيام. |
إعادة تسمية وحفظ المرفقات في مجلد باستخدام أدوات Kutools لـ Outlook
في الواقع، هناك ميزة في "Kutools for Outlook" — وهي أداة إضافية مفيدة لـ Outlook تتيح لك إعادة تسمية جميع المرفقات قبل الحفظ أو الإرسال.
قم بتثبيت Kutools for Outlook مجانًا، ثم اتبع الخطوات التالية:
1. فعّل البريد الإلكتروني في لوحة التنقل أو في نافذة الرسالة حسب رغبتك، ثم انقر على "Kutools" > "أدوات المرفقات" > "إعادة تسمية الكل".
2. في مربع الحوار الذي يظهر، أدخل الاسم الجديد الذي ترغب في استخدامه لكل مرفق. انقر على "موافق"، وسيتم إعادة تسمية المرفقات بالأسماء الجديدة.
3. انقر بزر الماوس الأيمن على أحد المرفقات، ثم اختر "حفظ جميع المرفقات"، وانقر على "موافق" وحدد مجلدًا لحفظ المرفقات حسب حاجتك. بعد ذلك، سيتم حفظ المرفقات التي تمت إعادة تسميتها في المجلد.
أفضل أدوات تعزيز الإنتاجية في المكتب
خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!
جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...
📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...
🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...
👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...
استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!
افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!
🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office
موصى به بقوة: Kutools لـ Office (خمسة في واحد)
بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!
- ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
- 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
- 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint