ASP.NET －メールフォーム（添付ファイル機能付）の作成－

1.メールフォームレイアウト
送信者[ TextBox1 ]
宛先　[ TextBox2 ]
件名　[ TextBox3 ]
本文　[ TextBox4 ]

添付　[FileUpload][参照ボタン]

[Button1] 送信ボタン


2.FileUpload コントロールの設置

＜asp:FileUpload ID="FileUpload1" runat="server" /＞
※＜form＞～＜/form＞の間に記述

3.ボタンクリックイベント

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1_Click
Dim MailFrom As String
Dim MailTo As String
Dim MailSubject As String
Dim MailBody As String
Dim posted As HttpPostedFile = Request.Files("FileUpload1")

MailFrom = TextBox1.Text '送信アドレス
MailTo = TextBox2.Text '宛先アドレス
MailSubject = TextBox3.Text '件名
MailBody = TextBox4.Text '本文

'MailMessageの作成
Dim msg As New System.Net.Mail.MailMessage()
'送信者
msg.From = New System.Net.Mail.MailAddress(MailFrom, "")
'宛先
msg.To.Add(New System.Net.Mail.MailAddress(MailTo, ""))
'件名
msg.Subject = MailSubject
'本文
msg.Body = MailBody
'添付
msg.Attachments.Add(New Attachment(posted.InputStream, _
System.IO.Path.GetFileName(posted.FileName), posted.ContentType))

Dim sc As New System.Net.Mail.SmtpClient()
'SMTPサーバーを指定する
sc.Host = "localhost"
'メッセージを送信する
sc.Send(msg)

'後始末
msg.Dispose()

End Sub