MIME::Lite und utf-8 (gelöst) (Fragen zu Perl-Modulen)

[thread]15306[/thread]

MIME::Lite und utf-8 [gelöst]

Leser: 21

Articles: hide open all | hide show old branches

+5 replies
andi25

2010-07-23 14:07
User since
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)
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)
- +4 replies
- GwenDragon
  
  2010-07-23 14:47
  User since
  2005-01-17
  14548 Artikel
  Admin1
  Ich denke mal, beim Text-Anhang fehlt das Encoding.
  
  Statt:
  
  Code: (dl )
  
  1 2 3 4 5
  
  $msg->attach ( Type => 'TEXT', Data => $mailtext );
  
  so:
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  my $part = MIME::Lite->new( Type => 'TEXT', Data => $mailtext, ); $part->attr('content-type.charset' => 'UTF-8'); $msg->attach($part);
  
  (ungetestet)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +3 replies
  - andi25
    
    2010-07-23 15:25
    
    User since
    2010-06-21
    14 Artikel
    BenutzerIn
    
    Ha! Das wars - vielen Dank!! Die charset-option muss natürlich oben raus und so rein, wie Du es beschrieben hast!! Vielen Dank, jetzt klappts!!
    
    Schönes Wochenende noch!
    - +2 replies
    - pq
      
      2010-07-23 15:32
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      hab den thread mal als gelöst markiert
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - andi25
        
        2010-07-23 15:41
        
        User since
        2010-06-21
        14 Artikel
        BenutzerIn
        
        @pq: Danke :-)

View all threads created 2010-07-23 14:07.