Hallo allerseits,
vielleicht kann mir jemand von euch helfen, bei diesem Code:
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
use warnings;
use strict;
use Encode;
use MIME::Lite;
use MIME::Base64;
my $user = "ich\@web.de";
my $pass = "geheim";
my $subject = "wichtig";
my $server = "smtp.web.de";
my $msg = MIME::Lite->new(
To => "sonstwer\@web.de",
From => "ich\@web.de",
Subject => encode("MIME-B", $subject),
Type => "Multipart/Related"
);
$msg->attach(
Type => 'text/html; charset=UTF-8',
Data => qq{ <body>
<table cellspacing="0" cellpadding="0">
<tr><td>trüdel lüdel lüüüüü</td></tr>
<tr><td><img src="cid:0001.png"></td></tr>
</table>
</body>}
);
$msg->attach(
Type => 'image/png',
Path => 'pg_0001.png',
Id => '0001.png'
);
$msg->send("smtp", "smtp.web.de", AuthUser=>$user, AuthPass=>$pass);
Das ist für mich leider nicht mehr weiter nachvollziehbar, dass ich gestern mehrmals erfolgreich diese Email an verschiedene Empfänger (2 private testmailadressen) schicken konnte. Aber irgendwann war dann plötzlich schluss damit. Ich habe es auch schon über einen anderen smpt server versucht, doch eben leider auch ohne Erfolg.
Was ich auch versuche, ich erhalte immer die Fehlermeldung von Perl:
SMTP Failed to connect to mail server: Das Argument ist ungültig ./mailtest.pl line 39
Zeile 39 ist aber so, wie sie da steht korrekt! Auf den Seiten von
MIME::Lite wird das exakt so angegeben. Der Debugswitch hilft mir da leider momentan auch nicht viel weiter, weil nicht mal das Skript ausgeführt wird, wie ihr euch ja vorstellen könnt.
EDIT: Wenn ich übrigens Zeile 39 rausnehme, dann läuft das Skript fehlerfrei durch ;) ... ich raffs einfach nicht, was daran falsch sein soll!
Gruß, IceRage
Last edited: 2011-04-12 09:45:44 +0200 (CEST)