Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

 Sut i ddod o hyd i destun pwnc a'i ddisodli o fewn negeseuon neu dasgau yn Outlook?

Yn Outlook, os oes sawl pwnc neges neu mae angen disodli'ch testun penodedig â'ch testun penodedig, wrth gwrs, gallwch eu newid fesul un, ond, a oes gennych unrhyw ffordd gyflym i orffen y swydd hon ar unwaith yn Outlook?

Dewch o hyd i destun pwnc a'i ddisodli o fewn sawl neges trwy ddefnyddio cod VBA

Dewch o hyd i destun pwnc a'i ddisodli o fewn sawl tasg trwy ddefnyddio cod VBA


Dewch o hyd i destun pwnc a'i ddisodli o fewn sawl neges trwy ddefnyddio cod VBA

Dewch o hyd i'r testun penodol a rhoi un arall mewn testunau neges lluosog yn ei le, gall y cod VBA isod ffafrio chi, gwnewch y camau canlynol:

1. Dewiswch yr e-byst yr ydych am ddod o hyd iddynt a disodli'r testun pwnc, ac yna, daliwch y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored, gweler y screenshot:

Cod VBA: Darganfyddwch a disodli'r testun pwnc mewn sawl neges:

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 = Amnewid (.Subject, "kte", "Kutools for Excel"), "kte”Yw'r hen destun rydych chi am ddod o hyd iddo, a“Kutools ar gyfer Excel”Yw'r testun newydd rydych chi am ei ddisodli. Os gwelwch yn dda eu newid i'ch angen.

doc yn disodli pynciau 1

3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r testun penodol yn y pynciau neges wedi cael ei ddisodli gan y testun newydd yn ôl yr angen, gweler y screenshot:

doc yn disodli pynciau 2


Dewch o hyd i destun pwnc a'i ddisodli o fewn sawl tasg trwy ddefnyddio cod VBA

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

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

2. Yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored, gweler y screenshot:

Cod VBA: Darganfyddwch a disodli'r testun pwnc ym mhob 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 popio allan, teipiwch y testun rydych chi am ddod o hyd iddo o'r pynciau tasg, gweler y screenshot:

doc yn disodli pynciau 3

4. Cliciwch OK, ac mae blwch prydlon arall wedi'i popio allan, nodwch y testun newydd yr ydych am ei ddisodli, gweler y screenshot:

doc yn disodli pynciau 4

5. Yna cliciwch OK, ac arddangosir blwch deialog i ddweud wrthych faint o bynciau sydd wedi'u newid, gweler y screenshot:

doc yn disodli pynciau 5

6. Cliciwch OK, ac mae'r hen destunau yn y pynciau tasg wedi'u disodli gyda'r rhai newydd, gweler y screenshot:

doc yn disodli pynciau 6


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ng Chun Lee · 10 months ago
    Is there a way to change the subject line of email(s) in a folder (window level) via vba?