Hvordan søke og erstatte avtale lagt i Outlook-kalenderen?
Søk og erstatt avtale lagt i Outlook-kalenderen er nyttig når du finner noen fag må være erstattet med samme tekstene i massen. Eller erstatte ordet Kopier i emnefeltet etter data importere i Outlook. Denne artikkelen gir deg VBA-kode for å søke og erstatte flere tilsettings fag. Vennligst bla for mer informasjon.
Søk og erstatt avtale lagt med VBA-kode
2013.
Søk og erstatt avtale lagt med VBA-kode
I denne seksjonen kan du søke og erstatte avtale emnet med VBA-kode som følger.
1. . Først må du sette makroinnstillinger til lav i din Outlook
1) I Outlook 2010 og 2013, klikk på Fil > Alternativer. Og i dialogboksen Alternativer for Outlook Klikk Klareringssenter i venstre linjen, klikk deretter Trust Center-innstillinger-knappen.
I dialogboksen Klareringssenter, klikk Makroinnstillinger i venstre linjen og velge Aktiver alle makroer alternativet i Macro delen Innstillinger. Og klikk på OK-knappen. Se skjermbilde:
2). I Outlook 2007, kan du klikke Verktøy > Trust Center. I dialogboksen Klareringssenter, klikk Makroinnstillinger i venstre linjen, og velg deretter Ingen sikkerhetskontrollen for makroer og klikk på OK-knappen.
To. Trykk Alt + F11 tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. I Microsoft Visual Basic for Applications-vinduet, dobbeltklikk utvide project1 > Microsoft Outlook Objects > ThisOutlookSession å åpne VBA editor. Se skjermbilde:
4. Kopier og lim inn følgende VBA kode i VBA editor. Og trykk F5 for å kjøre koden
VBA. Finne og erstatte avtale lagt
Sub FindReplaceAppointment () Dim oApp Som Outlook.Application Dim oCalFolder Som Outlook.MAPIFolder Dim oAppt Som Outlook.AppointmentItem Dim sOldText As String Dim sNewText As String Dim iCalChangedCount As Integer Set oApp = Outlook.Application MsgBox ("Dette skriptet vil utføre en finne /erstatte i emnefeltet av alle avtaler i en bestemt kalender.") sOldText = InputBox ("Hva er tekststreng som du ønsker å erstatte? ") sNewText = InputBox (" Med hva ønsker du å bytte den ut? ")" Sjekk for å være sikker på at en Kalender-mappen ble valgt Do Hvis ikke (oCalFolder Er Nothing) Så hvis (oCalFolder.DefaultItemType = olAppointmentItem ) Then Exit Do End If MsgBox ("Vennligst velg en kalender mappe fra listen nedenfor.") Set oCalFolder = Application.Session.PickFolder On Error GoTo ErrHandler: Loop Inntil oCalFolder.DefaultItemType = olAppointmentItem 'Loop gjennom avtaler i kalenderen, endre tekst der det er nødvendig, holde countiCalChangedCount = 0 ° C i hvert oAppt I oCalFolder.Items Hvis InStr (oAppt.Subject, sOldText) < > 0 Then Debug.Print "Endret:" & oAppt.Subject & "-" &Amp; oAppt.Start oAppt.Subject = Skift (oAppt.Subject, sOldText, sNewText) oAppt.Save iCalChangedCount = iCalChangedCount + 1 End IfNext 'Vis resultater og klart tableMsgBox (iCalChangedCount & "avtaler hadde tekst i sine fag endret fra'" & sOldText & "" til "" & sNewText & "". ") Set oAppt = NothingSet oCalFolder = NothingExit Sub ErrHandler:". Macro avsluttet "MsgBox () End Sub5. Etter å ha kjørt inn koden, spretter en Microsoft Outlook dialogboks opp. Klikk på OK-knappen.
6. I den andre Microsoft Outlook dialogboksen skriver du inn teksten du ønsker å erstatte, og klikk deretter på OK-knappen.
7. I den tredje Microsoft Outlook dialogboksen skriver du inn teksten du ønsker å erstatte, og klikk OK
. Merk: Hvis du bare ønsker å fjerne alle "kopier" ord fra motivet i den angitte kalenderen, legg igjen denne boksen være tom.
8. Klikk på OK-knappen i under dialogboksen.
9. I Velg mappe dialogboksen velger kalenderen under det oppgitte e-postkonto, og klikk deretter på OK-knappen. Se skjermbilde:
10. Så en dialogboks vil dukke opp for å informere deg om at erstatning er vellykket. Vennligst klikk på OK-knappen.
11. Og så alle tekstene i motivene av valgte kalenderen har blitt erstattet med nytt innhold.
