No, this isn't about Shakes the Clown, it's about email.
I'm working on an email app using use Mail::POP3Client to get emails off a
pop server and store the messages in a database. So I get my message body
like this:
my $body = $pop->Body($i);
and I insert it into a text field in my database. When I want to forward
the email, I do this:
my $r = $gs->fetchrow_hashref;
open (MAIL, "|$$config{sendmail} -t")
|| return "EMAIL ERROR: Can't open $$config{sendmail}!";
print MAIL "From: $$r{from_field}\n";
print MAIL "To: $$r{email}\n";
print MAIL "Subject: $$r{subject}\n\n";
print MAIL $$r{body};
close(MAIL);
and this, of course, screws up html emails and mime-types. What's the
easiest way to forward the email with all the mime types intact? If I can
get away with it, I'd rather store the entire body in one field, and deal
with attachments, etc. later, rather than having a separate table for
attachments.
Thanks.
_______________________________________________
Boston-pm mailing list
[EMAIL PROTECTED]
http://mail.pm.org/mailman/listinfo/boston-pm
