كيفية البحث عن نص الموضوع واستبداله داخل الرسائل أو المهام في Outlook؟
في Outlook ، إذا كان هناك العديد من موضوعات الرسائل أو مواضيع المهام التي تحتاج إلى استبدالها بالنص المحدد ، فبالطبع يمكنك تغييرها واحدة تلو الأخرى ، ولكن هل لديك أي طريقة سريعة لإنهاء هذه المهمة مرة واحدة في Outlook؟
ابحث عن نص الموضوع واستبدله في رسائل متعددة باستخدام التعليمات البرمجية لـ VBA
ابحث عن نص الموضوع واستبدله في مهام متعددة باستخدام التعليمات البرمجية لـ VBA
ابحث عن نص الموضوع واستبدله في رسائل متعددة باستخدام التعليمات البرمجية لـ VBA
ابحث عن النص المحدد واستبدله بآخر في مواضيع رسائل متعددة ، يمكن أن يقدم لك رمز VBA أدناه معروفًا ، يرجى اتباع الخطوات التالية:
1. حدد رسائل البريد الإلكتروني التي تريد البحث عنها واستبدال نص الموضوع ، ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم اضغط إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة ، انظر لقطة الشاشة:
كود فبا: ابحث عن نص الموضوع واستبدله في رسائل متعددة:
Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
Set xItem = xExplorer.Selection.Item(i)
If xItem.Class = olMail Then
Set xMailItem = xItem
With xMailItem
xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
.Subject = xNewSubject
.Save
End With
End If
Next
End Sub
ملاحظات: في الكود أعلاه: xNewSubject = استبدال (.Subject ، "kte" ، "Kutools for Excel")"kte"هو النص القديم الذي تريد البحث عنه ، و"كوتولس ل إكسيل"هو النص الجديد الذي تريد استبداله به. يرجى تغييرها حسب حاجتك.
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم استبدال النص المحدد في مواضيع الرسالة بالنص الجديد حسب حاجتك ، انظر لقطة الشاشة:
ابحث عن نص الموضوع واستبدله في مهام متعددة باستخدام التعليمات البرمجية لـ VBA
إذا كنت بحاجة إلى البحث عن نص الموضوع واستبداله في المهام ، فيمكن أن يساعدك رمز VBA التالي أيضًا.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم اضغط إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة ، انظر لقطة الشاشة:
كود فبا: ابحث عن نص الموضوع واستبدله في جميع المهام:
Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
Set xNavFolder = xGroup.NavigationFolders.Item(i)
For k = xNavFolder.Folder.Items.Count To 1 Step -1
Set xTaskItem = xNavFolder.Folder.Items(k)
If InStr(xTaskItem.Subject, xFindStr) > 0 Then
xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
xTaskItem.Save
xTotalCount = xTotalCount + 1
End If
Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، وانبثق مربع موجه ، يرجى كتابة النص الذي تريد العثور عليه من مواضيع المهمة ، انظر لقطة الشاشة:
4. انقر OK، وانبثق مربع مطالبة آخر ، يرجى إدخال النص الجديد الذي تريد استبداله ، انظر لقطة الشاشة:
5. ثم اضغط OK، ويتم عرض مربع حوار لإخبارك بعدد الموضوعات التي تم تغييرها ، انظر لقطة الشاشة:
6. انقر OK، وتم استبدال النصوص القديمة في مواضيع المهام بالنصوص الجديدة ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.