Aus Vb.Net E-Mail senden

Imports System.Net.Mail

Public Class Mail
    Public Shared exception As Exception
    Public Shared Function SendMail(ByVal MailSmtp As String, ByVal MailFrom As String, ByVal MailTo As String, ByVal MailSubject As String, ByVal MailBody As String, Optional ByVal MailCC As String = "", Optional ByVal MailBCC As String = "", Optional ByVal MyMailPriority As MailPriority = MailPriority.Normal, Optional ByVal IsBodyHtml As Boolean = False, Optional ByVal Attachment1 As String = "", Optional ByVal MailFromName As String = "", Optional ByVal useSSL As Boolean = False) As Boolean
        Try
            Dim ObjSendMail As New MailMessage(MailFrom, MailTo, MailSubject, MailBody)
            If MailFromName <> "" Then
                ObjSendMail.From = New MailAddress(MailFrom, MailFromName)
            End If
            If Attachment1 <> "" Then
                Try
                    ObjSendMail.Attachments.Add(New Attachment(Attachment1))
                Catch ex As Exception
                End Try
            End If
            If IsBodyHtml = True Then
                ObjSendMail.IsBodyHtml = True
            Else
                ObjSendMail.IsBodyHtml = False
            End If
            If MailCC > "" Then
                ObjSendMail.CC.Add(MailCC)
            End If
            If MailBCC > "" Then
                ObjSendMail.Bcc.Add(MailBCC)
            End If
            ObjSendMail.Priority = MyMailPriority
            Dim client As New SmtpClient(MailSmtp)
            client.EnableSsl = useSSL
            client.Send(ObjSendMail)
            Return True
        Catch ex As Exception
            exception = ex
            Return False
        End Try
    End Function
End Class

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mail As New Mail()
        Dim Result As DialogResult
        If mail.SendMail(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox5.Text, TextBox6.Text, TextBox4.Text, , , CheckBox1.Checked, TextBox7.Text, TextBox8.Text, CheckBox2.Checked) Then
            Result = MessageBox.Show(Me, "E-mail has been sent successfully", "Message", MessageBoxButtons.OK, _
            MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Else
            Result = MessageBox.Show(Me, mail.exception.Message, "E-mail cannot be sent", MessageBoxButtons.OK, _
            MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ofd As New OpenFileDialog
        ofd.Title = "Please select a file"
        ofd.Filter = "All files (*.*)|*.*"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim fi As New System.IO.FileInfo(ofd.FileName)
            TextBox7.Text = fi.Name
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox2.Text = My.Settings.MailFrom
        TextBox1.Text = My.Settings.MailSmtp
        TextBox8.Text = My.Settings.MailFromName
        CheckBox1.Checked = My.Settings.IsBodyHtml
        CheckBox2.Checked = My.Settings.useSSL
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        My.Settings.MailFrom = TextBox2.Text
        My.Settings.MailSmtp = TextBox1.Text
        My.Settings.MailFromName = TextBox8.Text
        My.Settings.IsBodyHtml = CheckBox1.Checked
        My.Settings.useSSL = CheckBox2.Checked
    End Sub
End Class