Hvordan søger og udskifter aftaleemne i Outlook-kalenderen?
Find og udskift aftaleemne i Outlook-kalenderen er nyttigt, når du finder ud af, at nogle emner skal udskiftes med samme tekster i masse. Eller udskift ordet Kopi i emnefeltet efter dataimport i Outlook. Denne artikel giver dig VBA-kode til at søge i og erstatte flere emner. Se efter flere detaljer.
Søg og erstat udnævnelsesemne med VBA-kode
- Automatiser e-mail med Auto CC / BCC, Automatisk videresendelse ved regler; sende Auto svar (Ikke til stede) uden at kræve en udvekslingsserver...
- Få påmindelser som BCC Advarsel når du svarer til alle, mens du er på BCC-listen, og Påmind, når du mangler vedhæftede filer for glemte vedhæftede filer...
- Forbedre e-mail-effektiviteten med Svar (alle) med vedhæftede filer, Tilføj automatisk hilsen eller dato og tid til signatur eller emne, Besvar flere e-mails...
- Strømline e-mail med Genkald e-mails, Vedhæftningsværktøjer (Komprimer alle, Gem alt automatisk...), Fjern duplikaterog Hurtig rapport...
Søg og erstat udnævnelsesemne med VBA-kode
I dette afsnit kan du søge på og erstatte aftaleemne med VBA-kode som følger.
1. For det første skal du indstille makroindstillinger til lave i din Outlook.
1) Klik på i Outlook 2010 og 2013 File (Felt) > Indstillinger. Og i Outlook Options dialogboksen, klik Trust Center i venstre bjælke, og klik derefter på Indstillinger for tillidscenter .
I Trust Center dialogboksen, klik Makroindstillinger i venstre bjælke, og vælg derefter Aktivér alle makroer valgmulighed i Makroindstillinger afsnit. Og klik på OK knap. Se skærmbillede:
2). Klik i Outlook 2007 Værktøjer > Trust Center. I Trust Center dialogboksen, klik Makroindstillinger i venstre bjælke, og vælg derefter Ingen sikkerhedskontrol for makroer valg og klik på OK .
2. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. i Microsoft Visual Basic til applikationer dobbeltklik for at udvide vinduet project1 > Microsoft Outlook-objekter > Denne OutlookSession for at åbne VBA-editoren. Se skærmbillede:
4. Kopier og indsæt følgende VBA-kode i VBA-editoren. Og tryk derefter på F5 nøgle for at køre koden.
VBA: find og udskift emnets emne
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. Efter kørsel af koden, a Microsoft Outlook dialogboksen vises. Klik på OK .
6. I det andet Microsoft Outlook dialogboksen, skal du indtaste den tekst, du vil erstatte, og derefter klikke på OK .
7. I det tredje Microsoft Outlook dialogboksen, skal du indtaste den tekst, du gerne vil erstatte, og klikke på OK.
Bemærk: Hvis du bare vil fjerne alle "Kopier" -ord fra emnet i den angivne kalender, skal du lade dette felt være tomt.
8. Klik på OK i nedenstående dialogboks.
9. i Vælg mappe Vælg din kalender under den angivne e-mail-konto, og klik derefter på OK knap. Se skærmbillede:
10. Derefter vises en dialogboks, der fortæller dig, at udskiftningen er vellykket. Klik på OK .
11. Og så er alle teksterne i dine emner i den valgte kalender blevet erstattet med det nye indhold.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.