我已经知道3年前发布的内容 - > How can I read messages in a Gmail account from Perl?
但是我无法打开身体..我已经知道Net :: IMAP ::简单和电子邮件::简单; 。我正在尝试这个...但是不起作用,它打印出主体和主体,但不是身体。
use strict;
use warnings;
# required modules
use Net::IMAP::Simple;
use Email::Simple;
use IO::Socket::SSL;
# fill in your details here
my $username = 'email@gmail.com';
my $password = 'pass';
my $mailhost = 'imap.gmail.com';
# Connect
my $imap = Net::IMAP::Simple->new(
$mailhost,
port => 993,
use_ssl => 1,
) || die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n";
# Log in
if ( !$imap->login( $username, $password ) ) {
print STDERR "Login failed: " . $imap->errstr . "\n";
exit(64);
}
# Look in the the INBOX
my $nm = $imap->select('INBOX');
# How many messages are there?
my ($unseen, $recent, $num_messages) = $imap->status();
print "unseen: $unseen, recent: $recent, total: $num_messages\n\n";
## Iterate through unseen messages
for ( my $i = 1 ; $i <= $nm ; $i++ ) {
if ( $imap->seen($i) ) {
next;
}
else {
my $es = Email::Simple->new( join '', @{ $imap->top($i) } );
my $text = $es->body;
printf( "[%03d] %s\n\t%s\n%s", $i, $es->header('From'), $es->header('Subject'),$text);
}
}
# Disconnect
$imap->quit;
exit;
此印刷品:
[001] <example@example.com>
test subject
不是电子邮件的正文。
任何人都可以解决这个问题吗?
提前致谢。
答案 0 :(得分:1)
问题在于你正在使用:
$imap->top($i)
来自the documentation(强调我的):
此方法接受消息编号作为其必需参数。那 将从当前选定的文件夹中检索邮件。上 成功此方法返回包含行的列表引用 标题。失败时返回任何内容并且errstr()错误 处理程序设置了错误消息。
top
不会返回邮件正文。您需要使用get
。像这样:
my $es = Email::Simple->new( join '', @{ $imap->get($i) } );
^^^