Send Email with Progress Montoring

Download Chilkat Email ActiveX

This VB6 examples demonstrates how to send email via SMTP with progress monitoring event callbacks.

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

Private Sub Command1_Click()
    
    mailman.SmtpHost = "smtp.comcast.net"
    
    Dim email As New ChilkatEmail2
    email.Subject = "This is a test"
    email.From = "admin@chilkatsoft.com"
    email.AddTo "Support", "support@chilkatsoft.com"
    email.Body = "This is a test"
    email.AddFileAttachment "dude.gif"
    
    mailman.SendEmail email
    
    MsgBox mailman.LastErrorText
    
End Sub

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

' This is the event callback that updates the progress bar with the percentage done.
Private Sub mailman_SendPercentDone(ByVal percentDone As Long, abort As Long)
    ProgressBar1.Value = percentDone
End Sub

Private Sub mailman_AbortCheck(abort As Long)
    ' Set abort = 1 if you wish to abort.
End Sub

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