2015-06-30 5 views
0

У меня есть код для чтения почты из папки INBOX. Но, я не могу прочитать почту из папок, кроме 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 

ответ

0

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

+0

Thanks Mr.DAiMor – Krishnamuthu

Смежные вопросы