Salt la conținutul principal

 Cum să găsiți și să înlocuiți textul subiectului în cadrul mesajelor sau sarcinilor din Outlook?

În Outlook, dacă există mai multe subiecte ale mesajului sau subiectele sarcinii trebuie înlocuite cu textul specificat, desigur, le puteți schimba unul câte unul, dar aveți vreo modalitate rapidă de a termina această lucrare simultan în Outlook?

Găsiți și înlocuiți textul subiectului în mai multe mesaje utilizând codul VBA

Găsiți și înlocuiți textul subiectului în cadrul mai multor sarcini utilizând codul VBA


Găsiți și înlocuiți textul subiectului în mai multe mesaje utilizând codul VBA

Găsiți textul specific și înlocuiți-l cu altul în mai multe subiecte ale mesajului, codul VBA de mai jos vă poate face o favoare, vă rugăm să efectuați următorii pași:

1. Selectați e-mailurile pe care doriți să le găsiți și înlocuiți textul subiectului, apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, vedeți captura de ecran:

Cod VBA: găsiți și înlocuiți textul subiectului în mai multe mesaje:

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

notițe: În codul de mai sus: xNewSubject = Înlocuiți (.Subject, "kte", "Kutools pentru Excel"), "kte”Este vechiul text pe care doriți să îl găsiți și„Kutools pentru Excel”Este noul text cu care doriți să înlocuiți. Vă rugăm să le schimbați în funcție de nevoile dvs.

doc înlocuiește subiectele 1

3. Apoi apăsați F5 tasta pentru a rula acest cod, iar textul specific din subiectele mesajului a fost înlocuit cu noul text după cum aveți nevoie, consultați captura de ecran:

doc înlocuiește subiectele 2


Găsiți și înlocuiți textul subiectului în cadrul mai multor sarcini utilizând codul VBA

Dacă trebuie să găsiți și să înlocuiți textul subiectului în activități, următorul cod VBA vă poate ajuta, de asemenea.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, vedeți captura de ecran:

Cod VBA: găsiți și înlocuiți textul subiectului în cadrul tuturor sarcinilor:

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. Apoi apăsați F5 pentru a executa acest cod și apare o casetă de prompt, introduceți textul pe care doriți să îl găsiți din subiectele sarcinii, vedeți captura de ecran:

doc înlocuiește subiectele 3

4. Clic OKși apare o altă casetă de solicitare, introduceți noul text cu care doriți să înlocuiți, vedeți captura de ecran:

doc înlocuiește subiectele 4

5. Apoi faceți clic pe OKși se afișează o casetă de dialog pentru a vă spune câte subiecte au fost modificate, consultați captura de ecran:

doc înlocuiește subiectele 5

6. Clic OK, iar textele vechi din subiectele sarcinii au fost înlocuite cu cele noi, vezi captura de ecran:

doc înlocuiește subiectele 6


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hallo,
beide Funktionen sind echt super.
Bin aber auch auf der Suche nach einer Lösung wo ich den Betreff mehrerer Mails ändern kann, genau wie hier bei den Aufgaben.

Ich möchte den Text in den Betreffzeilen kürzen und verwende hierzu z.B. bei München nur ein M
Mails also markieren, suche München im Betreff und ändere München in "M".
Kann mir jemand helfen?
This comment was minimized by the moderator on the site
Hello, Bördi
To find and replace the text of subject in emails, you just need to apply the first VBA code of this article.
Please select the emails first, and then apply the below code:
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, "Munich", "M")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is there a way to change the subject line of email(s) in a folder (window level) via vba?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations