Note: The other languages of the website are Google-translated. Back to English

 Kako najti in zamenjati besedilo teme v sporočilih ali opravilih v Outlooku?

Če je v Outlooku več predmetov sporočil ali je treba predmete opravil nadomestiti z določenim besedilom, jih lahko seveda spreminjate enega za drugim, vendar, ali imate v Outlooku to opravilo naenkrat dokončati naenkrat?

Poiščite in zamenjajte besedilo teme v več sporočilih s pomočjo kode VBA

Poiščite in zamenjajte besedilo teme v več nalogah s pomočjo kode VBA


Poiščite in zamenjajte besedilo teme v več sporočilih s pomočjo kode VBA

Poiščite določeno besedilo in ga zamenjajte z drugim v več temah sporočil, spodnja koda VBA vam lahko stori uslugo, naredite naslednje:

1. Izberite e-poštna sporočila, ki jih želite najti in nadomestiti besedilo predmeta, nato pa pridržite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: Poiščite in zamenjajte besedilo teme v več sporočilih:

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

Opombe: V zgornji kodi: xNewSubject = Zamenjaj (.Subject, "kte", "Kutools for Excel")"kte"Je staro besedilo, ki ga želite najti, in"Kutools za Excel"Je novo besedilo, ki ga želite zamenjati. Prosimo, spremenite jih glede na vaše potrebe.

doc nadomesti predmete 1

3. Nato pritisnite F5 tipko za zagon te kode in določeno besedilo v temah sporočila je bilo nadomeščeno z novim besedilom, kot ga potrebujete, glejte posnetek zaslona:

doc nadomesti predmete 2


Poiščite in zamenjajte besedilo teme v več nalogah s pomočjo kode VBA

Če morate pri opravilih najti in zamenjati besedilo predmeta, vam lahko pomaga tudi naslednja koda VBA.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: Poiščite in zamenjajte besedilo predmeta v vseh nalogah:

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. Nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, vnesite besedilo, ki ga želite najti med predmeti opravila, glejte sliko zaslona:

doc nadomesti predmete 3

4. Kliknite OK, in drugo okno za poziv se odpre, vnesite novo besedilo, ki ga želite zamenjati, glejte sliko zaslona:

doc nadomesti predmete 4

5. Nato kliknite OK, in prikaže se pogovorno okno, ki vam pove, koliko predmetov je bilo spremenjenih, glejte posnetek zaslona:

doc nadomesti predmete 5

6. Kliknite OK, stara besedila v nalogah pa so bila zamenjana z novimi, glejte posnetek zaslona:

doc nadomesti predmete 6


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (1)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način za spremembo vrstice z zadevo e-pošte v mapi (na ravni okna) prek vba?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije