Kuinka etsiä ja korvata aiheteksti viesteistä tai tehtävistä Outlookissa?
Jos Outlookissa on useita viestien aiheita tai tehtävien aiheet on korvattava määrittämälläsi tekstillä, voit tietysti muuttaa niitä yksitellen, mutta onko sinulla nopeaa tapaa lopettaa tämä työ kerralla Outlookissa?
Etsi ja korvaa aiheteksti useista viesteistä VBA-koodin avulla
Etsi ja korvaa aiheteksti useissa tehtävissä VBA-koodin avulla
Etsi ja korvaa aiheteksti useista viesteistä VBA-koodin avulla
Etsi tietty teksti ja korvaa se toisella useissa viestin aiheissa. Alla oleva VBA-koodi voi tehdä sinulle palveluksen, toimi seuraavasti:
1. Valitse sähköpostit, jotka haluat etsiä ja korvaa aiheteksti, ja pidä sitten "ALT + F11" -näppäimiä painettuna avataksesi "Microsoft Visual Basic for Applications" -ikkunan.
2. Napsauta sitten "Lisää" > "Moduuli", kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin, katso kuvakaappaus:
VBA-koodi: Etsi ja korvaa aiheteksti useista viesteistä:
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
Huomautuksia: Yllä olevassa koodissa: xNewSubject = Replace(.Subject, "kte", "Kutools for Excel"), "kte" on vanha teksti, jonka haluat löytää, ja "Kutools for Excel" on uusi teksti, jolla haluat korvata. Muuta ne tarpeidesi mukaan.
3. Paina sitten "F5"-näppäintä suorittaaksesi tämän koodin, ja viestien aiheissa oleva teksti on korvattu uudella tekstillä tarpeen mukaan, katso kuvakaappaus:
Etsi ja korvaa aiheteksti useissa tehtävissä VBA-koodin avulla
Jos sinun on löydettävä ja korvattava aiheteksti tehtävistä, seuraava VBA-koodi voi myös auttaa sinua.
1. Pidä "ALT + F11" -näppäimiä painettuna avataksesi "Microsoft Visual Basic for Applications" -ikkunan.
2. Napsauta sitten "Lisää" > "Moduuli", kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin, katso kuvakaappaus:
VBA-koodi: Etsi ja korvaa aiheteksti kaikissa tehtävissä:
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. Paina sitten "F5"-näppäintä suorittaaksesi tämän koodin, ja kehoteruutu ponnahtaa esiin. Kirjoita teksti, jonka haluat löytää tehtävän aiheista, katso kuvakaappaus:
4. Napsauta "OK" ja toinen kehoteruutu ponnahtaa esiin. Kirjoita uusi teksti, jolla haluat korvata, katso kuvakaappaus:
5. Napsauta sitten "OK" ja näyttöön tulee valintaikkuna, joka kertoo kuinka monta aihetta on muutettu, katso kuvakaappaus:
6. Napsauta "OK" ja tehtäväaiheiden vanhat tekstit on korvattu uusilla, katso kuvakaappaus:
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
