Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā atrast un aizstāt tēmas tekstu ziņojumos vai uzdevumos programmā Outlook?

Protams, programmā Outlook, ja ir vairāki ziņu priekšmeti vai uzdevumu jomas, jāaizstāj ar norādīto tekstu, protams, tos var mainīt pa vienam, bet vai jums ir ātrs veids, kā vienlaikus pabeigt šo darbu programmā Outlook?

Atrodiet un nomainiet teksta tekstu vairākās ziņās, izmantojot VBA kodu

Atrodiet un nomainiet priekšmetu tekstu vairākos uzdevumos, izmantojot VBA kodu


Atrodiet un nomainiet teksta tekstu vairākās ziņās, izmantojot VBA kodu

Atrodiet konkrētu tekstu un nomainiet to ar citu vairākās ziņu tēmās, zemāk redzamais VBA kods var jums palīdzēt, lūdzu, veiciet šādas darbības:

1. Izvēlieties e-pasta ziņojumus, kurus vēlaties atrast, un aizvietojiet tēmas tekstu, pēc tam turiet nospiestu ALT + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Pēc tam noklikšķiniet uz ielaidums > Moduļi, kopējiet un ielīmējiet zemāk kodu atvērtajā tukšajā modulī, skatiet ekrānuzņēmumu:

VBA kods: atrodiet un aizvietojiet tēmas tekstu vairākos ziņojumos:

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

Piezīmes: Iepriekš minētajā kodā: xNewSubject = Aizstāt (. Subjekts, "kte", "Kutools for Excel")"KTE"Ir vecais teksts, kuru vēlaties atrast, un"Kutools Excel"Ir jauns teksts, kuru vēlaties aizstāt ar. Lūdzu, mainiet to pēc vajadzības.

doc aizstāt tēmas 1

3. Tad nospiediet F5 taustiņš, lai palaistu šo kodu, un konkrētais teksts ziņojuma tēmās tika aizstāts ar jauno tekstu, kā jums nepieciešams, skatiet ekrānuzņēmumu:

doc aizstāt tēmas 2


Atrodiet un nomainiet priekšmetu tekstu vairākos uzdevumos, izmantojot VBA kodu

Ja jums ir nepieciešams atrast un aizvietot tēmu tekstu uzdevumos, var arī jums palīdzēt šāds VBA kods.

1. Turiet nospiestu ALT + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Pēc tam noklikšķiniet uz ielaidums > Moduļi, kopējiet un ielīmējiet zemāk kodu atvērtajā tukšajā modulī, skatiet ekrānuzņēmumu:

VBA kods: atrodiet un aizvietojiet tēmas tekstu visos uzdevumos:

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. Tad nospiediet F5 lai izpildītu šo kodu, un tiek parādīts uznirstošais lodziņš, lūdzu, ierakstiet tekstu, kuru vēlaties atrast no uzdevuma subjektiem, skatiet ekrānuzņēmumu:

doc aizstāt tēmas 3

4. Noklikšķiniet OK, un tiek parādīta vēl viena ātrā lauciņa, lūdzu, ievadiet jauno tekstu, kuru vēlaties aizstāt, skatiet ekrānuzņēmumu:

doc aizstāt tēmas 4

5. Pēc tam noklikšķiniet uz OK, un tiek parādīts dialoglodziņš, lai pateiktu, cik daudz priekšmetu ir mainīts, skatīt ekrānuzņēmumu:

doc aizstāt tēmas 5

6. Noklikšķiniet OK, un vecie teksti uzdevumu priekšmetos tika aizstāti ar jaunajiem, sk. ekrānuzņēmumu:

doc aizstāt tēmas 6



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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.