आउटलुक कैलेंडर में अपॉइंटमेंट विषय कैसे खोजें और बदलें?

आउटलुक कैलेंडर में अपॉइंटमेंट विषय ढूंढना और बदलना तब मददगार होता है जब आप पाते हैं कि कुछ विषयों को बड़े पैमाने पर समान पाठों से बदलने की आवश्यकता है। या आउटलुक में डेटा आयात करने के बाद विषय फ़ील्ड में कॉपी शब्द को बदलें। यह आलेख आपको अनेक नियुक्ति विषयों को खोजने और बदलने के लिए VBA कोड प्रदान करता है। कृपया अधिक जानकारी के लिए ब्राउज़ करें।

नियुक्ति विषय खोजें और उसे VBA कोड से बदलें

नियुक्ति विषय खोजें और उसे VBA कोड से बदलें

इस अनुभाग में, आप नियुक्ति विषय को निम्नानुसार खोज और VBA कोड से बदल सकते हैं।

1. सबसे पहले आपको अपने आउटलुक में मैक्रो सेटिंग्स को लो पर सेट करना होगा।

1) आउटलुक 2010 और 2013 में, क्लिक करें पट्टिका > ऑप्शंस। और इसमें आउटलुक विकल्प संवाद बॉक्स पर क्लिक करें विश्वास केंद्र बाएँ बार में, फिर क्लिक करें विश्वास केंद्र सेटिंग्स बटन.

में विश्वास केंद्र संवाद बॉक्स पर क्लिक करें मैक्रो सेटिंग्स बाएँ बार में, फिर चयन करें सभी मैक्रोज़ सक्षम करें में विकल्प मैक्रो सेटिंग्स अनुभाग। और क्लिक करें OK बटन। स्क्रीनशॉट देखें:

2). आउटलुक 2007 में, कृपया क्लिक करें टूल्स > विश्वास केंद्र. में विश्वास केंद्र संवाद बॉक्स पर क्लिक करें मैक्रो सेटिंग्स बाएँ बार में, फिर चयन करें मैक्रोज़ के लिए कोई सुरक्षा जांच नहीं विकल्प और क्लिक करें OK बटन.

2। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, का विस्तार करने के लिए डबल क्लिक करें project1 > माइक्रोसॉफ्ट आउटलुक ऑब्जेक्ट्स > यह आउटलुक सत्र VBA संपादक खोलने के लिए. स्क्रीनशॉट देखें:

4. निम्नलिखित VBA कोड को VBA संपादक में कॉपी और पेस्ट करें। और फिर दबाएँ F5 कोड चलाने की कुंजी.

वीबीए: नियुक्ति विषय ढूंढें और बदलें

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. कोड चलाने के बाद, a माइक्रोसॉफ्ट आउटलुक संवाद बॉक्स पॉप अप होता है. क्लिक करें OK बटन.

6. दूसरे में माइक्रोसॉफ्ट आउटलुक संवाद बॉक्स में, वह पाठ दर्ज करें जिसे आप बदलना चाहते हैं और फिर क्लिक करें OK बटन.

7. तीसरे में माइक्रोसॉफ्ट आउटलुक संवाद बॉक्स में, वह पाठ दर्ज करें जिसे आप बदलना चाहते हैं और क्लिक करें OK.

नोट: यदि आप निर्दिष्ट कैलेंडर में विषय से सभी "कॉपी" शब्द हटाना चाहते हैं, तो कृपया इस बॉक्स को खाली छोड़ दें।

8. क्लिक करें OK नीचे संवाद बॉक्स में बटन.

9। में फ़ोल्डर का चयन करें संवाद बॉक्स में, निर्दिष्ट ईमेल खाते के अंतर्गत अपना कैलेंडर चुनें और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:

10. फिर एक डायलॉग बॉक्स पॉप अप होगा जो आपको सूचित करेगा कि प्रतिस्थापन सफल है। कृपया क्लिक करें OK बटन.

11. और फिर आपके चयनित कैलेंडर के विषयों के सभी पाठों को नई सामग्री से बदल दिया गया है।

---

सर्वोत्तम कार्यालय उत्पादकता उपकरण

आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ

🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...

📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध)  /  ईमेल भेजने का शेड्यूल करें  /  ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी  /  स्वतः अग्रेषित (उन्नत नियम)   /  स्वतः ग्रीटिंग जोड़ें   /  बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...

📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें  /  विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें  /  डुप्लिकेट ईमेल हटाएँ  /  उन्नत खोज  /  फ़ोल्डरों को समेकित करें ...

📁 अनुलग्नक प्रो: बैच सहेजें  /  बैच अलग करना  /  बैच संपीड़न  /  ऑटो सहेजें   /  ऑटो डिटैच  /  ऑटो कंप्रेस ...

🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी   /  टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ  /  आउटलुक को बंद करने के बजाय छोटा करें ...

???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें  /   फ़िशिंग-रोधी ईमेल  /  🕘प्रेषक का समय क्षेत्र दिखाएं ...

👩🏼‍🤝‍👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें  /  किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें  /  जन्मदिन अनुस्मारक हटाएँ ...

के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।

विस्तार में पढ़ें       मुफ्त डाउनलोड      खरीद फरोख्त