Opened by andi25 at 2010-07-23 14:07
User since
2010-06-21
14 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-06-21
14 Artikel
BenutzerIn
Hallo zusammen,
Ich möchte eine einfache Mail mit mehreren Anhängen (deshalb Type => 'multipart/mixed') als utf-8 versenden.
Mit dem unten stehenden Code ist es so, dass die Mail in Thunderbird ankommt und zunächst als iso8859-15 interpretiert wird (Darstellung: ÃŒ À ö, groÃ�en Umlauten: ÃŒ À ö und einem scharfen s: Ã� blabla")
Ändere ich die Ansicht im Thunderbird auf utf-8, wird der Text korrekt angezeigt. Das Subject wird in beiden Fällen korrekt angezeigt.
Meine Fragen nun:
- Ist der Code generell ok so?
- Gibt es eine Möglichkeit per Code festzulegen, dass der MTA meine Mail als utf-8 interpretiert? (Mir ist bewusst, dass das nicht alle MTAs können)
Kann mir da jemand weiterhelfen?
Vielen Dank, Andi
(Ich habe bereits ein Topic zu einem ähnlichen Problem unter http://www.perl-community.de/bat/poard/thread/1517... eröffent, habe mich aber dazu entschlossen, hierfür ein neues aufzumachen, da zum einen schon viel Zeit vergangen ist und die Disskussion etwas unübersichtlich geworden ist und ich zum anderen jetzt gerne tatsächlich utf-8 und nicht iso-88959-1 verwenden möchte)
Ich möchte eine einfache Mail mit mehreren Anhängen (deshalb Type => 'multipart/mixed') als utf-8 versenden.
Mit dem unten stehenden Code ist es so, dass die Mail in Thunderbird ankommt und zunächst als iso8859-15 interpretiert wird (Darstellung: ÃŒ À ö, groÃ�en Umlauten: ÃŒ À ö und einem scharfen s: Ã� blabla")
Ändere ich die Ansicht im Thunderbird auf utf-8, wird der Text korrekt angezeigt. Das Subject wird in beiden Fällen korrekt angezeigt.
Meine Fragen nun:
- Ist der Code generell ok so?
- Gibt es eine Möglichkeit per Code festzulegen, dass der MTA meine Mail als utf-8 interpretiert? (Mir ist bewusst, dass das nicht alle MTAs können)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl
use strict;
use MIME::Lite;
use Time::localtime;
use MIME::Words qw(:all);
use Encode;
my $mailtext="";
mail();
sub mail
{
my $sendmail = "/usr/sbin/sendmail -t";
my $from = "myadress@email.com";
my $reply_to = "myadress@email.com";
my $subject = "Subject ü ä ö";
my $mail_message = "This is a text with ü ä and ö";
#Subject encoding
utf8::decode($subject);
# Create new mail
my $msg = MIME::Lite->new
(
Subject => $subject,
From => $from,
To => 'mymail@mail.com',
Type => 'multipart/mixed',
Charset => 'utf-8'
);
# Mailtext
$mailtext=$mail_message;
$msg->attach
(
Type => 'TEXT',
Data => $mailtext
);
# Send mail
MIME::Lite->send("sendmail", $sendmail);
$msg->send;
}
exit;
Kann mir da jemand weiterhelfen?
Vielen Dank, Andi
(Ich habe bereits ein Topic zu einem ähnlichen Problem unter http://www.perl-community.de/bat/poard/thread/1517... eröffent, habe mich aber dazu entschlossen, hierfür ein neues aufzumachen, da zum einen schon viel Zeit vergangen ist und die Disskussion etwas unübersichtlich geworden ist und ich zum anderen jetzt gerne tatsächlich utf-8 und nicht iso-88959-1 verwenden möchte)