'送信者 Dim senderMail As String = "sender@xxx.xxx" '宛先 Dim recipientMail As String = "recipient@xxx.xxx" '件名 Dim subject As String = "こんにちは" '本文 Dim body As String = "こんにちは。" + vbCrLf + vbCrLf + "それではまた。" Dim sc As New System.Net.Mail.SmtpClient() 'SMTPサーバーを指定する sc.Host = "localhost" 'メールを送信する sc.Send(senderMail, recipientMail, subject, body)