...
    my $msg = $Folder->Items($i);
    my $attachments = $msg->attachments;
    if ($attachments->Count) {
    print "removing...";
    while ($attachments->Count) {
        $attachments->Remove(1);
    }
    ...