Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                                         Handles Button1.Click

        Try
            ''差出人
            Dim maFrom As New MailAddress("from@vbstation.net", "FromDispName")
            ''宛先
            Dim maTo As New MailAddress("to@vbstation.net", "ToDispName")

            ''MailMessage生成
            Dim mm As New MailMessage(maFrom, maTo)
            With mm
                ''ヘッダーに追加
                mm.Headers.Add("Content-Transfer-Encoding", "7bit")
                ''見出し
                .Subject = "サブジェクト"
                ''本文
                .Body = "ここに本文を記述します"
                .BodyEncoding = System.Text.Encoding.GetEncoding("ISO-2022-JP")
                ''添付ファイル
                .Attachments.Add(New Attachment("C:\TEST\files.csv"))
            End With

            ''SMTPクライアント
            Dim smtp As New SmtpClient("mail.server")

            ''基本認証(必要な場合)
            smtp.Credentials = New System.Net.NetworkCredential("iserid", "password")

            ''メール送信
            smtp.Send(mm)

            ''後始末
            mm.Dispose()

            MessageBox.Show("送信完了")

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

End Class