Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip rasti ir pakeisti teksto temą per "Outlook" pranešimus ar užduotis?

Žinoma, programoje "Outlook", jei yra keletas žinučių dalykų arba užduočių dalykų, reikia pakeisti jų nurodytu tekstu, žinoma, galite juos keisti po vieną, bet ar greitai galite užbaigti šį darbą vienu metu "Outlook"?

Suraskite ir pakeiskite teksto tekstą keliuose pranešimuose naudodami VBA kodą

Suraskite ir pakeiskite teksto tekstą keliomis užduotimis naudodami VBA kodą


Suraskite ir pakeiskite teksto tekstą keliuose pranešimuose naudodami VBA kodą

Raskite konkretų tekstą ir pakeiskite jį kita daugelyje pranešimų temų, žemiau VBA kodas gali padėti jums, atlikite šiuos veiksmus:

1. Pasirinkite el. Laiškus, kuriuos norite rasti, ir pakeiskite temos tekstą, tada laikykite nuspaudę ALT + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

2. Tada spustelėkite įsiuvas > Moduliai, nukopijuokite žemiau esantį kodą į atidarytą tuščią modulį, žr. ekrano kopiją:

VBA kodas: raskite ir pakeiskite temos tekstą keliuose pranešimuose:

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

pastabos: Pirmiau nurodytu kodu: xNewSubject = Pakeisti (. Subjektas, "kte", "Kutools for Excel")"KTE"Yra senas tekstas, kurį norite rasti, ir"Kutools for Excel"Yra naujas tekstas, kurį norite pakeisti. Prašome jas pakeisti pagal savo poreikius.

doc pakeiskite dalykus 1

3. Tada paspauskite F5 raktas, norint paleisti šį kodą, o konkretus tekstas žinučių temomis buvo pakeistas nauju tekstu, kaip jums reikia, žr. ekrano kopiją:

doc pakeiskite dalykus 2


Suraskite ir pakeiskite teksto tekstą keliomis užduotimis naudodami VBA kodą

Jei jums reikia rasti ir pakeisti dalyko tekstą užduotims, taip pat gali jums padėti ir kitas VBA kodas.

1. Laikykite nuspaudę ALT + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

2. Tada spustelėkite įsiuvas > Moduliai, nukopijuokite žemiau esantį kodą į atidarytą tuščią modulį, žr. ekrano kopiją:

VBA kodas: raskite ir pakeiskite temos tekstą visoms užduotims:

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. Tada paspauskite F5 raktas, norint paleisti šį kodą ir pasirodys greito langelio laukelis, prašome įvesti tekstą, kurį norite rasti iš užduoties subjektų, žr. ekrano kopiją:

doc pakeiskite dalykus 3

4, Spauskite OK, ir pasirodys kitas greitas langelis, įveskite naują tekstą, kurį norite pakeisti, žr. ekrano kopiją:

doc pakeiskite dalykus 4

5. Tada spustelėkite OK, ir rodomas dialogo langas, kuriame nurodoma, kiek dalykų buvo pakeista, žr. ekrano kopiją:

doc pakeiskite dalykus 5

6, Spauskite OK, o seni darbai uždavinių srityse buvo pakeisti naujais, žr. ekrano kopiją:

doc pakeiskite dalykus 6



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.