आउटलुक: डुप्लिकेट कैलेंडर आइटम कैसे हटाएं
कभी-कभी, जब हम अन्य उपकरणों से ईवेंट आयात करते हैं तो कुछ डुप्लिकेट कैलेंडर आइटम होते हैं। डुप्लिकेट कैलेंडर आइटम को हटाने के लिए, यह ट्यूटोरियल दो अलग-अलग तरीकों का परिचय देता है, एक डुप्लिकेट कम होने पर एक-एक करके हटाना है, दूसरा एक ही समय में सभी डुप्लिकेट को हटाने के लिए वीबीए का उपयोग करना है।
डुप्लिकेट कैलेंडर आइटम को एक-एक करके मैन्युअल रूप से हटाएं
डुप्लिकेट कैलेंडर आइटम को एक बार में हटाने के लिए VBA
- के साथ ईमेल स्वचालित करें ऑटो सीसी/बीसीसी, ऑटो फ़ॉरवर्ड नियमों के अनुसार; भेजना स्व उत्तर (कार्यालय से बाहर) एक्सचेंज सर्वर की आवश्यकता के बिना...
- जैसे अनुस्मारक प्राप्त करें बीसीसी चेतावनी जब आप बीसीसी सूची में हों तब सभी को उत्तर देते समय, और अनुलग्नक गुम होने पर याद दिलाएँ भूले हुए अनुलग्नकों के लिए...
- के साथ ईमेल दक्षता में सुधार करें उत्तर (सभी) संलग्नक के साथ, हस्ताक्षर या विषय में स्वतः अभिवादन या दिनांक और समय जोड़ें, एकाधिक ईमेल का उत्तर दें...
- के साथ ईमेलिंग को सुव्यवस्थित करें ईमेल याद करें, अनुलग्नक उपकरण (सभी को संपीड़ित करें, स्वचालित रूप से सभी को सहेजें...), डुप्लिकेट निकालें, तथा त्वरित रिपोर्ट...
डुप्लिकेट कैलेंडर आइटम को एक-एक करके मैन्युअल रूप से हटाएं
डुप्लिकेट कैलेंडर आइटमों को एक-एक करके हटाने के लिए, आपको पहले डुप्लिकेट को स्पष्ट रूप से देखने के लिए उन्हें एक विशिष्ट क्रम में सूचीबद्ध करना होगा, फिर उन्हें एक-एक करके हटाना होगा।
1. आम तौर पर, कैलेंडर एक में होता है कैलेंडर देखें, उस कैलेंडर को सक्रिय करें जिसे आप डुप्लिकेट हटाना चाहते हैं, फिर क्लिक करें देखें > दृश्य बदलो > सूची.
अब कैलेंडर को एक सूची के रूप में देखा जाने लगा है.
2. फिर एक शर्त निर्दिष्ट करें जिसका उपयोग आप तुलना करने के लिए करते हैं यदि आइटम डुप्लिकेट हैं, मान लें कि तुलना करने के लिए यदि आइटम का विषय समान है। क्लिक विषय कैलेंडर सूची में, फिर समान विषय वाली सभी वस्तुओं को एक साथ रखा जाता है।
3. अब आप आइटम पर राइट-क्लिक करके और क्लिक करके समान विषय वाले आइटम को एक-एक करके हटा सकते हैं मिटाना पॉपिंग संदर्भ मेनू से।
डुप्लिकेट कैलेंडर आइटम को एक बार में हटाने के लिए VBA
यहां कुछ वीबीए का परिचय दिया गया है जो विभिन्न मामलों में कैलेंडर फ़ोल्डर में सभी डुप्लिकेट कैलेंडर आइटम को हटा सकता है।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल बनाने के लिए, फिर नीचे दिए गए कोड को मॉड्यूल में कॉपी और पेस्ट करें।
वीबीए: एक विशिष्ट श्रेणी में सभी डुप्लिकेट कैलेंडर आइटम हटा दें
'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
Dim xStores As Stores
Dim xStore As Store
Dim xRootFolder As Folder
Dim xFolder As Object
Set xStores = Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
Set xStores = Nothing
End Sub
Sub ProcessFolders(ByVal CurrentFld As Folder)
Dim xDictionary As Object
Dim i As Long
Dim xItem As Object
Dim xKey As String
Dim xSubFld As Folder
On Error Resume Next
If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
Set xDictionary = CreateObject("Scripting.Dictionary")
For i = CurrentFld.Items.Count To 1 Step -1
Set xItem = CurrentFld.Items.Item(i)
'change categories as you need in below script
If xItem.Categories = "date" Then
'change the comparing items as you need
xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
If xDictionary.Exists(xKey) = True Then
xItem.Delete
Else
xDictionary.Add xKey, True
End If
End If
Next i
For Each xSubFld In CurrentFld.Folders
ProcessFolders xSubFld
Next
End Sub
इस वीबीए में, यह "में सभी डुप्लिकेट हटा देगा"डेटाइस श्रेणी में विषय, स्थान, निकाय और श्रेणी की तुलना करके आप उन्हें आवश्यकतानुसार बदल सकते हैं।
3. फिर दबाएं F5 कोड को चलाने के लिए कुंजी या रन पर क्लिक करें, एक संवाद मैक्रोज़ बाहर आता है, चुनें डुप्लिकेटकैलेंडर हटाएं और क्लिक करें रन .
फिर "तिथि" श्रेणी में डुप्लिकेट आइटम हटा दिए गए हैं।
वीबीए: सभी श्रेणियों में सभी डुप्लिकेट कैलेंडर आइटम हटा दें
Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
Dim xStores As Stores
Dim xStore As Store
Dim xRootFolder As Folder
Dim xFolder As Object
Set xStores = Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
Set xStores = Nothing
End Sub
Sub ProcessFolders(ByVal CurrentFld As Folder)
Dim xDictionary As Object
Dim i As Long
Dim xItem As Object
Dim xKey As String
Dim xSubFld As Folder
On Error Resume Next
If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
Set xDictionary = CreateObject("Scripting.Dictionary")
For i = CurrentFld.Items.Count To 1 Step -1
Set xItem = CurrentFld.Items.Item(i)
'change the comparing items as you need
xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
If xDictionary.Exists(xKey) = True Then
xItem.Delete
Else
xDictionary.Add xKey, True
End If
Next i
For Each xSubFld In CurrentFld.Folders
ProcessFolders xSubFld
Next
End Sub
इस कोड को चलाएँ, प्रत्येक श्रेणी में समान विषय, स्थान, निकाय, श्रेणी के सभी डुप्लिकेट हटा दिए गए हैं।
नोट: उपरोक्त वीबीए कैलेंडर फ़ोल्डर में काम करता है जिसमें सबफ़ोल्डर शामिल है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।