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] 폴더 없음 휴지통 (실패) " 이름 :/휴지통, [imap] 휴지통 등 유사한 결과를 사용하려고했습니다. 다른 메일 서비스에서 작동해야합니다!

은 내가

Answer 1

Mail::IMAPClient이 RFC6154like Gmail을 지원하는 IMAP 서버에 아래의 코드를 사용해보십시오 사용합니다. 휴지통 폴더 이름을 감지해야합니다.

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)) { 
    ... 
}