home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / 9TOOL / SMTPOP32.ZIP / SMTPOP.BA_ / SMTPOP.BA
Text File  |  1998-02-27  |  19KB  |  190 lines
  1. Attribute VB_Name = "smtpop"
  2. 'SMTPOP.BAS  smtpop16 & smtpop32 Interface for Visual Basic v4.0 For Windows
  3. '
  4. 'Copyright(c) 1997, H&S Technology, Inc.
  5.  
  6. #If Win32 Then
  7. ' Declarations for 32 bits smtpop
  8. Declare Function smtp_Version Lib "smtpop32.dll" () As Long
  9. Declare Function smtp_LoginMail Lib "smtpop32.dll" (ByVal hostname As String, ByVal username As String, ByVal mailid As String, ByVal localdomain As String) As Long
  10. Declare Function smtp_InitMail Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  11. Declare Function smtp_To Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal ToUser As String) As Long
  12. Declare Function smtp_Cc Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal Cc As String) As Long
  13. Declare Function smtp_Bcc Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal Bcc As String) As Long
  14. Declare Function smtp_Subject Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal Subject As String) As Long
  15. Declare Function smtp_OpenData Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  16. Declare Function smtp_WriteData Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String) As Long
  17. Declare Function smtp_WriteRawData Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String) As Long
  18. Declare Function smtp_CloseData Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  19. Declare Function smtp_MailBodyText Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String) As Long
  20. Declare Function smtp_Noop Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  21. Declare Function smtp_Abort Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  22. Declare Function smtp_Verify Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal cmd As String, ByVal buffer As String, ByVal blen As Long) As Long
  23. Declare Function smtp_Expand Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal cmd As String, ByVal buffer As String, ByVal blen As Long) As Long
  24. Declare Function smtp_Help Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal cmd As String, ByVal buffer As String, ByVal blen As Long) As Long
  25. Declare Function smtp_GetReply Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  26. Declare Function smtp_ReplyCode Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  27. Declare Function smtp_LastMsg Lib "smtpop32.dll" (ByVal buffer As String, ByVal blen As Long) As Long
  28. Declare Function smtp_Quit Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  29. Declare Function smtp_SendMail Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal ToUser As String, ByVal Cc As String, ByVal Bcc As String, ByVal Subject As String, ByVal Msg As String, ByVal attachfiles As String, ByVal eflag As Long) As Long
  30. Declare Function smtp_AddAttachFile Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal fname As String, ByVal filetype As Long, ByVal subtype As String, ByVal encode_type As Long) As Long
  31. Declare Function smtp_EnableLog Lib "smtpop32.dll" (ByVal logfile As String, ByVal options As Long) As Long
  32. Declare Function smtp_DisableLog Lib "smtpop32.dll" () As Long
  33. Declare Function smtp_Date Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal Sdate As String) As Long
  34. Declare Function smtp_SetTimeZone Lib "smtpop32.dll" (ByVal Tzone As String) As Long
  35. // New for version 2.1
  36. Declare Function smtp_SetTimeOut Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal tval As Long) As Long
  37. Declare Function smtp_DefaultTimeOut Lib "smtpop32.dll" (ByVal timeout As Long) As Long
  38. Declare Function smtp_SetFromAddr Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal from_addr As String) As Long
  39. Declare Function smtp_LoginMailPort Lib "smtpop32.dll" (ByVal hostname As String, ByVal al_port As Long, ByVal username As String, ByVal mail_id As String, _
  40.                  ByVal localdomain As String) As Long
  41. // New for version 2.2
  42. Declare Function smtp_SetProgressBar Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal On_Off As Long) As Long
  43. Declare Function smtpop_DefaultProgressBar Lib "smtpop32.dll" (ByVal On_Off As Long) As Long
  44.  
  45. Declare Function pop3_NewHandle Lib "smtpop32.dll" () As Long
  46. Declare Function pop3_Login Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal hostname As String, ByVal username As String, ByVal password As String) As Long
  47. Declare Function pop3_LoginMail Lib "smtpop32.dll" (ByVal hostname As String, ByVal username As String, ByVal password As String) As Long
  48. Declare Function pop3_DeleteMail Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  49. Declare Function pop3_GetMailSize Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  50. Declare Function pop3_GetReply Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  51. Declare Function pop3_GetResults Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  52. Declare Function pop3_LastMailRead Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  53. Declare Function pop3_LastMsg Lib "smtpop32.dll" (ByVal buffer As String, ByVal blen As Long) As Long
  54. Declare Function pop3_ListMails Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  55. Declare Function pop3_MailStatus Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  56. Declare Function pop3_Noop Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  57. Declare Function pop3_Quit Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  58. Declare Function pop3_ResultsSize Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  59. Declare Function pop3_ResetMail Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  60. Declare Function pop3_RetrieveMail Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  61. Declare Function pop3_GetMailHeader Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  62. Declare Function pop3_GetMailFrom Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  63. Declare Function pop3_GetMailTo Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  64. Declare Function pop3_GetMailCc Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  65. Declare Function pop3_GetMailDate Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  66. Declare Function pop3_GetMailSubject Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  67. Declare Function pop3_RetrieveIntoFile Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal filename As String, ByVal oflag As Long) As Long
  68. Declare Function pop3_GetAttachedName Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal filename As String, ByVal flen As Long, ByVal startpos As Long) As Long
  69. Declare Function pop3_GetAttachedType Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal contenttype As String, ByVal flen As Long, ByVal startpos As Long) As Long
  70. Declare Function pop3_SaveAttachedTo Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal filename As String, ByVal oflag As Long) As Long
  71. Declare Function pop3_OpenMailFile Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal filename As String) As Long
  72. Declare Function pop3_GetAttachCount Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  73. Declare Function pop3_OpenAttached Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  74. Declare Function pop3_ReadAttached Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  75. Declare Function pop3_OpenReadBodyText Lib "smtpop32.dll" (ByVal lHandle As Long) As Long
  76. Declare Function pop3_ReadBodyText Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  77. // New for version 2.1
  78. Declare Function pop3_SetTimeOut Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal tval As Long) As Long
  79. Declare Function pop3_LoginPort Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal hostname As String, ByVal al_port As Long, _
  80.                   ByVal user As String, ByVal pass As String) As Long
  81. Declare Function pop3_GetDispositionType Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_buffer As String, _
  82.                  ByVal al_blen As Long, ByVal startpos As Long) As Long
  83. Declare Function pop3_GetDispositionFname Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_buffer As String, _
  84.                  ByVal al_blen As Long, ByVal startpos As Long) As Long
  85. Declare Function pop3_GetPartHeaders Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_buffer As String, _
  86.                  ByVal al_blen As Long, ByVal startpos As Long) As Long
  87. Declare Function pop3_GetHeaderField Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_header As String, ByVal ac_buffer As String, _
  88.                  ByVal al_blen As Long, ByVal startpos As Long) As Long
  89. Declare Function pop3_GetHeaderType Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_header As String, _
  90.                  ByVal ac_buffer As String, ByVal al_blen As Long, ByVal startpos As Long) As Long
  91. Declare Function pop3_GetParmValue Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_header As String, ByVal ac_parm As String, _
  92.                  ByVal ac_buffer As String, ByVal al_blen As Long, ByVal startpos As Long) As Long
  93. Declare Function pop3_QuickScanMail Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  94. // New for version 2.2
  95. Declare Function pop3_SetProgressBar Lib "smtpop32.dll" (ByVal lHandle As Long, ByVal On_Off As Long) As Long
  96.  
  97. #Else
  98.  
  99. ' declaration for 16 bits smtpop.dll
  100. Declare Function smtp_Version Lib "smtpop16.dll" () As Long
  101. Declare Function smtp_LoginMail Lib "smtpop16.dll" (ByVal hostname As String, ByVal username As String, ByVal mailid As String, ByVal localdomain As String) As Long
  102. Declare Function smtp_InitMail Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  103. Declare Function smtp_To Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal ToUser As String) As Long
  104. Declare Function smtp_Cc Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal Cc As String) As Long
  105. Declare Function smtp_Bcc Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal Bcc As String) As Long
  106. Declare Function smtp_Subject Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal Subject As String) As Long
  107. Declare Function smtp_OpenData Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  108. Declare Function smtp_WriteData Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String) As Long
  109. Declare Function smtp_WriteRawData Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String) As Long
  110. Declare Function smtp_CloseData Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  111. Declare Function smtp_MailBodyText Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String) As Long
  112. Declare Function smtp_Noop Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  113. Declare Function smtp_Abort Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  114. Declare Function smtp_Verify Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal cmd As String, ByVal buffer As String, ByVal blen As Long) As Long
  115. Declare Function smtp_Expand Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal cmd As String, ByVal buffer As String, ByVal blen As Long) As Long
  116. Declare Function smtp_Help Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal cmd As String, ByVal buffer As String, ByVal blen As Long) As Long
  117. Declare Function smtp_GetReply Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  118. Declare Function smtp_ReplyCode Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  119. Declare Function smtp_LastMsg Lib "smtpop16.dll" (ByVal buffer As String, ByVal blen As Long) As Long
  120. Declare Function smtp_Quit Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  121. Declare Function smtp_SendMail Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal ToUser As String, ByVal Cc As String, ByVal Bcc As String, ByVal Subject As String, ByVal Msg As String, ByVal attachfiles As String, ByVal eflag As Long) As Long
  122. Declare Function smtp_AddAttachFile Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal fname As String, ByVal filetype As Long, ByVal subtype As String, ByVal encode_type As Long) As Long
  123. Declare Function smtp_EnableLog Lib "smtpop16.dll" (ByVal logfile As String, ByVal options As Long) As Long
  124. Declare Function smtp_DisableLog Lib "smtpop16.dll" () As Long
  125. Declare Function smtp_Date Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal Sdate As String) As Long
  126. Declare Function smtp_SetTimeZone Lib "smtpop16.dll" (ByVal Tzone As String) As Long
  127. // New for version 2.1
  128. Declare Function smtp_SetTimeOut Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal tval As Long) As Long
  129. Declare Function smtp_DefaultTimeOut Lib "smtpop16.dll" (ByVal timeout As Long) As Long
  130. Declare Function smtp_SetFromAddr Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal from_addr As String) As Long
  131. Declare Function smtp_LoginMailPort Lib "smtpop16.dll" (ByVal hostname As String, ByVal al_port As Long, ByVal username As String, ByVal mail_id As String, _
  132.                  ByVal localdomain As String) As Long
  133. // New for version 2.2
  134. Declare Function smtp_SetProgressBar Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal On_Off As Long) As Long
  135. Declare Function smtpop_DefaultProgressBar Lib "smtpop16.dll" (ByVal On_Off As Long) As Long
  136.  
  137. Declare Function pop3_NewHandle Lib "smtpop16.dll" () As Long
  138. Declare Function pop3_Login Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal hostname As String, ByVal username As String, ByVal password As String) As Long
  139. Declare Function pop3_LoginMail Lib "smtpop16.dll" (ByVal hostname As String, ByVal username As String, ByVal password As String) As Long
  140. Declare Function pop3_DeleteMail Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  141. Declare Function pop3_GetMailSize Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  142. Declare Function pop3_GetReply Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  143. Declare Function pop3_GetResults Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  144. Declare Function pop3_LastMailRead Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  145. Declare Function pop3_LastMsg Lib "smtpop16.dll" (ByVal buffer As String, ByVal blen As Long) As Long
  146. Declare Function pop3_ListMails Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  147. Declare Function pop3_MailStatus Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  148. Declare Function pop3_Noop Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  149. Declare Function pop3_Quit Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  150. Declare Function pop3_ResultsSize Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  151. Declare Function pop3_ResetMail Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  152. Declare Function pop3_RetrieveMail Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  153. Declare Function pop3_GetMailHeader Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  154. Declare Function pop3_GetMailFrom Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  155. Declare Function pop3_GetMailTo Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  156. Declare Function pop3_GetMailCc Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  157. Declare Function pop3_GetMailDate Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  158. Declare Function pop3_GetMailSubject Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long, ByVal startpos As Long) As Long
  159. Declare Function pop3_RetrieveIntoFile Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal filename As String, ByVal oflag As Long) As Long
  160. Declare Function pop3_GetAttachedName Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal filename As String, ByVal flen As Long, ByVal startpos As Long) As Long
  161. Declare Function pop3_GetAttachedType Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal contenttype As String, ByVal flen As Long, ByVal startpos As Long) As Long
  162. Declare Function pop3_SaveAttachedTo Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal filename As String, ByVal oflag As Long) As Long
  163. Declare Function pop3_OpenMailFile Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal filename As String) As Long
  164. Declare Function pop3_GetAttachCount Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  165. Declare Function pop3_OpenAttached Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  166. Declare Function pop3_ReadAttached Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  167. Declare Function pop3_OpenReadBodyText Lib "smtpop16.dll" (ByVal lHandle As Long) As Long
  168. Declare Function pop3_ReadBodyText Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal buffer As String, ByVal blen As Long) As Long
  169. // New for version 2.1
  170. Declare Function pop3_SetTimeOut Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal tval As Long) As Long
  171. Declare Function pop3_LoginPort Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal hostname As String, ByVal al_port As Long, _
  172.                   ByVal user As String, ByVal pass As String) As Long
  173. Declare Function pop3_GetDispositionType Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_buffer As String, _
  174.                  ByVal al_blen As Long, ByVal startpos As Long) As Long
  175. Declare Function pop3_GetDispositionFname Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_buffer As String, _
  176.                  ByVal al_blen As Long, ByVal startpos As Long) As Long
  177. Declare Function pop3_GetPartHeaders Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_buffer As String, _
  178.                  ByVal al_blen As Long, ByVal startpos As Long) As Long
  179. Declare Function pop3_GetHeaderField Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_header As String, ByVal ac_buffer As String, _
  180.                  ByVal al_blen As Long, ByVal startpos As Long) As Long
  181. Declare Function pop3_GetHeaderType Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_header As String, _
  182.                  ByVal ac_buffer As String, ByVal al_blen As Long, ByVal startpos As Long) As Long
  183. Declare Function pop3_GetParmValue Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long, ByVal ac_header As String, ByVal ac_parm As String, _
  184.                  ByVal ac_buffer As String, ByVal al_blen As Long, ByVal startpos As Long) As Long
  185. Declare Function pop3_QuickScanMail Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal MsgNum As Long) As Long
  186. // New for version 2.2
  187. Declare Function pop3_SetProgressBar Lib "smtpop16.dll" (ByVal lHandle As Long, ByVal On_Off As Long) As Long
  188.  
  189. #End If
  190.