将发送的邮件保存到＆＃34; .msg＆＃34;格式

Question

我正在尝试将从Outlook发送的所有邮件保存到特定文件夹。这是我试过的代码。

use Mail::Outlook;
my $outlook = new Mail::Outlook();
my $outlook = new Mail::Outlook('Sent Items');
my $folder = $outlook->folder();
my $folder = $outlook->folder('Sent Items');
$message = $folder->first();
$text = $message->Subject();
$test=$message->{message}->SaveAs("C:\\mail\\$text.msg");
print $text;  

以上代码可以保存一封邮件。如何循环浏览所有已发送的邮件并将其另存为＆＃34; .msg＆＃34;文件。任何帮助，将不胜感激。

Answer 1

这应该这样做：

while (my $message = $folder->next()) {
    my $text = $message->Subject();
    my $test = $message->{message}->SaveAs("C:\\mail\\$text.msg");
}

只要邮件在文件夹中即可迭代。