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

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.

Læs mere       Gratis download      Køb