Как получить почту из папки/подпапки, отличной от INBOX?

У меня есть код для чтения почты из папки INBOX. Но я не могу читать почту из папок, отличных от INBOX. Ниже мой код, используемый для получения почты только из моего ВХОДЯЩЕГО ЯЩИКА.

; display mail but don't delete from mailbox
testmail6 ;
new mailserver,status,err,mailMsg
set mailserver=##class(%Net.POP3).%New()
set mailserver.AttachDir="d:\attach\"  ; need terminating \
set mailserver.StoreAttachToFile=1
write !,"Calling Connect"
set status=mailserver.Connect("Server.com","user","password")
if $$$ISERR(status) do DecomposeStatus^%apiOBJ(status,.err) write !,err(err),! quit
write !,"Calling Fetch to retrieve the oldest message on the server."
set status=mailserver.Fetch(1,.mailMsg,0)
if $$$ISERR(status) do DecomposeStatus^%apiOBJ(status,.err) write !,err(err),! quit
write !,"from="_mailMsg.From
write !,"to="_mailMsg.Headers.GetAt("to")
write !,"date="_mailMsg.Date
write !,"subject="_mailMsg.Subject
write !,"messagesize="_mailMsg.MessageSize
do DumpMessage(mailMsg)
quit

person Krishnamuthu    schedule 30.06.2015    source источник


Ответы (1)


К сожалению, вы не можете сделать это на любом языке, потому что POP3 вообще не поддерживает никаких папок, только список всех входящих сообщений. Такие папки поддерживаются в IMAP, но в Cache нет реализации его использования по умолчанию.
Вы можете найти здесь парень, который предлагает свой адаптер IMAP, он может вам помочь

person DAiMor    schedule 30.06.2015