Visual Basic

Public Class Mail
    Public Sub SendEmail(ByVal message As String, ByVal email As String)
        '   The next two lines can be condensed down to one.
        'Dim mymail As MailMessage = New MailMessage
        'mymail = New MailMessage
        '   becomes
        Dim mymail As New MailMessage
        With mymail
            .From = "adrideba@yahoo.com"
            .To = email
            .Subject = "Test"
            .BodyFormat = MailFormat.Text
            .Body = message
        End With
        SmtpMail.SmtpServer = "smtp.mail.yahoo.com"
        SmtpMail.Send(mymail)
    End Sub
End Class
 
' To run this in a button click event handler:
Private Sub SendMailButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendMailButton.Click
    Dim myMailClass As New Mail
    myMailClass.SendEmail("message text goes here", "person@somewhere.com")
End Sub