Opened by Alter at 2008-02-27 09:07
User since
2008-02-27
67 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-02-27
67 Artikel
BenutzerIn
Guten Morgen,
ich habe da ein kleines/großes problem. und zwar möchte ich aus einer DB auslesen und diese dann per mail verschicken. (dies geht auch) aber die mail soll also html mail ankommen da ich die daten in einer tabelle ausgeben will.
die ist mein perl code
und nun die ausgabe der mail die ich bekomme.
ich hoffe ihr könnt mir helfen.
schon mal vielen dank und noch einen schönen tag.
Alter
ich habe da ein kleines/großes problem. und zwar möchte ich aus einer DB auslesen und diese dann per mail verschicken. (dies geht auch) aber die mail soll also html mail ankommen da ich die daten in einer tabelle ausgeben will.
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
48
49
50
51
52
53
#!/usr/bin/perl -w
use strict;
use DBI;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);
print "Content-type: text/html\n\n";
my $sendmail = "/usr/lib/sendmail";
my $an_name = "Martin Alter";
my $mail_adr_an = '****';
my $von_name = "Martin Alter";
my $mail_adr_von = '****';
my $betreff = "Hallo";
my $text = "Hallo wenn ich das hier lese bin ich zufrieden";
my $dbh = DBI -> connect("DBI:mysql:jung3r","jung3r","******")or die "connection failed $DBI::errstr";
my $auswertung = $dbh -> prepare("SELECT * FROM bilder");
$auswertung -> execute or die $auswertung -> errstr;
$dbh -> disconnect();
open (MAIL, "|$sendmail -t") or die ("Fehler $!");
print MAIL qq|To: "$an_name" <$mail_adr_an>\n|;
print MAIL qq|From: "$von_name" <$mail_adr_von>\n|;
print MAIL qq|Subject: $betreff\n\n|;
print MAIL "Content-Type: text/html\n\n";
print MAIL " charset=\"iso-8859-1\"\n";
print MAIL "Content-Transfer-Encoding: quoted-printable\n\n";
print MAIL "<html>";
print MAIL "<head>";
print MAIL "<title>Start</title>";
print MAIL '<meta name="author" content="alter">';
print MAIL "</head>";
print MAIL '<body text="#000000" bgcolor="#80FF80" link="#FF0000" alink="#FF0000" vlink="#FF0000">';
print MAIL "<table border=1>";
print MAIL "<tr>";
print MAIL "<td><b>Vorname</b></td><td><b>Name</b></td><td><b>Abteilung</b></td><td><b>Zimmer</b></td>";
print MAIL &schleife;
print MAIL "</body>";
print MAIL "</html>";
close (MAIL) or die ("Fehler beim Schließen. Grund : $!");
sub schleife {
while(my $data = $auswertung -> fetchrow_hashref) {
print MAIL "<tr>";
print MAIL "<td>$$data{'Vorname'}</td>";
print MAIL "<td>$$data{'name'}</td>";
print MAIL "<td>$$data{'Abteilung'}</td>";
print MAIL "<td>$$data{'zimmer'}</td>";
print MAIL "</tr>";
}
}
die ist mein perl code
und nun die ausgabe der mail die ich bekomme.
Code: (dl
)
1
2
3
4
5
6
Content-Type: text/html
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<html><head><title>Start</title><meta name="author" content="alter"></head><body text="#000000" bgcolor="#80FF80" link="#FF0000" alink="#FF0000" vlink="#FF0000"><table border=1><tr><td><b>Vorname</b></td><td><b>Name</b></td><td><b>Abteilung</b></td><td><b>Zimmer</b></td><tr><td>werwe</td><td>ewrw</td><td>wer</td><td>wer</td></tr><tr><td>aaa</td><td>aa</td><td>aaa</td><td>aaa</td></tr><tr><td>aaa</td><td>aaa</td><td>aaa</td><td>aaa</td></tr></body></html>
ich hoffe ihr könnt mir helfen.
schon mal vielen dank und noch einen schönen tag.
Alter
The only way to survive! Before and after the year 2000, 3000, 4000, ... and tomorrow, too! Linux forever