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