Thread mit perl eine mail versenden als html formatierter (15 answers)
Opened by heinz.hemer at 2005-02-14 16:55

heinz.hemer
 2005-02-14 19:19
#4402 #4402
User since
2005-02-14
6 Artikel
BenutzerIn
[default_avatar]
Vielen Dak, aber irgendwie ist da noch ein Fehler drin.

So sieht mein Script aus:
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
open(SM, "|$mail $in{'email'}");
            print SM "From: $email\n";
            print SM "Subject: $rsubject\n\n";
            foreach $part (@SR_data) {
               
 if ($parse_commands == 1) {
               
     foreach $key (@order_array) {
               
         $part =~ s/\<$key\>/$in{$key}/ig;
               
     }
               
 }
               
 print SM $part;
            }
            
                                               print SM "\n\n\nGesendet mit SmartFormMail 1.3.1";
            print SM " frei erhältlich bei\n";
            print SM "Tectonic Designs ([URL=http://tectonicdesigns.com]http://tectonicdesigns.com[/URL])\n";
            print SM << 'ENDOFDOCUMENT';

Content-type: text/html

<html><head>
<title>Meine Testmail</title></head>
<body>
<h2>Das ist eine uebschrift2</h2>
</body>
</html>

ENDOFDOCUMENT
close(SM);



Und das kommt dabei raus:

Error occurred: 500 - internal server error\n\n

<!--EDIT|renee|1108420097-->

View full thread mit perl eine mail versenden als html formatierter