PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Wie kann ich mir Perl Mails mit Anhängen versenden?


Crockett
13-06-2002, 10:18
einiges habe ich schon ausprobiert:
folgenden Script sagt z.B.
Recipient names must be specified
obwohl ich $to gesetzt hatte


#!/usr/bin/perl

use MIME::Base64;

open (F, "<$datei");
binmode F;
undef $/;
$encoded=encode_base64(<F>);
close F;
$from =~ s/@/\@/g;
$to =~ s/@/\@/g;
$zeit=time();
$text="<html><body>Hier steht der HTML-E-Mail-Text und z.B. ein JPG-Image: <img src=\"cid:$zeit$tmail\"></body></html>";
$Betreff = "E-Mail-Betreff";
$BOUNDARY = "--";
open(MAIL, "|/usr/sbin/sendmail") || die ("Could not send out email");
print MAIL "From: $fromname <$from>\n";
print MAIL "To: $to\n";
print MAIL "Subject: $Betreff\n";
print MAIL "X-CGIScript: Niki (http://www.nikis.de)\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-type: multipart/related;\n\tboundary=$BOUNDARY\n";
print MAIL "\n";
print MAIL "\n--$BOUNDARY\n";
print MAIL "Content-type: text/html; charset=Windows-1252\n";
print MAIL "\n";
print MAIL "$text\n";
print MAIL "\n--$BOUNDARY\n";
print MAIL "Content-Disposition: attachment; filename=\"$dateiname\"\n";
print MAIL "Content-type: image/jpeg;\tname=\"$dateiname\"\n";
print MAIL "Content-Transfer-Encoding: base64\n";
print MAIL "Content-ID: <$zeit$to>\n";
print MAIL "\n";
print MAIL $encoded;
print MAIL "\n--$BOUNDARY--\n";
close (MAIL);