كيفية الرد على الكل بالمرفقات الأصلية في 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
إذا كان لديك كوتولس لتوقعات، بما لديها الرد على الكل بالمرفق خاصية الرد على جميع المرفقات بنقرة واحدة فقط.
احصل على أقصى كفاءة للبريد الإلكتروني مع Kutools for Outlook! 70 ميزات قوية مجانية تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!
بعد تثبيت كوتولس لتوقعات، يرجى القيام بذلك على النحو التالي:
1. حدد الرسالة التي تريد الرد عليها جميعًا بالمرفقات، ثم انقر فوق كوتولس > الرد على الكل بالمرفق الأصلي، انظر لقطة الشاشة:
2. ويتم فتح نافذة رسالة الرد بالمرفقات الأصلية، ثم قم بتأليف رسالتك وإرسالها، انظر لقطة الشاشة:
انقر لتنزيل نسخة مجانية من Kutools لبرنامج Outlook الآن!
أفضل أدوات إنتاجية المكتب
أخبار عاجلة: Kutools for Outlook يطلق نسخة مجانية!
استمتع بتجربة الإصدار المجاني الجديد تمامًا من Kutools for Outlook مع أكثر من 70 ميزة مذهلة، يمكنك استخدامها إلى الأبد! انقر للتنزيل الآن!
🤖 كوتولس منظمة العفو الدولية : يستخدم تقنية الذكاء الاصطناعي المتقدمة للتعامل مع رسائل البريد الإلكتروني دون عناء، بما في ذلك الرد على رسائل البريد الإلكتروني وتلخيصها وتحسينها وتوسيعها وترجمتها وإنشاءها.
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الإلكتروني المهمة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
استخدم Kutools باللغة المفضلة لديك - يدعم اللغة الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من 40 لغة أخرى!
افتح Kutools for Outlook فورًا بنقرة واحدة. لا تنتظر، حمل الآن وعزز كفاءتك!
