☰

使用 Perl 读取电子邮件标题

tag-icon • tag-icon email perl headers
使用 Perl 读取电子邮件标题

我有一个电子邮件帐户（[电子邮件保护]) 和别名 ([电子邮件保护]）指向该帐户。一封电子邮件已发送至[电子邮件保护]交付至[电子邮件保护]正如预期的那样。

MS Outlook 中的电子邮件标题将“收件人”地址显示为[电子邮件保护]。但是，当通过 Perl 脚本获取邮件时，邮件内容显示“收件人”地址为[电子邮件保护]，根本没有出现别名地址。

我想通过 Perl 脚本获取原始“收件人”地址（在本例中为别名）。我应该怎么做？

这是 perl 脚本：

use Mail::POP3Client;
my $pop3 = new Mail::POP3Client(
USER => '[email protected]',
PASSWORD => 'password',
HOST => 'mail.domain.com'
);
die 'Connection failed: ' . $pop3->Message() . "\n" if $pop3->Count() == -1;
print "Most recent message: \n" . $pop3->Retrieve($pop3->Count()) . "\n";
$pop3->Close();

相关内容