Office: (Office 2007) Outlook 2007 - Betreff ändern

Hallo,

ich möchte den Betreff mehrerer EMails ändern.

In der For-Each Schleife wird jedoch nur der Betreff der ersten selektieren EMail geändert.

Hat jemand eine Idee, wo das Problem liegt ?

Grüsse
Cappu

Code:

 
For Each myItem In olSelection
   If TypeOf myItem Is MailItem Then
      betreff = myItem.Subject
      myItem.Subject = "# " + betreff

      rem "Hier wird der geänderte Betreff richtig angezeigt
      Debug.Print "n->", myItem.Subject
   endif
next