Visual Basic

Imports System.Net.Mail

Public Class Form1

    Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click


        Dim fromAddress As New MailAddress(Email.Text, Email.Text)
        Dim toAddress As New MailAddress(ToEmail.Text, ToEmail.Text)
        Dim msg As New MailMessage(fromAddress, toAddress)
        msg.Body = Message.Text
        msg.Subject = "test message"
        msg.IsBodyHtml = True
        Dim credential As New System.Net.NetworkCredential(Email.Text, Password.Text)



        Dim mailSender As New System.Net.Mail.SmtpClient()
        mailSender.Host = "smtp.mail.yahoo.com"
        mailSender.Port = 465
        mailSender.EnableSsl = True
        mailSender.Credentials = credential




        Try
            mailSender.Send(msg)
            MsgBox("Message sent")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class

 Me.xl = CreateObject("Excel.Application")
        Me.xl.Workbooks.Add()
        xl.Visible = True

With Me.xl.Range("A" & ii, "E" & ii)

            .ColumnWidth = 20
            .Interior.ColorIndex = 14
end with