Hi Mark,
Thanks for a great package!
Not sure if the mailing list is still active. I have a query, which is
attached.
I will appreciate any help!
Regards,
Harman.
Hi All,
Please excuse me if this is a simple question, but I haven't been able
to find out the solution from the documentation.
I am trying to anonymize a large archive of messages, to be then
processed by hypermail. I have a table for mapping sender email
addresses to numbers (e.g. Respondent 1).
I read messages one by one from an mbox and want to modify its primary
sender to "$name" <$email> and then write it out (preferably to the same
mbox that I am reading from, or if not, then to another mbox).
I don't care much about the Received headers being consistent etc. with
the original sender, hypermail doesn't use those headers.
Is it possible? What is the easiest way to go about it?
The following obviously doesn't work:
my $folder = $mgr->open($ARGV[1], access => 'rw');
foreach my $message ($folder->messages)
{
if (defined $message->sender)
{
$new_sender = Mail::Address->new('Name', 'user@domain');
$message->sender = $new_sender;
}
}
Thanks for your help,
Harman.
_______________________________________________
Mailbox mailing list
Mailbox@...
http://lists.utsl.gen.nz/mailman/listinfo.cgi/mailbox
