كيفية الرد على الكل بالمرفقات الأصلية في Outlook؟
عادةً ، عند تطبيق وظيفة "الرد على الكل" للرد على الرسالة لجميع المستلمين في Outlook ، ستفقد المرفقات الأصلية تلقائيًا. هل من الممكن إرفاق المرفقات الأصلية عند الرد على الكل في Outlook؟
قم بالرد على الكل بالمرفقات الأصلية برمز VBA
قم بالرد على جميع المرفقات الأصلية باستخدام Kutools for Outlook
قم بالرد على الكل بالمرفقات الأصلية برمز VBA
لا توجد ميزة مباشرة للتعامل مع هذه المهمة في Outlook ، ولكن يمكنك تطبيق رمز VBA التالي لتحقيق ذلك. يرجى القيام بالخطوات التالية:
1. قم بتشغيل Outlook ، ثم اضغط باستمرار على ملف ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة من مشروع 1 (VbaProject.OTM) لفتح الوضع ، ثم انسخ الكود التالي والصقه في الوحدة النمطية الفارغة.
كود فبا: رد على الكل بأخبار أصلية:
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. ثم انقر فوق الأدوات > مراجع حسابات في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة في الخارج المراجع - مشروع 1 مربع الحوار ، تحقق وقت تشغيل البرمجة لـ Microsoft الخيار من المراجع المتاحة مربع القائمة ، انظر لقطة الشاشة:
4. ثم احفظ وأغلق نافذة التعليمات البرمجية، وبعد ذلك يمكنك إضافة زر الماكرو إلى ملف شريط أدوات الوصول السريع.
5. افتح البريد الإلكتروني الذي تريد الرد عليه بالمرفقات الرسالة النافذة، ثم اختر المزيد من الأوامر من تخصيص شريط أدوات الوصول السريع المنسدلة ، انظر لقطة الشاشة:
6. في خيارات التوقعات في مربع الحوار ، قم بالعمليات التالية:
(1.) حدد وحدات الماكرو من اختر الأوامر من قائمة منسدلة؛
(2.) انقر فوق اسم الماكرو الذي قمت بإدراجه الآن؛
(3.) ثم انقر فوق أضف زر لإضافة الماكرو إلى تخصيص شريط أدوات الوصول السريع.
7. ثم اضغط OK لإغلاق مربع الحوار، تم الآن إدراج زر الماكرو في مربع الحوار شريط أدوات الوصول السريع، انظر لقطة الشاشة:
8. الآن، انقر فوق زر الماكرو، وسيتم فتح نافذة رسالة الرد مع المرفقات الأصلية، ثم قم بإنشاء رسالة الرد، وانقر فوق أرسل زر ، انظر لقطة الشاشة:
قم بالرد على جميع المرفقات الأصلية باستخدام Kutools for Outlook
إذا كان لديك كوتولس لتوقعات، بما لديها الرد على الكل بالمرفق خاصية الرد على جميع المرفقات بنقرة واحدة فقط.
كوتولس لتوقعات : مع أكثر من 100 وظيفة إضافية مفيدة في Outlook ، يمكنك تجربتها مجانًا دون قيود في أيام 60. |
بعد تثبيت كوتولس لتوقعات، يرجى القيام بذلك على النحو التالي:
1. حدد الرسالة التي تريد الرد عليها جميعًا بالمرفقات، ثم انقر فوق كوتولس > الرد مع إرفاق > الرد على الكل بالمرفق، انظر لقطة الشاشة:
2. ويتم فتح نافذة رسالة الرد بالمرفقات الأصلية، ثم قم بتأليف رسالتك وإرسالها، انظر لقطة الشاشة:
انقر لتنزيل Kutools for Outlook والإصدار التجريبي المجاني الآن!
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.