How can I read post in HTML/RTF format ?
oMail := oPop3:GetMessage(1)
SaveContentMail(oMail)
STATIC PROCEDURE SaveContentMail(oMail)
LOCAL aContent := {}, Licznik := 0, oContent, cFile := ""
aContent := oMail:GetContent()
FOR Licznik := 1 TO LEN(aContent)
oContent := aContent[Licznik]
SaveLogSys("Multipart : " + IF(oContent:IsMultiPart(), "Yes", "No"))
SaveLogSys("Type : " + oContent:GetContentType())
cFile := oContent:GetFileName()
SaveLogSys("File : " + IF(cFile = NIL, "NIL", cFile))
SaveLogSys("Coding : " + oContent:GetContentTransferEncoding())
SaveLogSys(Var2Char(oContent:GetContent()))
NEXT
RETURN
result
04.07.2003;17:20:34: Multipart : No
04.07.2003;17:20:34: Type :
04.07.2003;17:20:34: File : NIL
04.07.2003;17:20:34: Coding :
04.07.2003;17:20:34: {MimeMessage}
--
Adrian Wykrota
Poland
http://www.systemy.comers.pl/alaska
