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
- Automatyzuj wysyłanie e-maili za pomocą Auto CC / BCC, Auto Forward według zasad; wysłać Automatyczna odpowiedź (Poza biurem) bez konieczności korzystania z serwera wymiany...
- Otrzymuj przypomnienia takie jak Ostrzeżenie BCC podczas odpowiadania wszystkim, gdy jesteś na liście BCC, oraz Przypomnij o braku załączników za zapomniane załączniki...
- Popraw wydajność poczty e-mail dzięki Odpowiedz (wszystkim) z załącznikami, Automatyczne dodawanie pozdrowień lub daty i godziny do podpisu lub tematu, Odpowiedz na wiele e-maili...
- Usprawnij wysyłanie e-maili za pomocą Przypomnij sobie e-maile, Narzędzia załączników (Kompresuj wszystko, automatycznie zapisuj wszystko...), Usuń duplikaty, Szybki raport...
Wyszukaj 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 Pro: Zapisz 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.