Thread Email::Stuffer Excel-Attachments teilweise defekt (6 answers)
Opened by Stefan_S at 2014-04-15 18:05

Stefan_S
 2014-04-15 18:05
#174794 #174794
User since
2014-04-15
30 Artikel
BenutzerIn
[default_avatar]
Servus,
mit folgendem kleinen Script möchte ich E-Mails mit einer Excel-Datei als Anhang verschicken:

Code (perl): (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
use strict;
use warnings;
use POSIX qw ( strftime );

&process_emails;

# E-Mails versenden
use Email::Stuffer;
use Email::Sender::Transport::SMTP;             # Anmeldung an einem SMTP-Server
use utf8;                                                               # korrekte Darstellung von Sonderzeichen
sub process_emails {
        my $email_to            = undef;
        my $email_subject       = 'subject';
        my $email_att           = 'test.xlsx';
        my @email_to            = ( 'Stefan_S <stefan_s@domain.de>' );

        foreach $email_to ( @email_to ) {
                Email::Stuffer  -> subject ( $email_subject.&now )
                                                -> to ( $email_to )
                                                -> from ( 'Sender <sender@domain.de>' )
                                                -> text_body ( "body\n" )
                                                -> attach_file ( $email_att )
                                                -> transport ( 'SMTP', {
                                                        host => 'my_smtp_server.de',
                                                        port => 25,
                                                        sasl_username => 'sender@domain.de',
                                                        sasl_password => 'passwort',
                                                        })
                                                -> send;
        };
}


# aktuelles Datum und aktuelle Uhrzeit ermitteln
sub now {
        my $now = strftime ( "%d.%m.%y", localtime ) . "  " . strftime ( "%H:%M:%S", localtime ) . "  :  ";
        return $now;
}


Grundsätzlich funktioniert das auch. Allerdings werden nicht alle Excel-Dateien fehlerfrei übertragen. Einige Dateien zeigen beim Öffnen mit Excel eine Fehlermeldung "Vor Excel wurde unlesbarer Inhalt ... gefunden. Möchten Sie ... wiederherstellen? ...". Nach dem Wiederherstellen ist der Inhalt teilweise unvollständig. Eine Regelmäßgkeit sehe ich nicht.

Die Excel-Dateien lassen sich vor dem Versand einwandfrei öffnen. Sende ich die Dateien mit meinem "normalen" E-Mail-Programm, kommen sie ebenfalls fehlerfrei an.

Hat jemand 'ne Idee, wie ich dem Fehler auf die Spur komme?

Danke und viele Grüße
Stefan
Last edited: 2014-04-15 18:43:11 +0200 (CEST)

View full thread Email::Stuffer Excel-Attachments teilweise defekt