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

Vyhledejte 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

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? 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 Pro: Dá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