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 r.Result = ”今日の一日” Then MailStr = r & "番" & clsGrt.greeting End If 省略 End Sub End Class
strbText.AppendLineをMailStr が複数生成されるにしたがって同じように複数生成させたいです。
どのようにすればよいでしょうか。
よろしくお願いいたします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2016/09/24 06:22