Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i ddarganfod a disodli testun pwnc o fewn negeseuon neu dasgau yn Outlook?

Yn Outlook, os oes angen ailosod eich testun penodedig ar bynciau lluosog neu bynciau tasg, wrth gwrs, gallwch eu newid un wrth un, ond a oes gennych chi unrhyw ffordd gyflym o orffen y swydd hon ar unwaith yn Outlook?

Darganfyddwch a disodli'r testun pwnc o fewn nifer o negeseuon trwy ddefnyddio cod VBA

Darganfyddwch a disodli'r testun pwnc o fewn tasgau lluosog trwy ddefnyddio cod VBA


Darganfyddwch a disodli'r testun pwnc o fewn nifer o negeseuon trwy ddefnyddio cod VBA

Dod o hyd i'r testun penodol a rhoi pwrs arall mewn sawl neges yn ei le, gall y cod VBA isod wneud o blaid, gwnewch yn siŵr bod y camau canlynol yn dilyn:

1. Dewiswch y negeseuon e-bost yr hoffech eu darganfod a disodli'r testun pwnc, ac yna, dalwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd, gweler y sgrin:

Cod VBA: Darganfyddwch a disodli'r testun pwnc o fewn nifer o negeseuon:

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

Nodyn: Yn y cod uchod: xNewSubject = Replace (.Subject, "kte", "Kutools for Excel"), "kte"Yw'r hen destun rydych chi am ei ddarganfod, ac"Kutools ar gyfer Excel"Yw'r testun newydd yr hoffech ei ddisodli. Newidwch nhw i'ch angen.

doc yn lle'r pynciau 1

3. Yna, pwyswch F5 allweddol i redeg y cod hwn, ac mae'r testun penodol yn y testun wedi ei ddisodli gan y testun newydd fel y mae ei angen arnoch, gweler y sgrin:

doc yn lle'r pynciau 2


Darganfyddwch a disodli'r testun pwnc o fewn tasgau lluosog trwy ddefnyddio cod VBA

Os oes angen i chi ddod o hyd i destun y testun pwnc a'i ddisodli mewn tasgau, gall y cod VBA canlynol hefyd eich helpu chi.

1. Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd, gweler y sgrin:

Cod VBA: Darganfyddwch a disodli'r testun pwnc o fewn pob tasg:

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. Yna, pwyswch F5 allwedd i weithredu'r cod hwn, ac mae blwch prydlon wedi'i datgelu, teipiwch y testun yr ydych am ei ddarganfod o'r pynciau tasg, gweler y sgrin:

doc yn lle'r pynciau 3

4. Cliciwch OK, ac mae blwch prydlon arall wedi'i datgelu, rhowch y testun newydd yr ydych am ei roi yn ei le, gweler y sgrin:

doc yn lle'r pynciau 4

5. Yna cliciwch OK, a dangosir blwch deialog i ddweud wrthych faint o bynciau sydd wedi'u newid, gweler y sgrin:

doc yn lle'r pynciau 5

6. Cliciwch OK, ac mae'r hen destunau yn y pynciau tasg wedi cael eu disodli gan y rhai newydd, gweler y sgrin:

doc yn lle'r pynciau 6



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

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.