I've been partially successful in sending e-mail encoded in UTF-8. I can successfully encode the subject and the body of the e-mail, however the To field get all messed up.
I get text like:
Instead of Japaense characters. (My e-mail client can accept japanese and UTF-8 character encodings) Here's an exammple of what I am doing:$B=J71
my $smtp = Net::SMTP->new( $smtp_server ); $smtp->mail( $self->smtp_from() ); $smtp->to( $self->smtp_to() ); $smtp->data(); $smtp->datasend( "To: " . MIME::Words::encode_mimeword($self->to(), 'Q +', 'utf-8') . "\n" ); $smtp->datasend( "From: " . MIME::Words::encode_mimeword($self->from() +, 'Q', 'utf-8') . "\n" ); $smtp->datasend( "Subject: " . MIME::Words::encode_mimeword($self->sub +ject(), 'Q', 'utf-8') . "\n" ); $smtp->datasend("MIME-Version: 1.0\n"); $smtp->datasend("Content-Transfer-Encoding: 8bit\n"); $smtp->datasend("Content-Type:text/plain; charset=utf-8\n"); print $self->body(); $smtp->datasend( "\n" ); $smtp->datasend( $self->body() ); $smtp->dataend();
Does anyone have any ideas?
In reply to Sending UTF-8 e-mail by angus_w_chan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |