Outlook – „Kopieren“ für importierte Termine entfernen

Solltet ihr feststellen, dass alle eure Termine in Outlook den Präfix „Kopieren“ haben nachdem ihr einen Kalender importiert habt, lässt sich dies in wenigen Schritten automatisch beheben.

Schritt-für-Schritt-Anleitung

• Drückt in Outlook Alt+F11 um den VBA-Editor zu öffnen
• Erweitert den Punkt „Projekt1“ dann „Microsoft Outlook Objekte“ und klickt dann doppelt auf „ThisOutlookSession“
• In dem Fenster dass sich dann öffnet kopiert ihr folgenden Befehl hinein:

Sub RemoveCopy()
Dim myolApp As Outlook.Application
Dim calendar As MAPIFolder
Dim aItem As Object

Set myolApp = CreateObject("Outlook.Application")
Set calendar = myolApp.ActiveExplorer.CurrentFolder

Dim iItemsUpdated As Integer
Dim strTemp As String

iItemsUpdated = 0
For Each aItem In calendar.Items
If Mid(aItem.Subject, 1, 10) = "Kopieren: " Then
strTemp = Mid(aItem.Subject, 11, Len(aItem.Subject) - 10)
aItem.Subject = strTemp
iItemsUpdated = iItemsUpdated + 1
End If
aItem.Save
Next aItem

MsgBox iItemsUpdated & " of " & calendar.Items.Count & " Meetings Updated"

End Sub

Outlook entfernt daraufhin aus sämtlichen Terminen den Präfix, am besten Outlook in Ruhe lassen da dies je nach Kalendergröße einige Zeit dauern kann.