Wie suche und ersetze ich einen Terminsubjekt im Outlook-Kalender?

Das Suchen und Ersetzen von Terminen im Outlook-Kalender ist hilfreich, wenn Sie feststellen, dass einige Themen durch dieselben Massentexte ersetzt werden müssen. Oder ersetzen Sie das Wort Kopieren im Betrefffeld nach dem Datenimport in Outlook. Dieser Artikel enthält VBA-Code zum Suchen und Ersetzen mehrerer Terminthemen. Bitte suchen Sie nach weiteren Details.

Suchen und ersetzen Sie den Betreff des Termins durch den VBA-Code

Suchen und ersetzen Sie den Betreff des Termins durch den VBA-Code

In diesem Abschnitt können Sie den Betreff eines Termins wie folgt suchen und durch den VBA-Code ersetzen.

1. Zunächst müssen Sie die Makroeinstellungen in Outlook auf niedrig einstellen.

1) Klicken Sie in Outlook 2010 und 2013 auf Reichen Sie das > Optionen. Und in der Outlook-Optionen Dialogfeld, klicken Sie auf Trust Center Klicken Sie in der linken Leiste auf Vertrauensstellungscenter .

Im Trust Center Dialogfeld, klicken Sie auf Makroeinstellungen Wählen Sie in der linken Leiste die Option aus Aktivieren Sie alle Makros Option in der Makroeinstellungen Sektion. Und klicken Sie auf OK Taste. Siehe Screenshot:

2). Klicken Sie in Outlook 2007 auf Tools > Trust Center. In dem Trust Center Dialogfeld, klicken Sie auf Makroeinstellungen Wählen Sie in der linken Leiste die Option aus Keine Sicherheitsüberprüfung für Makros Option und klicken Sie auf OK .

2. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. In dem Microsoft Visual Basic für Applikationen Fenster, doppelklicken Sie, um das zu erweitern project1 > Microsoft Outlook-Objekte > DieseOutlookSession um den VBA-Editor zu öffnen. Siehe Screenshot:

4. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in den VBA-Editor ein. Und dann drücken Sie die F5 Schlüssel zum Ausführen des Codes.

VBA: Termingegenstand suchen und ersetzen

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. Nach dem Ausführen des Codes a Microsoft Outlook Das Dialogfeld wird angezeigt. Drücke den OK .

6. In dieser Sekunde Microsoft Outlook Geben Sie im Dialogfeld den Text ein, den Sie ersetzen möchten, und klicken Sie dann auf OK .

7. Im dritten Microsoft Outlook Geben Sie im Dialogfeld den Text ein, den Sie ersetzen möchten, und klicken Sie auf OK.

Note: Wenn Sie nur alle "Kopier" -Wörter aus dem Betreff im angegebenen Kalender entfernen möchten, lassen Sie dieses Feld leer.

8. Klicken Sie auf die OK Schaltfläche im folgenden Dialogfeld.

9. In dem Ordner auswählen Wählen Sie im Dialogfeld Ihren Kalender unter dem angegebenen E-Mail-Konto aus und klicken Sie auf OK Taste. Siehe Screenshot:

10. Anschließend wird ein Dialogfeld angezeigt, in dem Sie darüber informiert werden, dass der Austausch erfolgreich war. Bitte klicken Sie auf OK .

11. Und dann wurden alle Texte in Ihren Themen des ausgewählten Kalenders durch den neuen Inhalt ersetzt.

---

Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge Pro: Batch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

Weiterlesen       Free Download      Bezug von MarvelClient