Kuinka etsiä ja korvata tapaamisen aihe Outlook-kalenterissa?
Tapaamisen aiheen etsiminen ja korvaaminen Outlook-kalenterista on hyödyllinen, kun huomaat, että jotkin aiheet on korvattava samoilla teksteillä massassa. Tai korvaa sana Kopioi aihekentässä tietojen tuonnin jälkeen Outlookissa. Tämä artikkeli tarjoaa sinulle VBA-koodin useiden tapaamisaiheiden etsimiseen ja korvaamiseen. Ole hyvä ja selaa lisätietoja.
Etsi ja korvaa tapaamisen aihe VBA-koodilla
Etsi ja korvaa tapaamisen aihe VBA-koodilla
Tässä osiossa voit etsiä ja korvata tapaamisen aiheen VBA-koodilla seuraavasti.
1. Ensin sinun on asetettava makroasetukset alhaisiksi Outlookissa.
1) Napsauta Outlook 2010:ssä ja 2013:ssa "Tiedosto" > "Asetukset". Napsauta "Outlook-asetukset" -valintaikkunan vasemmassa palkissa "Trust Center" ja napsauta sitten "Trust Center Settings" -painiketta.
Napsauta "Trust Center" -valintaikkunan vasemmassa palkissa "Makroasetukset" ja valitse "Ota kaikki makrot käyttöön" -vaihtoehto "Makroasetukset"-osiossa. Ja napsauta "OK"-painiketta. Katso kuvakaappaus:
2) Napsauta Outlook 2007:ssä "Työkalut" > "Trust Center". Napsauta "Luottamuskeskus"-valintaikkunan vasemmassa palkissa "Makroasetukset", valitse "Ei makrojen turvatarkistusta" ja napsauta "OK"-painiketta.
2. Paina "Alt" + "F11"-näppäimiä avataksesi "Microsoft Visual Basic for Applications" -ikkunan.
3. Kaksoisnapsauta "Microsoft Visual Basic for Applications" -ikkunassa "projekti1" > "Microsoft Outlook Objects" > "ThisOutlookSession" avataksesi VBA-editorin. Katso kuvakaappaus:
4. Kopioi ja liitä seuraava VBA-koodi VBA-editoriin. Ja sitten paina "F5"-näppäintä suorittaaksesi koodin.
VBA: etsi ja korvaa tapaamisen aihe
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. Koodin suorittamisen jälkeen näkyviin tulee "Microsoft Outlook" -valintaikkuna. Napsauta "OK"-painiketta.
6. Kirjoita toiseen "Microsoft Outlook" -valintaikkunaan teksti, jonka haluat korvata, ja napsauta sitten "OK"-painiketta.
7. Kirjoita kolmanteen "Microsoft Outlook" -valintaikkunaan teksti, jota haluat käyttää korvaavana, ja napsauta "OK".
Huomautuksia: Jos haluat vain poistaa kaikki "Kopioi" -sanat valitun kalenterin aiheesta, jätä tämä ruutu tyhjäksi.
8. Napsauta "OK"-painiketta alla olevassa valintaikkunassa.
9. Valitse "Valitse kansio" -valintaikkunassa kalenterisi määritetyn sähköpostitilin alta ja napsauta sitten "OK"-painiketta. Katso kuvakaappaus:
10. Sitten näyttöön tulee valintaikkuna, joka ilmoittaa vaihdon onnistumisesta. Napsauta "OK"-painiketta.
11. Ja sitten kaikki valitun kalenterin aiheesi tekstit on korvattu uudella sisällöllä.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
