Yes you can, try with the following code:

Dim varHTMLMail As MailMessage

Dim varSMTPClient As SmtpClient

Dim varMailBody As Object

Dim varAddresses As String

varMailBody = Dts.Variables("varProductionSummaryHTML").Value

varAddresses = Dts.Variables("varMailTo").Value.ToString

varHTMLMail = New MailMessage()

varHTMLMail.From = New MailAddress("name1@xx.com")

varHTMLMail.Subject = "xxxxxxx"

varHTMLMail.Bcc.Add("name2@xx.com")

varHTMLMail.Bcc.Add("name3@xx.com")

varHTMLMail.Body = varMailBody

varHTMLMail.IsBodyHtml = True

varSMTPClient = New SmtpClient("mail.acitus.com") 'Your_SMTP_Server_Name

varSMTPClient.UseDefaultCredentials = True

varSMTPClient.Send(varHTMLMail)