Salt la conținutul principal

Cum să căutați și să înlocuiți subiectul programării în calendarul Outlook?

Găsirea și înlocuirea subiectului programării în calendarul Outlook este utilă atunci când găsiți că unele subiecte trebuie înlocuite cu aceleași texte în masă. Sau înlocuiți cuvântul Copiere în câmpul subiectului după importarea datelor în Outlook. Acest articol vă oferă codul VBA pentru a căuta și înlocui mai multe subiecte de întâlnire. Vă rugăm să navigați pentru mai multe detalii.

Căutați și înlocuiți subiectul întâlnirii cu codul VBA

Office Tab - Activați editarea cu file și navigarea în Microsoft Office, făcând munca o briză
Kutools pentru Outlook - Îmbunătățiți Outlook cu peste 100 de caracteristici avansate pentru o eficiență superioară
Îmbunătățiți-vă Outlook 2021 - 2010 sau Outlook 365 cu aceste funcții avansate. Bucurați-vă de o perioadă de încercare gratuită cuprinzătoare de 60 de zile și îmbunătățiți-vă experiența prin e-mail!

săgeată albastru dreapta balonCăutați și înlocuiți subiectul întâlnirii cu codul VBA

În această secțiune, puteți căuta și înlocui subiectul întâlnirii cu codul VBA după cum urmează.

1. În primul rând, trebuie să setați setările macro la un nivel scăzut în Outlook.

1) În Outlook 2010 și 2013, faceți clic pe Fișier > Opţiuni. Și în Opțiuni Outlook casetă de dialog, faceți clic pe Centrul de încredere în bara din stânga, apoi faceți clic pe Trust Center Settings butonul.

În Centrul de încredere casetă de dialog, faceți clic pe Setări macro în bara din stânga, apoi selectați Activați toate macrocomenzile opțiune în Setări macro secțiune. Și faceți clic pe OK buton. Vedeți captura de ecran:

2). În Outlook 2007, faceți clic pe Instrumente > Centrul de încredere. În Centrul de încredere casetă de dialog, faceți clic pe Setări macro în bara din stânga, apoi selectați Fără verificare de securitate pentru macrocomenzi și faceți clic pe OK butonul.

2. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic pentru a extinde project1 > Obiecte Microsoft Outlook > Această sesiune Outlook pentru a deschide editorul VBA. Vedeți captura de ecran:

4. Copiați și lipiți următorul cod VBA în editorul VBA. Și apoi apăsați pe F5 tasta pentru a rula codul.

VBA: găsiți și înlocuiți subiectul întâlnirii

Sub FindReplaceAppointment()
	Dim oApp As Outlook.Application
	Dim oCalFolder As Outlook.MAPIFolder
	Dim oAppt As Outlook.AppointmentItem
	Dim sOldText As String
	Dim sNewText As String
	Dim iCalChangedCount As Integer
	Set oApp = Outlook.Application
	MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
	sOldText = InputBox("What is the text string that you would like to replace?")
	sNewText = InputBox("With what would you like to replace it?")
	' Check to be sure a Calendar folder was selected
	Do
	If Not (oCalFolder Is Nothing) Then
		If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
	End If
	MsgBox ("Please select a calendar folder from the following list.")
	Set oCalFolder = Application.Session.PickFolder
	On Error GoTo ErrHandler:
Loop Until oCalFolder.DefaultItemType = olAppointmentItem
' Loop through appointments in calendar, change text where necessary, keep count
iCalChangedCount = 0
For Each oAppt In oCalFolder.Items
	If InStr(oAppt.Subject, sOldText) <> 0 Then
		Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
		oAppt.Subject    = Replace(oAppt.Subject, sOldText, sNewText)
		oAppt.Save
		iCalChangedCount = iCalChangedCount + 1
	End If
Next
' Display results and clear table
MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
Set oAppt = Nothing
Set oCalFolder = Nothing
Exit Sub
	ErrHandler:
	MsgBox ("Macro terminated.")
End Sub

5. După rularea codului, a Microsoft Outlook apare fereastra de dialog. Apasă pe OK butonul.

6. În al doilea Microsoft Outlook caseta de dialog, introduceți textul pe care doriți să îl înlocuiți, apoi faceți clic pe OK butonul.

7. În al treilea Microsoft Outlook caseta de dialog, introduceți textul pe care doriți să îl înlocuiți și faceți clic pe OK.

notițe: Dacă doriți doar să eliminați toate cuvintele „Copiați” din subiect în calendarul specificat, vă rugăm să lăsați această casetă necompletată.

8. Faceți clic pe OK din caseta de dialog de mai jos.

9. În Selectați Dosar caseta de dialog, selectați calendarul în contul de e-mail specificat, apoi faceți clic pe OK buton. Vedeți captura de ecran:

10. Apoi va apărea o casetă de dialog pentru a vă informa că înlocuirea are succes. Vă rugăm să faceți clic pe OK butonul.

11. Și apoi toate textele din subiectele dvs. din calendarul selectat au fost înlocuite cu noul conținut.


Cele mai bune instrumente de productivitate de birou

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

📧 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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Many thanks. I think it is the 1st time, I copied and executed your macro "as is" without any error or any need for changes !
This comment was minimized by the moderator on the site
Buongiorno,
è possibile specificare la cartella posizione calendario (es.: \\mail@dominio\Calendario) senza far apparire la richiesta?
Grazie
Hi,
is it possible to specify the folder location calendar (ex .: \\ mail@domain\Calendar) without making the request appear?

Thank you


This comment was minimized by the moderator on the site
I always get a Syntax Error right at the start on the 2nd line at Dim oApp As Outlook.Application. No idea what's wrong :-(

I try to run the VB Script in Outlook 2016 (O365 Version) on Windows 10.
This comment was minimized by the moderator on the site
It seems I'm unable to do this for non-local, or shared calendars. Does anyone know how to do it for shared calendars? I'm set as "owner" for permission level of the shared calendar, but it won't show up in my list of folders when I run the script, only my locally created calendars show up.
This comment was minimized by the moderator on the site
Worked fantastically! Thank you so much!!!
This comment was minimized by the moderator on the site
This should do it for you. Add these 3 lines immediately after line 8 (Set oApp = Outlook.Application). Dim nmSpace As Outlook.NameSpace Set nmSpace = oApp.GetNamespace("MAPI") Set oCalFolder = nmSpace.GetDefaultFolder(olFolderCalendar)
This comment was minimized by the moderator on the site
Thank you! How can we modify it to always use the same calendar, and not show the first pop-up? thank you
This comment was minimized by the moderator on the site
Worked just fine really good It took me some time to understand that this is case sensitive, but that is very good. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations