Hogyan lehet keresni és lecserélni a találkozó tárgyát az Outlook naptárban?
A találkozó tárgyának megkeresése és cseréje az Outlook naptárban hasznos, ha úgy találja, hogy egyes tantárgyakat tömegesen ugyanazokkal a szövegekkel kell helyettesíteni. Vagy cserélje le a Tárgy mezőre a Másolás szót az adatok importálása után az Outlook programban. Ez a cikk VBA-kódot tartalmaz a több kinevezési tárgy kereséséhez és cseréjéhez. Kérjük, böngésszen további részletekért.
Keresse meg és cserélje le a találkozó tárgyát VBA kódra
- Automatizálja az e-mailezést ezzel Auto CC / BCC, Automatikus továbbítás szabályok szerint; Küld Autómatikus válasz (Out of Office) Exchange szerver nélkül...
- Szerezzen emlékeztetőket BCC figyelmeztetés amikor mindenkinek válaszol, miközben a Titkos másolat listában van, és Emlékeztessen a hiányzó mellékletekre az elfelejtett mellékletekhez...
- Növelje az e-mailek hatékonyságát Válasz (mindenre) mellékletekkel, Üdvözlés vagy dátum és idő automatikus hozzáadása az aláíráshoz vagy a tárgyhoz, Válasz több e-mailre...
- Egyszerűsítse az e-mailezést ezzel E-mailek visszahívása, Melléklet eszközök (Összes tömörítése, Összes automatikus mentése...), Távolítsa el a másolatokatés Gyorsjelentés...
Keresse meg és cserélje le a találkozó tárgyát VBA kódra
Ebben a részben az alábbiak szerint kereshet és cserélheti le a találkozó tárgyát VBA kóddal.
1. Először alacsonyra kell állítania a makróbeállításokat az Outlook alkalmazásban.
1) Az Outlook 2010 és 2013 programban kattintson a gombra filé > Opciók. És a Outlook opciók párbeszédpanelen kattintson a gombra Trust Center a bal sávban, majd kattintson a gombra Trust Center beállítások gombot.
A Trust Center párbeszédpanelen kattintson a gombra Makróbeállítások a bal sávban, majd válassza a lehetőséget Engedélyezze az összes makrót lehetőség a Makróbeállítások szakasz. És kattintson a gombra OK gomb. Lásd a képernyőképet:
2). Az Outlook 2007 alkalmazásban kattintson a gombra Eszközök > Trust Center. Az Trust Center párbeszédpanelen kattintson a gombra Makróbeállítások a bal sávban, majd válassza a lehetőséget Nincs makrók biztonsági ellenőrzése opciót és kattintson a OK gombot.
2. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Ban,-ben Microsoft Visual Basic for Applications ablak, kattintson duplán a project1 > Microsoft Outlook objektumok > ThisOutlookSession hogy megnyissa a VBA szerkesztőt. Lásd a képernyőképet:
4. Másolja és illessze be a következő VBA kódot a VBA szerkesztőbe. És akkor nyomja meg a F5 gombot a kód futtatásához.
VBA: keresse meg és cserélje ki a kinevezés tárgyát
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. A kód futtatása után a Microsoft Outlook megjelenik a párbeszédpanel. Kattints a OK gombot.
6. A másodikban Microsoft Outlook párbeszédpanelen írja be a cserélni kívánt szöveget, majd kattintson a gombra OK gombot.
7. A harmadikban Microsoft Outlook párbeszédpanelen írja be a cserélni kívánt szöveget, majd kattintson a gombra OK.
Megjegyzések: Ha csak el akarja távolítani az összes „Másolás” szót a megadott naptár tárgyából, kérjük, hagyja üresen ezt a négyzetet.
8. Kattintson a OK gombra az alábbi párbeszédpanelen.
9. Ban,-ben Válassza ki a Mappa párbeszédpanelen válassza ki a naptárat a megadott e-mail fiók alatt, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
10. Ezután megjelenik egy párbeszédpanel, amely tájékoztatja Önt arról, hogy a csere sikeres. Kattintson a gombra OK gombot.
11. Ezután a kiválasztott naptár tantárgyai összes szövegét lecserélték az új tartalomra.
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.