كيفية البحث عن موضوع الموعد واستبداله في تقويم Outlook؟
يعد البحث عن موضوع الموعد واستبداله في تقويم Outlook مفيدًا عندما تجد أن بعض الموضوعات تحتاج إلى استبدالها بنفس النصوص بشكل جماعي. أو استبدل كلمة نسخ في حقل الموضوع بعد استيراد البيانات في Outlook. تزودك هذه المقالة برمز VBA للبحث عن مواضيع مواعيد متعددة واستبدالها. الرجاء تصفح لمزيد من التفاصيل.
ابحث واستبدل موضوع الموعد برمز VBA
- أتمتة البريد الإلكتروني مع CC السيارات / BCC, إعادة توجيه تلقائي بالقواعد؛ يرسل رد آلي (خارج المكتب) دون الحاجة إلى خادم تبادل...
- احصل على تذكيرات مثل تحذير BCC عند الرد على الكل أثناء تواجدك في قائمة نسخة مخفية الوجهة، و تذكير عند فقدان المرفقات للمرفقات المنسية..
- تحسين كفاءة البريد الإلكتروني مع الرد (الكل) مع المرفقات, إضافة تحية أو التاريخ والوقت تلقائيًا إلى التوقيع أو الموضوع, الرد على رسائل البريد الإلكتروني المتعددة
- تبسيط البريد الإلكتروني مع استدعاء رسائل البريد الإلكتروني, أدوات المرفقات (ضغط الكل، حفظ الكل تلقائيًا...)، إزالة التكراراتو تقرير سريع
ابحث واستبدل موضوع الموعد برمز 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 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.