回答編集履歴
1
追記
test
CHANGED
@@ -99,3 +99,21 @@
|
|
99
99
|
End Sub
|
100
100
|
|
101
101
|
```
|
102
|
+
|
103
|
+
|
104
|
+
|
105
|
+
**追記**
|
106
|
+
|
107
|
+
メールアドレスの複数設定ですが、
|
108
|
+
|
109
|
+
Microsoft Outlookでメールアドレスを複数設定するやり方と同じで
|
110
|
+
|
111
|
+
セミコロンで区切ってメールアドレスを繋ぎます。
|
112
|
+
|
113
|
+
DとE列を繋げるならこんな感じです。
|
114
|
+
|
115
|
+
```VBA
|
116
|
+
|
117
|
+
objMail.To = Cells(rowNum, 4).Value & ";" & Cells(rowNum, 5).Value
|
118
|
+
|
119
|
+
```
|