Read Email with Progress Monitoring

Download Chilkat Email ActiveX

Demonstrates how to use event callbacks to read e-mail in Visual Basic 6.0 using the Chilkat mail component. The callbacks include an abort flag which can be set to force the mail reading to abort.

' When using events, you must declare the mailman "withevents"
Public WithEvents mailman As ChilkatMailMan2

Private Sub Command2_Click()

    mailman.MailHost = "mail.chilkatsoft.com"
    mailman.PopUsername = "****"
    mailman.PopPassword = "****"
    
    Dim bundle As ChilkatEmailBundle2
    
    ' Copy the email from the POP3 server without removing it.
    ' The progress bar will update with the percentage completion as
    ' the CopyMail proceeds.
    Set bundle = mailman.CopyMail()
    
End Sub

Private Sub mailman_ReadPercentDone(ByVal percentDone As Long, abort As Long)
    ' Set abort = 1 if you wish to abort.
    ProgressBar1.Value = percentDone
End Sub

Private Sub Form_Load()
    Set mailman = New ChilkatMailMan2
    mailman.UnlockComponent "Anything for 30-day trial"
    ProgressBar1.Value = 0
End Sub