Opened by Rocco at 2005-11-18 15:53
User since
2005-11-18
37 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-11-18
37 Artikel
BenutzerIn
ich hab das mailfile script von matt wright und möchte es erweitern, damit es auch möglich ist .docs oder pdfs zu versenden, momentan versendet es nur txts die direkt in die email reingeschrieben werden.
hab ein bischen rumprobiert aber ausser dem obligatorischen
Internal server error kommt nichts dabei raus.
hab mich daran orientiert: http://wiki.perl-community.de/bin....chments
und versucht diesen code hier zu integrieren:
das ist nicht das ganze script nur der teil mit dem versenden
danke für weitere hilfe
hab ein bischen rumprobiert aber ausser dem obligatorischen
Internal server error kommt nichts dabei raus.
hab mich daran orientiert: http://wiki.perl-community.de/bin....chments
und versucht diesen code hier zu integrieren:
das ist nicht das ganze script nur der teil mit dem versenden
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
54
55
56
57
58
59
60
61
$attach = $Form{'fileattach'};
sub send_mail {
if ($form_letter ne "") {
push (@files,$form_letter);
}
foreach $file (@files) {
if (-e "$filebase/$file") {
open(MAIL,"|$mailprog -t");
print MAIL "To: $email ($realname)\n";
print MAIL "From: $fromaddr ($fromname)\n";
if ($organization) {
print MAIL "Organization: $organization\n";
}
else {
print MAIL "Organization: Auto sent file\n";
}
print MAIL "Subject: Ab-Hof-Verkaufs-Preisliste\n";
print MAIL "X-Courtesy-Of: SendIt! 1.0\n\n";
open(INPUT,"$filebase/$file")||&error;
while (<INPUT>) {
chop $_;
print MAIL $_,"\n";
}
close (INPUT);
if($attach ne "") {
hier hab ichs versucht, ohne erfolg
}
close (MAIL);
}danke für weitere hilfe