كيفية البحث عن موضوع الموعد واستبداله في تقويم Outlook؟

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

ابحث واستبدل موضوع الموعد برمز VBA

ابحث واستبدل موضوع الموعد برمز VBA

في هذا القسم ، يمكنك البحث عن موضوع الموعد واستبداله برمز VBA كما يلي.

1. تحتاج أولاً إلى ضبط إعدادات الماكرو على مستوى منخفض في Outlook الخاص بك.

1) في Outlook 2010 و 2013 ، انقر فوق قم بتقديم > مزيد من الخيارات. وفي خيارات التوقعات مربع الحوار، انقر فوق مركز التوثيق في الشريط الأيمن ، ثم انقر فوق إعدادات مركز التوثيق .

في مجلة مركز التوثيق مربع الحوار، انقر فوق إعدادات الماكرو في الشريط الأيمن ، ثم حدد تمكين كافة وحدات الماكرو الخيار في إعدادات الماكرو الجزء. وانقر فوق OK زر. انظر لقطة الشاشة:

2). في Outlook 2007 ، الرجاء النقر فوق الأدوات > مركز التوثيق. في مركز التوثيق مربع الحوار، انقر فوق إعدادات الماكرو في الشريط الأيمن ، ثم حدد لا يوجد فحص أمني لوحدات الماكرو الخيار وانقر فوق OK .

2. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر نقرًا مزدوجًا لتوسيع ملف project1 > كائنات Microsoft Outlook > هذه الجلسة لفتح محرر VBA. انظر لقطة الشاشة:

4. انسخ والصق كود فبا التالي في محرر فبا. ثم اضغط على F5 مفتاح لتشغيل الكود.

VBA: ابحث عن موضوع الموعد واستبدله

Sub FindReplaceAppointment()
	Dim oApp As Outlook.Application
	Dim oCalFolder As Outlook.MAPIFolder
	Dim oAppt As Outlook.AppointmentItem
	Dim sOldText As String
	Dim sNewText As String
	Dim iCalChangedCount As Integer
	Set oApp = Outlook.Application
	MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
	sOldText = InputBox("What is the text string that you would like to replace?")
	sNewText = InputBox("With what would you like to replace it?")
	' Check to be sure a Calendar folder was selected
	Do
	If Not (oCalFolder Is Nothing) Then
		If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
	End If
	MsgBox ("Please select a calendar folder from the following list.")
	Set oCalFolder = Application.Session.PickFolder
	On Error GoTo ErrHandler:
Loop Until oCalFolder.DefaultItemType = olAppointmentItem
' Loop through appointments in calendar, change text where necessary, keep count
iCalChangedCount = 0
For Each oAppt In oCalFolder.Items
	If InStr(oAppt.Subject, sOldText) <> 0 Then
		Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
		oAppt.Subject    = Replace(oAppt.Subject, sOldText, sNewText)
		oAppt.Save
		iCalChangedCount = iCalChangedCount + 1
	End If
Next
' Display results and clear table
MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
Set oAppt = Nothing
Set oCalFolder = Nothing
Exit Sub
	ErrHandler:
	MsgBox ("Macro terminated.")
End Sub

5. بعد تشغيل الكود ، أ مايكروسوفت أوتلوك ينبثق مربع الحوار. انقر على OK .

6. في الثانية مايكروسوفت أوتلوك في مربع الحوار ، أدخل النص الذي ترغب في استبداله ، ثم انقر فوق OK .

7. في الثالث مايكروسوفت أوتلوك في مربع الحوار ، أدخل النص الذي ترغب في استبداله ، وانقر OK.

ملاحظات: إذا كنت تريد فقط إزالة جميع كلمات "نسخ" من الموضوع في التقويم المحدد ، فالرجاء ترك هذا المربع فارغًا.

8. انقر فوق OK زر في مربع الحوار أدناه.

9. في ال حدد المجلد ، حدد التقويم الخاص بك ضمن حساب البريد الإلكتروني المحدد ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

10. ثم سيظهر مربع حوار لإعلامك بنجاح الاستبدال. الرجاء الضغط على OK .

11. وبعد ذلك تم استبدال جميع النصوص الموجودة في الموضوعات الخاصة بك في التقويم المحدد بالمحتوى الجديد.

---

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

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

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

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

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

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

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

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

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

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

تفاصيل أكثر       تحميل مجانا      شراء