كيفية البحث عن نص الموضوع واستبداله داخل الرسائل أو المهام في Outlook؟

في Outlook ، إذا كان هناك العديد من موضوعات الرسائل أو مواضيع المهام التي تحتاج إلى استبدالها بالنص المحدد ، فبالطبع يمكنك تغييرها واحدة تلو الأخرى ، ولكن هل لديك أي طريقة سريعة لإنهاء هذه المهمة مرة واحدة في Outlook؟

ابحث عن نص الموضوع واستبدله في رسائل متعددة باستخدام التعليمات البرمجية لـ VBA

ابحث عن نص الموضوع واستبدله في مهام متعددة باستخدام التعليمات البرمجية لـ VBA

ابحث عن نص الموضوع واستبدله في رسائل متعددة باستخدام التعليمات البرمجية لـ VBA

ابحث عن النص المحدد واستبدله بآخر في مواضيع رسائل متعددة ، يمكن أن يقدم لك رمز VBA أدناه معروفًا ، يرجى اتباع الخطوات التالية:

1. حدد رسائل البريد الإلكتروني التي تريد البحث عنها واستبدال نص الموضوع، ثم اضغط باستمرار على مفتاحي "ALT + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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 = Replace(.Subject, "kte", "Kutools for Excel")، "kte" هو النص القديم الذي تريد البحث عنه، و"Kutools for Excel" هو النص الجديد الذي تريد استبداله. يُرجى تغييرهما بما يتناسب مع احتياجاتك.

3. ثم اضغط على مفتاح "F5" لتشغيل هذا الكود، وسيتم استبدال النص المحدد في مواضيع الرسالة بالنص الجديد حسب الحاجة، انظر لقطة الشاشة:

ابحث عن نص الموضوع واستبدله في مهام متعددة باستخدام التعليمات البرمجية لـ VBA

إذا كنت بحاجة إلى البحث عن نص الموضوع واستبداله في المهام ، فيمكن أن يساعدك رمز VBA التالي أيضًا.

1. اضغط باستمرار على مفتاحي "ALT + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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. انقر فوق "موافق"، وسيظهر مربع مطالبة آخر، يُرجى إدخال النص الجديد الذي تريد استبداله، انظر لقطة الشاشة:

5. ثم انقر فوق "موافق"، وسيظهر مربع حوار يخبرك بعدد الموضوعات التي تم تغييرها، انظر لقطة الشاشة:

6. انقر فوق "موافق"، وسيتم استبدال النصوص القديمة في مواضيع المهمة بالنصوص الجديدة، انظر لقطة الشاشة:

---

أفضل أدوات إنتاجية المكتب

أخبار عاجلة: Kutools for Outlook يطلق نسخة مجانية!

استمتع بتجربة الإصدار المجاني الجديد تمامًا من Kutools for Outlook مع أكثر من 70 ميزة مذهلة، يمكنك استخدامها إلى الأبد! انقر للتنزيل الآن!

🤖 كوتولس منظمة العفو الدولية : يستخدم تقنية الذكاء الاصطناعي المتقدمة للتعامل مع رسائل البريد الإلكتروني دون عناء، بما في ذلك الرد على رسائل البريد الإلكتروني وتلخيصها وتحسينها وتوسيعها وترجمتها وإنشاءها.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات برو: حفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  تذكيرك عند وصول رسائل البريد الإلكتروني المهمة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

افتح Kutools for Outlook فورًا بنقرة واحدة. لا تنتظر، حمل الآن وعزز كفاءتك!

قائمة ميزات Kutools لبرنامج Outlook      تحميل نسخة مجانية      الترقية إلى الاحترافية