Přejít k hlavnímu obsahu

Jak vyhledat a nahradit předmět schůzky v kalendáři aplikace Outlook?

Najít a nahradit předmět schůzky v kalendáři aplikace Outlook je užitečné, když zjistíte, že některé předměty je třeba hromadně nahradit stejnými texty. Nebo nahraďte slovo Kopírovat v poli předmětu po importu dat v aplikaci Outlook. Tento článek poskytuje kód VBA k vyhledávání a nahrazování více předmětů schůzky. Prohlédněte si další podrobnosti.

Vyhledejte a nahraďte předmět schůzky kódem VBA

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou
Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu
Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

šipka modrá pravá bublinaVyhledejte a nahraďte předmět schůzky kódem VBA

V této části můžete předmět schůzky vyhledat a nahradit kódem VBA následujícím způsobem.

1. Nejprve musíte ve svém Outlooku nastavit nízké nastavení maker.

1) V Outlooku 2010 a 2013 klikněte na Soubor > možnosti. A v Možnosti aplikace Outlook , klepněte na tlačítko OK Centrum zabezpečení na levé liště a poté klikněte na Nastavení centra důvěryhodnosti .

v Centrum zabezpečení , klepněte na tlačítko OK Nastavení makra na levé liště a poté vyberte Povolit všechna makra možnost v Nastavení makra sekce. A klikněte na OK knoflík. Viz screenshot:

2). V aplikaci Outlook 2007 klikněte prosím Tools > Centrum zabezpečení. V Centrum zabezpečení , klepněte na tlačítko OK Nastavení makra na levé liště a poté vyberte Žádná bezpečnostní kontrola maker a klepněte na tlačítko OK .

2. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. V Microsoft Visual Basic pro aplikace okno, dvojitým kliknutím rozbalte project1 > Objekty Microsoft Outlook > ThisOutlookSession otevřete editor VBA. Viz snímek obrazovky:

4. Zkopírujte a vložte následující kód VBA do editoru VBA. A poté stiskněte F5 klíč ke spuštění kódu.

VBA: najít a nahradit předmět schůzky

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. Po spuštění kódu, a Microsoft Outlook objeví se dialogové okno. Klikněte na ikonu OK .

6. Ve druhé Microsoft Outlook V dialogovém okně zadejte text, který chcete nahradit, a klepněte na ikonu OK .

7. Ve třetím Microsoft Outlook V dialogovém okně zadejte text, který chcete nahradit, a klikněte na OK.

Poznámka: Pokud chcete pouze odstranit všechna slova „Kopírovat“ z předmětu v určeném kalendáři, ponechte toto pole prázdné.

8. Klepněte na tlačítko OK tlačítko v dialogovém okně níže.

9. V Vybrat složku V dialogovém okně vyberte svůj kalendář pod zadaným e-mailovým účtem a poté klikněte na ikonu OK knoflík. Viz screenshot:

10. Poté se zobrazí dialogové okno, které vás informuje, že výměna proběhla úspěšně. Klikněte prosím na OK .

11. A poté budou všechny texty ve vašich předmětech vybraného kalendáře nahrazeny novým obsahem.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

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