perl imap 将消息移至垃圾箱 (Mail::IMAPClient)

Question

我需要将所有消息从看不见的移动到垃圾箱(然后从收件箱中删除)。

my $inbox = $imap->select("Inbox");
my @mails = ( $imap->unseen );

foreach my $msgid (@mails) {
    $imap->set_flag( "Deleted", @mails )
        or die "Could not set flag: $@\n";
}

此代码完全删除消息。 (也没有删除)

我尝试使用“移动”和“复制”:

my $Trash = "Trash";
my $newUid = $imap->move( $Trash, $msgid )
    or die "Could not move: $@\n";
my $uidList = $imap->copy( $Trash, @mails )
    or die "Could not copy: $@\n";

但是“移动”创建新标记(文​​件夹)和“复制”不起作用“无法复制:6 NO [TRYCREATE] No folder Trash(Failure)”
我尝试使用名称:/Trash、[imap]Trash 等，结果类似。
这必须适用于不同的邮件服务!

我用 Mail::IMAPClient

Answer 1

对于支持 RFC6154 的 imap 服务器，请尝试使用以下代码like Gmail .它应该检测垃圾文件夹名称。

use  Mail::IMAPClient; 
 ......
my $Trash;
{
  my @Trash;
  my @fhashes = $imap->folders_hash or die "Could not get list of folder hashes.\n";
  foreach my $fhash (@fhashes) {
    next unless map { /^\\Trash$/ ? ($_) : () } @{$fhash->{attrs}};
    push (@Trash, $fhash->{name});
  }
  $Trash = pop( @Trash) if @Trash == 1;
}
if( defined( $Trash)) {
   ...
}