回答編集履歴
1
コードブロックの言語名を編集＋動作未確認の旨を追記
answer
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
(案1)
|
|
2
2
|
`MailStr`に代入ではなく追加していけばよいのではないでしょうか。
|
|
3
3
|
|
|
4
|
-
```
|
|
4
|
+
```vbnet
|
|
5
5
|
If ｒ.Result = "今日の一日" Then
|
|
6
6
|
' MailStrに何か文字が入っている場合は、改行を追加する
|
|
7
7
|
If MailStr <> String.Empty Then
|
|
@@ -14,12 +14,12 @@
|
|
|
14
14
|
|
|
15
15
|
これなら1回の`strbText.AppendLine`で事足ります。
|
|
16
16
|
|
|
17
|
-
---
|
|
17
|
+
---
|
|
18
18
|
|
|
19
19
|
(案2)
|
|
20
20
|
あるいは、`MailStr`を`String`ではなく`List(Of String)`にするとか。
|
|
21
21
|
|
|
22
|
-
```
|
|
22
|
+
```vbnet
|
|
23
23
|
Public Class frmMain
|
|
24
24
|
Private Shared _mailStr As New List(Of String)()
|
|
25
25
|
Public Shared Property MailStr As List(Of String)
|
|
@@ -46,7 +46,7 @@
|
|
|
46
46
|
End Class
|
|
47
47
|
```
|
|
48
48
|
メール送信時に、`List(Of String)`をループで回して要素ごとに`AppendLine`します。
|
|
49
|
-
```
|
|
49
|
+
```vbnet
|
|
50
50
|
Public Class MailSend
|
|
51
51
|
Public Sub mailSend()
|
|
52
52
|
省略
|
|
@@ -57,4 +57,6 @@
|
|
|
57
57
|
省略
|
|
58
58
|
End Sub
|
|
59
59
|
End Class
|
|
60
|
-
```
|
|
60
|
+
```
|
|
61
|
+
---
|
|
62
|
+
※いずれの案も動作確認はしておりません
|