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.
- 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.
Hinterlasse einen Kommentar