如何用Perl脚本通过Gmail发送邮件？技术求助

让我们一步步拆解你遇到的问题，逐个击破：

1. 第一个错误：文件路径不可读 #

你收到的"/home/zmumba/ZMD_Proj/Docs/Reporting" not readable提示，是因为你把目录路径传给了attach方法的Path参数——MIME::Lite需要的是具体的文件路径，而不是文件夹。你需要把路径修正为指向office_lyout.png的完整路径，比如：

Path => '/home/zmumba/ZMD_Proj/Docs/Reporting/office_lyout.png'

2. 第二个错误：Email::Send::Gmail的用法错误 #

Email::Send::Gmail模块根本没有new方法，它的调用逻辑和你预想的完全不同。而且这个模块已经多年没有更新，属于过时工具，不推荐继续使用。更好的选择是回到MIME::Lite，配合SMTP协议直接连接Gmail的邮件服务器。

3. 第三个错误：误用IMAP模块发邮件 #

Net::IMAP::Simple::SSL是用来接收邮件的IMAP客户端模块，和发送邮件完全不相关——发邮件需要用SMTP协议，所以你调用它的attach方法必然报错。

正确的Perl脚本示例（用MIME::Lite发送带附件的Gmail） #

下面是修正后的完整脚本，几个关键注意点要记牢：

• Gmail的SMTP服务器是smtp.gmail.com，端口465，必须用SSL加密连接
• 如果你开启了Google账号的两步验证，必须使用应用专用密码代替普通登录密码；如果没开启两步验证，需要临时允许账号的“不太安全的应用访问”（仅限测试，建议优先开启两步验证用专用密码）
• 确保附件路径是准确的文件路径

#!/usr/bin/perl
use strict;
use warnings;
use MIME::Lite;

# 配置Gmail账号信息
my $gmail_user = 'zmumba@gmail.com';
my $gmail_pass = '你的应用专用密码/普通密码';

# 创建邮件对象
my $msg = MIME::Lite->new(
    From    => $gmail_user,
    To      => $gmail_user,
    Subject => 'My office photo',
    Type    => 'multipart/mixed'
);

# 添加图片附件（修正为完整文件路径）
$msg->attach(
    Type     => 'image/png',
    Path     => '/home/zmumba/ZMD_Proj/Docs/Reporting/office_lyout.png',
    Filename => 'office_layout.png'  # 这里帮你修正了拼写错误：lyout → layout
);

# 添加文本内容
$msg->attach(
    Type => 'TEXT',
    Data => 'I hope you can use this!'
);

# 通过Gmail SMTP服务器发送邮件
$msg->send(
    'smtp',
    'smtp.gmail.com',
    SSL     => 1,
    Port    => 465,
    AuthUser => $gmail_user,
    AuthPass => $gmail_pass
);

print "邮件发送成功！\n";

额外注意事项 #

• 如果遇到SMTP连接失败，先检查Google账号安全设置：优先开启两步验证生成应用专用密码，测试时再考虑临时允许不太安全的应用访问
• 确保你的Perl环境安装了MIME::Lite和IO::Socket::SSL模块（SSL连接依赖后者），如果没安装，用CPAN安装：

cpan MIME::Lite IO::Socket::SSL

内容的提问来源于stack exchange，提问作者Zilore Mumba