ネット関連：添付ファイルをメール送信

VB2008でAttachments.Addを使い添付ファイルをメール送信する使用例サンプルです。

添付ファイルを送信するには、AttachmentsコレクションのAddメソッドを使い送信します。

このTipsで行ったメール送信方法「Send(fromMail, toMail, subject, body)」ではうまくいかないようです。
SubjectとBodyを別々に設定することでうまく送信できました。

■実行画面
「添付ファイル」ボタンをクリックすると、ファイル選択ダイアログが開くので、添付ファイルを選択します。
添付ファイルを送信可能なメールソフト

■実行コード

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sc As New System.Net.Mail.SmtpClient()
'送信者
Dim fromMail As New MailAddress(TextBox1.Text, "わたし")
'宛先
Dim toMail As New MailAddress(TextBox2.Text, "あなた")
'SMTPサーバー()
Dim smtpMail As New SmtpClient(TextBox3.Text)
Dim mailmsg As New MailMessage(fromMail, toMail)

'件名
mailmsg.Subject = TextBox4.Text
'本文
mailmsg.Body = TextBox5.Text
'添付ファイル
mailmsg.Attachments.Add(New Attachment(TextBox6.Text))

Try
'メール送信()
smtpMail.Send(mailmsg)
MsgBox("送信しました")
Catch ex As SmtpException
'エラーメッセージを表示
MsgBox(ex.Message)
End Try
End Sub

Visual Basic 2008 Express Edition実践入門