|
|
|
@ -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 |
