आउटलुक में संदेशों या कार्यों के भीतर विषय पाठ को कैसे ढूंढें और बदलें?
आउटलुक में, यदि कई संदेश विषय हैं या कार्य विषयों को आपके निर्दिष्ट पाठ से बदलने की आवश्यकता है, तो निश्चित रूप से, आप उन्हें एक-एक करके बदल सकते हैं, लेकिन, क्या आपके पास आउटलुक में इस कार्य को एक बार में पूरा करने का कोई त्वरित तरीका है?
वीबीए कोड का उपयोग करके एकाधिक संदेशों के भीतर विषय पाठ ढूंढें और बदलें
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 = बदलें(.विषय, "kte", "एक्सेल के लिए कुटूल"), "KTE"वह पुराना पाठ है जिसे आप ढूंढना चाहते हैं, और"एक्सेल के लिए कुटूल” वह नया टेक्स्ट है जिसे आप बदलना चाहते हैं। कृपया उन्हें अपनी आवश्यकता के अनुसार बदलें।
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और संदेश विषयों में विशिष्ट पाठ को आपकी आवश्यकता के अनुसार नए पाठ से बदल दिया गया है, स्क्रीनशॉट देखें:
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 इस कोड को निष्पादित करने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स पॉप आउट हो जाता है, कृपया वह टेक्स्ट टाइप करें जिसे आप कार्य विषयों से ढूंढना चाहते हैं, स्क्रीनशॉट देखें:
4। क्लिक करें OK, और एक अन्य प्रॉम्प्ट बॉक्स पॉप आउट हो गया है, कृपया वह नया टेक्स्ट दर्ज करें जिसे आप बदलना चाहते हैं, स्क्रीनशॉट देखें:
5. तब क्लिक करो OK, और एक संवाद बॉक्स प्रदर्शित होता है जो आपको बताता है कि कितने विषय बदले गए हैं, स्क्रीनशॉट देखें:
6। क्लिक करें OK, और कार्य विषयों में पुराने पाठ को नए पाठ से बदल दिया गया है, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ
🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...
📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध) / ईमेल भेजने का शेड्यूल करें / ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी / स्वतः अग्रेषित (उन्नत नियम) / स्वतः ग्रीटिंग जोड़ें / बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...
📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें / विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें / डुप्लिकेट ईमेल हटाएँ / उन्नत खोज / फ़ोल्डरों को समेकित करें ...
📁 अनुलग्नक प्रो: बैच सहेजें / बैच अलग करना / बैच संपीड़न / ऑटो सहेजें / ऑटो डिटैच / ऑटो कंप्रेस ...
🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी / टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ / आउटलुक को बंद करने के बजाय छोटा करें ...
???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें / फ़िशिंग-रोधी ईमेल / 🕘प्रेषक का समय क्षेत्र दिखाएं ...
👩🏼🤝👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें / किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें / जन्मदिन अनुस्मारक हटाएँ ...
के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।