[求助] maildrop重组邮件 maildrop, 邮件

yong160

我想用maildrop把一封邮件做成附件发给接收者，求高手给个解决办法？

iteeqg

use Net::SMTP;
                my $mailhost = "127.0.0.1";
                my $mailfrom = 'TEST;
                my @mailto = ("$user\@$domain");
                my $subject = "TEST";
                my $text = `/home/file`;
                my $smtp = Net::SMTP->new($mailhost, Hello => 'localhost', Timeout => 120, Debug => 1);
                $smtp->auth('TEST','TEST');
                foreach my $mailto (@mailto) {
                $smtp->mail($mailfrom);
                $smtp->to($mailto);
                $smtp->data();
                $smtp->datasend("To: $mailto\n");
                $smtp->datasend("From: $mailfrom\n");
                $smtp->datasend("Subject: $subject\n");
                $smtp->datasend("\n");
                $smtp->datasend("$text\n\n");
                $smtp->dataend();


perl的程序发送好像是可以的哦

yong160

你的意思是把/home/file这个文件作为附件发送过去吗？
那我又怎样把这个邮件先保存下来呢？

yong160

你的意思是把/home/file这个文件作为附件发送过去吗？
那我又怎样把这个邮件先保存下来呢？