Question

我有问题！我发送带有smtp的邮件，但我无法发送附件。我需要发送附件！我有这两行，但它不起作用。

$NET_SMTP_MODUL->datasend("Content-Disposition: attachment; filename=". $MAILPARAM_ATTACHMENT ."\n");
$NET_SMTP_MODUL->datasend("Content-Type: application/text; name=Attachment.txt");

Answer 1

使用Net :: SMTP会让您的生活变得更加艰难。谁有时间手工制作SMTP交易？

我建议改为查看Email::Stuffer。

Answer 2

检查以下网址以发送带附件的电子邮件

Not able to type anything in intellij idea terminal latest version on Windows 10：有关使用"How do I send an email with Perl (including an attachment)?"（已弃用）或MIME::Lite（已弃用）或Mail::Sender的提示从2000年手工制作或Mail::Send和Mail::Sendmail（核心模块）和MIME::QuotedPrint（核心模块）。
MIME::Base64：有关使用2008年"Send mail with attachment using only SMTP"的提示。

Answer 3

那么......做什么？

Net::SMTP，Mail::Sendmail，Mail::Send：仅在您想自己进行附件处理时。这可能很棘手。根据需要使用MIME::QuotedPrint（核心模块）和MIME::Base64（核心模块）。
Mail::Sender，MIME::Lite：已弃用！
Email::Stuffer：听起来不错。
Email::MIME和IO::All以及Email::Sender::Simple：见下文！

以下是使用Email::MIME，IO::All和Email::Sender::Simple的示例。

use Email::MIME; # yum install perl-Email-MIME
use IO::All; # yum install perl-IO-All
use Email::Sender::Simple qw(sendmail); # yum install perl-Email-Sender;
use Sys::Hostname;

my $hostname = hostname;
my $pwuid    = getpwuid( $< );
my $to       = 'someone@example.com';
my $cc       = join(',', ('foo@example.com','bar@example.com'));
my $from     = "$pwuid\@$hostname";

# We have a text part and an CSV part
# Send a file identified by `$filename` (a temporary file, actually) that
# should appear to be named `$finalFilename`.

my @parts;

push @parts, Email::MIME->create(
   attributes => {
      filename     => $finalFilename,
      content_type => 'text/csv',
      disposition  => 'attachment',
      encoding     => 'base64',
      name         => $finalFilename
   },
   body => io($filename)->all
);

# Create an inline text part

my $txtmsg = <<"TXTMSG";
File automatically generated on machine '$hostname' by user '$pwuid'.
TXTMSG

push @parts, Email::MIME->create(
   attributes => {
      content_type => 'text/plain',
      disposition  => 'inline',
      encoding     => 'quoted-printable',
      charset      => 'UTF-8',
   },
   body_str => $txtmsg
);

# Pack it into an email

my $email = Email::MIME->create(
   header_str => [ To      => $to,
                   Cc      => $cc,
                   From    => $from,
                   Subject => $finalFilename ],
   parts => [ @parts ]
);

# Debugging; this should be controlled by a "verbose" flag

print STDERR $email->as_string;

# Send to the local MTA which will forward, hopefully.
# This is the sendmail() of Email::Sender::Simple

my $response = sendmail($email);

# Tell the user

if (!$response) {
   print STDERR "An error occurred, got $response as response from 'sendmail: $Mail::Sendmail::error'\n";
   print STDERR $Mail::Sendmail::log;
   exit 1
}
else {
   print STDERR "Mail given to MTA!\n";
   exit 0
}

Perl使用net :: smtp发送带附件的电子邮件

3 个答案: