intersystems-cache - 如何从收件箱以外的文件夹/子文件夹中获取邮件？

Question

我已经获得了从我的收件箱文件夹中读取邮件的代码。但是，我无法从收件箱以外的文件夹中读取邮件。下面是我用于仅从我的收件箱中获取邮件的代码。

; 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

Answer 1

不幸的是，你不能用任何语言来做，因为 POP3 根本不支持任何文件夹，只支持所有传入消息的列表。此类文件夹在 IMAP 中支持，但 Cache 没有任何默认使用它的实现。
你可以在这里找到一个提供 IMAP 适配器的人，这可能会对你有所帮助