メール AppendLineの追加について

Question

vb.netからメール送信をしています。
メール本文のほうで以下のように他のフォームからMailStrを拾ってきています。

Public Class MailSend
    Public Sub mailSend()
    省略
    Dim strbText As New System.Text.StringBuilder
    strbText.AppendLine(frmMain.MailStr)
    省略
   End Sub
End Class

後述しますが、このMailStrは複数生成されます。
質問は、複数生成されたMailStrを自動的に下記のように↓

strbText.AppendLine("1番おはよう")
strbText.AppendLine("2番こんにちは")
strbText.AppendLine("3番ごきげんよう")
strbText.AppendLine("4番腹減った")
 ・ 
 ・
 ・

strbText.AppendLineごと生成されるようにしたいです。

しかし実際は、MailStrが上書きされさいごの"腹減った"だけが残ってメール送信されてしまっています。

strbText.AppendLine("4番腹減った")

メインフォームの記載は以下のようにしています。

Public Class frmMain
    Private Shared _mailStr As String
    Public Shared Property MailStr As String
        Get
            Return _mailStr
        End Get
        Set(value As String)
            _mailStr = value
        End Set
    End Property

    Private Sub BackgroundWorker1_ProgressChanged(
        ByVal sender As Object,
        ByVal e As ProgressChangedEventArgs) _
        Handles BackgroundWorker1.ProgressChanged

   Dim r As bean = DirectCast(e.UserState, bean)
    省略
        If ｒ.Result = ”今日の一日” Then
            MailStr = r & "番" &  clsGrt.greeting
        End If
    省略
    End Sub
End Class

strbText.AppendLineをMailStr が複数生成されるにしたがって同じように複数生成させたいです。
どのようにすればよいでしょうか。

よろしくお願いいたします。

Answer 1

(案1)
MailStrに代入ではなく追加していけばよいのではないでしょうか。

If ｒ.Result = "今日の一日" Then
    ' MailStrに何か文字が入っている場合は、改行を追加する
    If MailStr <> String.Empty Then
        MailStr &= Environment.NewLine
    End If
    ' MailStrに追加
    MailStr &= r & "番" &  clsGrt.greeting
End If

これなら1回のstrbText.AppendLineで事足ります。

---

(案2)
あるいは、MailStrをStringではなくList(Of String)にするとか。

Public Class frmMain
    Private Shared _mailStr As New List(Of String)()
    Public Shared Property MailStr As List(Of String)
        Get
            Return _mailStr
        End Get
        Set(value As List(Of String))
            _mailStr = value
        End Set
    End Property

    Private Sub BackgroundWorker1_ProgressChanged(
        ByVal sender As Object,
        ByVal e As ProgressChangedEventArgs) _
        Handles BackgroundWorker1.ProgressChanged

        Dim r As bean = DirectCast(e.UserState, bean)
    省略
        If ｒ.Result = ”今日の一日” Then
            MailStr.Add(r & "番" &  clsGrt.greeting)
        End If
    省略
    End Sub
End Class

メール送信時に、List(Of String)をループで回して要素ごとにAppendLineします。

Public Class MailSend
    Public Sub mailSend()
    省略
    Dim strbText As New System.Text.StringBuilder
    For Each s As String In frmMain.MailStr
        strbText.AppendLine(s)
    Next
    省略
   End Sub
End Class

---

※いずれの案も動作確認はしておりません

Comments

[退会済みユーザー]

ありがとうございます。
案2でできました。
自分のコードの省略した部分ですが、このままだとリストの中にデータがたまりまくってしまってメールが恐ろしいことになったので、以下のようにMailSendクラスで

For Each s As String In frmMain.MailStr
strbText.AppendLine(s)
Next

の後に、 frmMain.MailStr.Clear()を付け足していったんリストをクリアにすることにしました。