so hab mir das mal durchgelesen !
in line 7 steht:
use Modules::MIME::Lite;
wie müsste das denn dann heißen ?
oder so das ist der komplette code der datei:
# Thanks to Dave Dreezer for his work on UBB Mail!
sub ubb_mail {
local ($EmailTo, $EmailFrom, $BCCList, $Subject, $TextMessage, $HTMLMessage, $CCList) = @_;
use lib "$vars_config{CGIPath}/Modules/";
use Modules::MIME::Lite;
my $msg = MIME::Lite->new(
To => $EmailTo,
From => $EmailFrom,
cc => $CCList,
Bcc => $BCCList,
Subject => $Subject,
Type => 'multipart/mixed',
);
if ($TextMessage ne '') {
my $text_message = $msg->attach(Type => 'text/plain',
Data => [$TextMessage]);
}
if ($HTMLMessage ne '' ) {
my $html_message = $msg->attach(Type => 'text/html',
Data => [$HTMLMessage]);
}
if ($vars_email{SMTPEmail} eq 'On') {
MIME::Lite->send('smtp', "$vars_email{EmailServer}");
} else {
MIME::Lite->send('sendmail', "$vars_email{SendMailLocation} -t -oi");
}
#elsif ($MailType eq 'Other') {
# MIME::Lite->send('sendmail', "$OtherMailProgPath $ExtraArgs");
#print "you have not chosen a mail delivery method!";
$msg ->send;
} # end ubb_mail subroutine
1;
Was muss man daran ändern ?
[ June 12, 2001 06:57 AM: Message edited by: Dr.Freeze ]
