Send Mail with SMTP Server

Public Function mailcall(ByVal mail_id)
 
Try
 
        SmtpServer.Credentials = New  _
 
 
        Net.NetworkCredential("taher4488@gmail.com", "*****")
        SmtpServer.EnableSsl = True
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        mail = New MailMessage()
        mail.From = New MailAddress("taher@qline-dubai.com")
        mail.To.Bcc.add(mail_id)
        mail.Subject = "Test Mail"
        mail.IsBodyHtml = True
        mail.Body = "This is for testing SMTP mail"
        'Dim attachment As System.Net.Mail.Attachment
        'attachment = New System.Net.Mail.Attachment("C:\Users\Taher\Pictures\24072011.jpg")
        'mail.Attachments.Add(attachment)
        SmtpServer.Send(mail)
        MsgBox("mail send")
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
    Me.close()
End Function
'and call with
 
    For i = 0 To ds.Tables(0).Rows.Count - 1
        send_mail.mailcall(ds.Tables(0).Rows(i).Item(0).ToString)
    Next