Outlook: „Kopiert: “ beim importieren von Terminen im Betreff entfernen

Beim importieren von Terminen aus einer PST fügt Outlook ein „Kopiert: “ im Betreff mit vorne an.

Um das für alle Termine zu entfernen könnt Ihr ein VBA-Skript zur Hilfe nehmen.

  • In Outlook die Tastenkombination „ALT + F11“ drücken um den VBA-Editor zu öffnen
  • Nun den Punkt „Projekt1“ erweitern, dann „Microsoft Outlook Objekte“ und anschließend auf „ThisOutlookSession“ doppelt klicken.
  • In das Fenster welches sich geöffnet habt kopiert Ihr folgendes Skript:
Sub RemoveCopySubject()
   Dim olApp As Outlook.Application
   Dim calendar As MAPIFolder
   Dim oItem As Object
   Dim iItemCount As Integer
   Dim strTemp As String
   Set olApp = CreateObject("Outlook.Application")
   Set calendar = olApp.ActiveExplorer.CurrentFolder
   iItemCount = 0
   For Each oItem In calendar.Items
      If Mid(oItem.Subject, 1, 10) = "Kopieren: " Then
         strTemp = Mid(oItem.Subject, 11, Len(oItem.Subject) - 10)
         oItem.Subject = strTemp
         iItemCount = iItemCount + 1
      End If
      oItem.Save
   Next oItem
   MsgBox "Es wurden " & iItemCount & " von " & calendar.Items.Count & " Kalendereinträge upgedatet."
End Sub

Outlook entfernt nun beim Ausführen des Makros aus allen Terminen im aktuellen Ordner den Präfix. Das kann je nach Größe des Kalenders eine Zeit lang dauern – das Outlook währenddessen „Keine Rückmeldung“ anzeigt ist normal.