انتقل إلى المحتوى الرئيسي

 كيفية البحث عن نص الموضوع واستبداله داخل الرسائل أو المهام في 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"هو النص القديم الذي تريد البحث عنه ، و"كوتولس ل إكسيل"هو النص الجديد الذي تريد استبداله به. يرجى تغييرها حسب حاجتك.

doc استبدال الموضوعات 1

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

doc استبدال الموضوعات 2


ابحث عن نص الموضوع واستبدله في مهام متعددة باستخدام التعليمات البرمجية لـ 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 مفتاح لتنفيذ هذا الرمز ، وانبثق مربع موجه ، يرجى كتابة النص الذي تريد العثور عليه من مواضيع المهمة ، انظر لقطة الشاشة:

doc استبدال الموضوعات 3

4. انقر OK، وانبثق مربع مطالبة آخر ، يرجى إدخال النص الجديد الذي تريد استبداله ، انظر لقطة الشاشة:

doc استبدال الموضوعات 4

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

doc استبدال الموضوعات 5

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

doc استبدال الموضوعات 6


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

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

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

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

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

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

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hallo,
beide Funktionen sind echt super.
Bin aber auch auf der Suche nach einer Lösung wo ich den Betreff mehrerer Mails ändern kann, genau wie hier bei den Aufgaben.

Ich möchte den Text in den Betreffzeilen kürzen und verwende hierzu z.B. bei München nur ein M
Mails also markieren, suche München im Betreff und ändere München in "M".
Kann mir jemand helfen?
This comment was minimized by the moderator on the site
Hello, Bördi
To find and replace the text of subject in emails, you just need to apply the first VBA code of this article.
Please select the emails first, and then apply the below code:
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, "Munich", "M")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is there a way to change the subject line of email(s) in a folder (window level) via vba?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations