Update Mail to 1.0.8.0

Signed-off-by: Imhotheb <Info@Imhotheb.de>

PB.Ex_Mail/PB.Ex_Mail.pb

@@ -10,6 +10,11 @@ Global PBEx_Mail
 #PBEx_Mail_Event_NewMail = 0
 #PBEx_Mail_Attribute_Unseen = 0
 #PBEx_Mail_Attribute_Seen = 32
+#PBEx_Mail_SeenType_AllMails = 0
+#PBEx_Mail_SeenType_OnlySeenMails = 1
+#PBEx_Mail_SeenType_OnlyUnseenMails = 2
+#PBEx_Mail_FetchType_AllData = 0
+#PBEx_Mail_FetchType_OnlyHeaderData = 1
 
 CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
   PBEx_Mail = OpenLibrary(#PB_Any, "PB.Ex_Mail_x86.dll")
@@ -26,7 +31,7 @@ If PBEx_Mail
   Global ExamineMailDirectoryEx.ExamineMailDirectoryEx = GetFunction(PBEx_Mail, "ExamineMailDirectoryEx")
   Prototype MailDirectoryEntryNameEx(ID, Output, ErrorOutput)
   Global MailDirectoryEntryNameEx.MailDirectoryEntryNameEx = GetFunction(PBEx_Mail, "MailDirectoryEntryNameEx")
-  Prototype ExamineMailEx(ID, ErrorOutput)
+  Prototype ExamineMailEx(ID, SeenType, FetchType, SortByNew, ErrorOutput)
   Global ExamineMailEx.ExamineMailEx = GetFunction(PBEx_Mail, "ExamineMailEx")
   Prototype MailEntrySubjectEx(ID, Output, ErrorOutput)
   Global MailEntrySubjectEx.MailEntrySubjectEx = GetFunction(PBEx_Mail, "MailEntrySubjectEx")
@@ -188,7 +193,7 @@ If OpenMailEx(1, #PBEx_Mail_Protocol_IMAP, "imap.gmail.com", 993, "yourmailaddre
   ;Determine all mail from inbox
   ;Or from any directory
   ;SetMailDirectoryEx(1, "Downloadportale/Chip", @ErrorOutput$)
-  If ExamineMailEx(1, @ErrorOutput$)
+  If ExamineMailEx(1, #PBEx_Mail_SeenType_AllMails, #PBEx_Mail_FetchType_AllData, 0, @ErrorOutput$)
     While NextMailEntryEx(1, @ErrorOutput$)
       MailEntrySubjectEx(1, @Output$, @ErrorOutput$)
       Debug "Subject: " + Output$
@@ -220,14 +225,14 @@ EndIf
 
 CloseLibrary(PBEx_Mail)
 
-; IDE Options = PureBasic 5.70 LTS (Windows - x64)
-; CursorPosition = 188
-; FirstLine = 152
+; IDE Options = PureBasic 5.60 (Windows - x64)
+; CursorPosition = 201
+; FirstLine = 167
 ; Folding = -
 ; EnableXP
 ; EnableUser
 ; Executable = PB.Ex_MSSQL.exe
 ; CompileSourceDirectory
-; EnableCompileCount = 780
+; EnableCompileCount = 782
 ; EnableBuildCount = 7
 ; EnableUnicode

PB.Ex_Mail/PB.Ex_Mail.pbi

@@ -10,6 +10,11 @@ Global PBEx_Mail
 #PBEx_Mail_Event_NewMail = 0
 #PBEx_Mail_Attribute_Unseen = 0
 #PBEx_Mail_Attribute_Seen = 32
+#PBEx_Mail_SeenType_AllMails = 0
+#PBEx_Mail_SeenType_OnlySeenMails = 1
+#PBEx_Mail_SeenType_OnlyUnseenMails = 2
+#PBEx_Mail_FetchType_AllData = 0
+#PBEx_Mail_FetchType_OnlyHeaderData = 1
 
 CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
   PBEx_Mail = OpenLibrary(#PB_Any, "PB.Ex_Mail_x86.dll")
@@ -26,7 +31,7 @@ If PBEx_Mail
   Global ExamineMailDirectoryEx.ExamineMailDirectoryEx = GetFunction(PBEx_Mail, "ExamineMailDirectoryEx")
   Prototype MailDirectoryEntryNameEx(ID, Output, ErrorOutput)
   Global MailDirectoryEntryNameEx.MailDirectoryEntryNameEx = GetFunction(PBEx_Mail, "MailDirectoryEntryNameEx")
-  Prototype ExamineMailEx(ID, ErrorOutput)
+  Prototype ExamineMailEx(ID, SeenType, FetchType, SortByNew, ErrorOutput)
   Global ExamineMailEx.ExamineMailEx = GetFunction(PBEx_Mail, "ExamineMailEx")
   Prototype MailEntrySubjectEx(ID, Output, ErrorOutput)
   Global MailEntrySubjectEx.MailEntrySubjectEx = GetFunction(PBEx_Mail, "MailEntrySubjectEx")
@@ -144,10 +149,9 @@ If PBEx_Mail
   Global GetMailAttributeEx.GetMailAttributeEx = GetFunction(PBEx_Mail, "GetMailAttributeEx")
   
 EndIf
-
-; IDE Options = PureBasic 5.70 LTS (Windows - x64)
-; CursorPosition = 146
-; FirstLine = 87
+; IDE Options = PureBasic 5.60 (Windows - x64)
+; CursorPosition = 150
+; FirstLine = 91
 ; EnableXP
 ; EnableUser
 ; Executable = PB.Ex_MSSQL.exe