QA@IT

vb.netでメッセージボタン押下後にメール送信を中止したい

2932 PV

ファイルを添付した状態でメール送信を行いたく思います。
リストボックスに添付ファイルがないと、"添付ファイルチェック"というメッセージを出しています。
ですがOKボタンを押すとメール送信が出来てしまいますので、
"添付ファイルチェック"というメッセージが出た後、
OKボタンを押して、メール送信が出来ない状態にしてメッセージを閉じます。
再び、ファイルを添付して、送信できるようにしたいと思っております。

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
If Not String.IsNullOrEmpty(CC.Text) Then
.CC.Add(New MailAddress(CC.Text.Trim))
End If
If Not String.IsNullOrEmpty(BCC.Text) Then
.Bcc.Add(New MailAddress(BCC.Text.Trim))
End If

.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
MsgBox("添付ファイルチェック!")
End If

End With

Dim Client As New System.Net.Mail.SmtpClient()
Client.Port = ポート番号
Client.Host = "server名"
Client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Client.Credentials = New System.Net.NetworkCredential("user", "pw")
Client.Send(mailMsg)
attachments.Items.Clear()
attachments.Items.Add("(No Attachments)")

MessageBox.Show("メール送信OK!", _
"送信状況", MessageBoxButtons.OK, _
MessageBoxIcon.Information)

End Sub

リストボックス名は、attachmentsです

ご教授頂けないでしょうか?

回答

MsgBox("添付ファイルチェック!")
の次の行で
Exit Sub
では。

編集 履歴 (0)
ウォッチ

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