كيف ترد على الجميع مع الاحتفاظ بالمرفقات الأصلية في Outlook؟

هل سبق أن ضغطتَ على «رد على الكل» في Outlook وفقدت المرفقات الأصلية؟ هذا أمرٌ مُحبِط! هل تتساءل كيف تحتفظ بتلك المرفقات عند الرد على الجميع؟ نعم، هذا ممكن! دعنا نستعرض طريقة إدراج المرفقات الأصلية في ردودك، مما يجعل إدارة البريد الإلكتروني سلسة وفعّالة. تابع معنا!

الرد على الجميع مع المرفقات الأصلية باستخدام كود VBA

الرد على الجميع مع المرفقات الأصلية باستخدام Kutools لـ Outlook

---

الرد على الجميع مع المرفقات الأصلية باستخدام كود VBA

لا توجد ميزة مُدمَجة في Outlook للتعامل مع هذه المهمة مباشرةً، لكن يمكنك استخدام كود VBA التالي لتحقيق ذلك. يُرجى اتباع الخطوات التالية:

1. افتح برنامج Outlook، ثم اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر نقرًا مزدوجًا علىThisOutlookSession من جزءProject1 (VbaProject.OTM) لفتح الوحدة النمطية، ثم انسخ والصق الكود التالي في الوحدة الفارغة.

كود VBA: الرد على الكل مع المرفقات الأصلية:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function

3. بعد ذلك، انقر علىأدوات > المراجعفي نافذةمايكروسوفت فيجوال بيسك للتطبيقات. ثم في مربع الحوار الظاهرالمراجع - Project1، حدد خيارMicrosoft Scripting Runtime من قائمةالمراجع المتاحة، كما في لقطة الشاشة:

4. بعد ذلك، أغلق نافذة الكود، ثم أضف زر الماكرو إلىشريط أدوات الوصول السريع.

5. افتح البريد الإلكتروني الذي تريد الرد عليه مع المرفقات في نافذةالرسالة، ثم اخترمزيد من الأوامرمن القائمة المنسدلةتخصيص شريط أدوات الوصول السريع، كما في لقطة الشاشة:

6. في مربع حوارخيارات Outlook، اتبع الخطوات التالية:

(1.) اخترالماكرواتمن قائمةاختيار الأوامر منالمنسدلة؛

(2.) انقر على اسم الماكرو الذي أدخلته للتو؛

(3.) بعد ذلك، انقر على زرإضافةلإضافة الماكرو إلىتخصيص شريط أدوات الوصول السريع.

7. بعد ذلك، انقر علىموافقلإغلاق مربع الحوار. والآن، أصبح زر الماكرو مُدرَجًا فيشريط أدوات الوصول السريع، كما في لقطة الشاشة:

8. الآن، انقر على زر الماكرو، وستُفتح نافذة الرد مع المرفقات الأصلية. بعد ذلك، اكتب رسالتك وأرسلها بالنقر على زرإرسال، كما في لقطة الشاشة:

---

الرد على الجميع مع المرفقات الأصلية باستخدام Kutools لـ Outlook

إذا كنت تمتلكKutools لـ Outlook، فبفضل ميزتهالرد على الكل مع المرفق، يمكنك الرد على الجميع مع إرفاق المرفقات بنقرة واحدة فقط!

بعد تثبيتKutools لـ Outlook، يُرجى اتباع ما يلي:

1. حدد الرسالة التي تريد الرد عليها مع جميع المرفقات، ثم انقر علىKutools > الرد على الكل مع المرفق الأصلي، كما في لقطة الشاشة:

2. ستُفتح نافذة رسالة الرد مرفقةً بالمرفقات الأصلية—اكتب رسالتك وأرسلها، كما في لقطة الشاشة:

انقر لتنزيلالنسخة المجانية من Kutools لـ Outlook الآن!