Przejdź do głównej zawartości

Jak wyszukiwać i zamieniać temat spotkania w kalendarzu Outlooka?

Znajdź i zamień temat spotkania w kalendarzu programu Outlook jest pomocny, gdy zauważysz, że niektóre tematy wymagają masowego zastąpienia tymi samymi tekstami. Lub zamień słowo Kopiuj w polu tematu po zaimportowaniu danych do Outlooka. Ten artykuł zawiera kod VBA do wyszukiwania i zastępowania wielu tematów spotkań. Przejrzyj więcej szczegółów.

Wyszukaj i zamień temat spotkania na kod VBA

Karta Office — włącz edycję i przeglądanie na kartach w pakiecie Microsoft Office, dzięki czemu praca stanie się o wiele łatwiejsza
Kutools dla programu Outlook - Zwiększ wydajność programu Outlook dzięki ponad 100 zaawansowanym funkcjom zapewniającym najwyższą wydajność
Ulepsz swój program Outlook 2021–2010 lub Outlook 365 dzięki tym zaawansowanym funkcjom. Skorzystaj z kompleksowego, 60-dniowego bezpłatnego okresu próbnego i usprawnij korzystanie z poczty e-mail!

strzałka niebieski prawy bąbelekWyszukaj i zamień temat spotkania na kod VBA

W tej sekcji możesz wyszukać i zamienić temat spotkania na kod VBA w następujący sposób.

1. Najpierw musisz ustawić ustawienia makr w programie Outlook na niskie.

1) W Outlooku 2010 i 2013 kliknij filet > Opcje. I w Opcje programu Outlook okno dialogowe, kliknij Centrum zaufania na lewym pasku, a następnie kliknij Ustawienia Centrum zaufania przycisk.

W Centrum zaufania okno dialogowe, kliknij Ustawienia makr na lewym pasku, a następnie wybierz Włącz wszystkie makra opcja w Ustawienia makr Sekcja. I kliknij OK przycisk. Zobacz zrzut ekranu:

2). W programie Outlook 2007 kliknij Tools > Centrum zaufania, w Centrum zaufania okno dialogowe, kliknij Ustawienia makr na lewym pasku, a następnie wybierz Brak kontroli bezpieczeństwa makr opcję i kliknij przycisk OK przycisk.

2. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. w Microsoft Visual Basic for Applications kliknij dwukrotnie, aby rozwinąć project1 > Obiekty programu Microsoft Outlook > Ta sesja programu Outlook aby otworzyć edytor VBA. Zobacz zrzut ekranu:

4. Skopiuj i wklej następujący kod VBA do edytora VBA. A następnie naciśnij F5 klucz do uruchomienia kodu.

VBA: znajdź i zamień temat spotkania

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 uruchomieniu kodu a Microsoft Outlook pojawi się okno dialogowe. Kliknij OK przycisk.

6. W sekundę Microsoft Outlook W oknie dialogowym wprowadź tekst, który chcesz zamienić, a następnie kliknij OK przycisk.

7. W trzecim Microsoft Outlook w oknie dialogowym wprowadź tekst, który chcesz zamienić, i kliknij OK.

Note: Jeśli chcesz tylko usunąć wszystkie „Kopiuj” słowa z tematu w określonym kalendarzu, pozostaw to pole puste.

8. Kliknij OK w poniższym oknie dialogowym.

9. w Wybierz folder W oknie dialogowym wybierz kalendarz z określonego konta e-mail, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

10. Następnie pojawi się okno dialogowe z informacją, że zamiana się powiodła. Proszę kliknąć OK przycisk.

11. A potem wszystkie teksty z Twoich tematów z wybranego kalendarza zostały zastąpione nową treścią.


Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki ProZapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

 

 

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