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.
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:
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:
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:
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:
6. Clic OK, iar textele vechi din subiectele sarcinii au fost înlocuite cu cele noi, vezi captura de ecran:
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 Pro: Salvaț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.