[OL2003] Subject veranderen in alle mailtjes binnen selectie

[Verwijderd]

edit:

Laat maar, ik heb hem al gevonden. Gewoon het item saven na aanpassing. Dus:
Sub test()
Dim mySelection As Selection
Dim n As Long
Dim stemp As String

Set mySelection = Application.ActiveExplorer.Selection
For n = 1 To mySelection.Count
stemp = mySelection.Item(n).Subject
mySelection.Item(n).Subject = stemp & "X"
mySelection.Item(n).Save
msgbox(mySelection.Item(n).Subject)
Next n
End Sub

Hoi,

Ik wil in OL2003 van een aantal geselecteerde mailtjes het subject aanpassen. Hieronder de basis code die ik gebruik (uiteindelijk wordt er natuurlijk nog gefilterd welke mailtjes moeten worden aangepast etc.). Als ik deze code run wordt echter alleen het eerste berichtje in de selectie aangepast. Aan de tekst in de message box te zien, lijkt het allemaal goed te gaan.
Weet iemand hoe dit komt, en hoe ik het kan oplossen?

code:

Sub test()
    Dim mySelection As Selection
    Dim n As Long
    Dim stemp As String
    
    Set mySelection = Application.ActiveExplorer.Selection
    For n = 1 To mySelection.Count
        stemp = mySelection.Item(n).Subject
        mySelection.Item(n).Subject = stemp & "X"
        msgbox(mySelection.Item(n).Subject)
    Next n
End Sub

[ Voor 25% gewijzigd door Verwijderd op 08-07-2005 14:48 . Reden: Olpossing al gevonden ]