‘ Create a mailman object for sending email.
Dim mailman As New Chilkat.MailMan()
‘ Any string passed to UnlockComponent automatically begins a 30-day trial.
Dim success As Boolean
success = mailman.UnlockComponent(“Hello World”)
If (success true) Then
MsgBox(mailman.LastErrorText)
Exit Sub
End If
‘ Set the SMTP server.
mailman.SmtpHost = “smtp.earthlink.net”
‘ Create an email with multiple BCC recipients.
Dim email As New Chilkat.Email()
‘ Set the basic email stuff: body, subject, “from”, “to”
email.Body = “This is the email body”
email.Subject = “This is the email subject”
email.AddTo(“Chilkat Support”, “support@chilkatsoft.com”)
email.From = “Programmer “
‘ To add multiple BCC recipients, you can call AddBcc multiple times
‘ and/or call AddMultipleBcc with a comma-separated list of email addresses.
‘ Either method can be called any number of times. Chilkat automatically
‘ removes duplicates.
email.AddBcc(“”, “sales@chilkatsoft.com”)
email.AddBcc(“Chilkat HR”, “hr@chilkatsof.com”)
email.AddMultipleBcc(“Jack Frost , matt@chilkatsoft.com, Bob “)
success = mailman.SendEmail(email)
If success Then
MessageBox.Show(“Sent BCC email!”)
Else
MessageBox.Show(mailman.LastErrorText)
End If