Help for this page

Select Code to Download

Select or download this

#!C:/ActivePerl/bin/perl.exe
use strict;
...
    print "Body is now supposedly:\n\n" .$TestFolder->Items($x)->Body 
+. "\n"; #Hasn't updated!
    my $NewItem = $TestFolder->Items($x)->Copy; #Works fine    
}

Select or download this

'..snip...
For Each M In objInbox.Items
...
    M.Save
Next
'..snip...