QA@IT

リストボックスへのファイル添付方法について

1409 PV

メール送信プログラムを作成しております。
Form1のボタン2をクリックし、Form2を立ち上げます。
Fomr2のリストボックスにファイル名が表示され、sendボタンをクリックします。
添付確認と表示され、メール送信を行う事が出来ません。
(リストボックスにはファイルパスとファイル名が表示されます⇒c:\ERROR.bmp)
リストボックスに表示されているだけで、実際には添付されていない状態です。
ファイルを添付してメール送信を行いたいと思っているのですが、ご教授下さい。
添付ファイルは、Cドライブの中にあるERROR.bmpというファイルです。

(Form1)
Public Class Form1

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

Form2.Show()
Form2.Activate()
Dim mailMsg As New System.Net.Mail.MailMessage()
Dim strpath As String = "C:\ERROR.bmp"
Form2.attachments.Items.Add(strpath)
Dim attach1 As New System.Net.Mail.Attachment("C:\ERROR.bmp")
mailMsg.Attachments.Add(attach1)

End Sub

End Class

(Form2)
Imports System.Net.Mail
Imports System.Text
Public Class Form2

Inherits System.Windows.Forms.Form
Dim arlAttachments As ArrayList

Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click

Dim mailMsg As New MailMessage(New MailAddress(from.Text.Trim, TextBox4.Text), New MailAddress(ToAddress.Text.Trim))
With mailMsg

.Subject = textbox2.Text
.Body = textbox3.Text
Dim subject As String = textbox2.Text
Dim body As String = textbox3.Text

If Not IsNothing(arlAttachments) Then
Dim mailAttachment As Attachment
For Each mailAttachment In arlAttachments
.Attachments.Add(mailAttachment)
Next
Else
MessageBox.Show("添付確認")
Exit Sub
End If
End With

Try
Dim Client As New System.Net.Mail.SmtpClient()
Client.Host = "server名"
Client.Port = ポート番号
Client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Client.Credentials = New System.Net.NetworkCredential("ユーザ名", "パスワード")
Client.Send(mailMsg)
attachments.Items.Clear()
attachments.Items.Add("(No Attachments)")
MessageBox.Show("メール送信OK!")
Catch exp As Exception
MessageBox.Show("エラー発生!")
End Try

End Sub

End Class

長文を最後まで読んで下さりありがとうございました。
ご教授の程宜しくお願い申し上げます。

ウォッチ

この質問への回答やコメントをメールでお知らせします。