Hogyan lehet megtalálni és kicserélni a tárgy szövegét az Outlook üzeneteiben vagy feladataiban?
Az Outlook alkalmazásban, ha több üzenettárgy van, vagy a feladat alanyait ki kell cserélni a megadott szövegre, akkor természetesen egyenként is megváltoztathatja őket, de van-e gyors módja ennek a feladatnak az Outlookban történő egyszeri befejezésére?
Keresse meg és cserélje le a tárgy szövegét több üzenetben a VBA kód használatával
A VBA kód használatával keresse meg és cserélje le a tantárgy szövegét több feladatban
Keresse meg és cserélje le a tárgy szövegét több üzenetben a VBA kód használatával
Keresse meg a konkrét szöveget, és cserélje ki egy másikra több üzenet tárgyában, az alábbi VBA-kód jót tehet Önnek, kérjük, tegye a következőket:
1. Válassza ki a keresni kívánt e-maileket, és cserélje le a tárgy szövegét, majd tartsa lenyomva a gombot ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattints a gombra betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba, lásd a képernyőképet:
VBA kód: Keresse meg és cserélje le a tárgy szövegét több üzenetben:
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
Megjegyzések: A fenti kódban: xNewSubject = Csere(.Subject, "kte", "Kutools for Excel"), "kte”A megtalálni kívánt régi szöveg, ésKutools az Excel számára”Az az új szöveg, amelyre cserélni kívánja. Kérjük, változtassa meg őket az Ön igényeinek megfelelően.
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és az üzenet tárgyainak konkrét szövege az új szövegre cserélődött, amire szüksége van, lásd a képernyőképet:
A VBA kód használatával keresse meg és cserélje le a tantárgy szövegét több feladatban
Ha meg kell találnia és ki kell cserélnie a tantárgy szövegét a feladatokban, akkor a következő VBA-kód is segítségére lehet.
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattints a gombra betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba, lásd a képernyőképet:
VBA kód: Keresse meg és cserélje le a tárgy szövegét az összes feladatban:
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. Ezután nyomja meg a gombot F5 kulcs a kód végrehajtásához, és megjelenik egy prompt doboz, írja be a kívánt szöveget a feladat alanyaiból, lásd a képernyőképet:
4. Kattints OK, és egy újabb prompt doboz jelenik meg, kérjük, írja be az új szöveget, amelyet cserélni szeretne, lásd a képernyőképet:
5. Ezután kattintson OK, és megjelenik egy párbeszédpanel, amely megmondja, hány témát módosítottak, lásd a képernyőképet:
6. Kattints OK, és a feladattárgyak régi szövegeit lecserélték az újakra, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.