Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 送信者 Dim senderMail As String = "sender" ' 宛先 Dim recipientMail As String = "recipient" '件名 Dim subject As String = "こんにちは" '本文 Dim body As String = "こんにちは。" + vbCrLf + vbCrLf + "それではまた。" Dim sc As New System.Net.Mail.SmtpClient() 'SMTPサーバーを指定する sc.Host = "host" ' ポートを指定する sc.Port = "587" ' OP25Bが実施されている場合 '認証情報を指定する ' 必要な場合は指定する sc.Credentials = New System.Net.NetworkCredential("userID", "pass") 'SSLの指定 sc.EnableSsl = False 'メールを送信する sc.Send(senderMail, recipientMail, subject, body) End Sub