質問編集履歴
5
タイトル
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
ACCESS メール送信
|
|
1
|
+
ACCESS 宛先一括取得しメール送信
|
body
CHANGED
|
File without changes
|
4
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -9,6 +9,7 @@
|
|
|
9
9
|
フォームAにsf_メール送信チェックを設置。
|
|
10
10
|
sf_メール送信チェックの中から送信有無に〇がついている人のアドレスを宛先に表示させて、クエリAを添付してメール送信したいです。
|
|
11
11
|
宛先が1件ならばForms!フォームA!sf_メール送信チェック.Form.メールアドレスで設定できるのですが、複数の場合はどのようにすればよいかご教授ください。
|
|
12
|
+
※ccは固定なのですが、toは都度変わり件数も上下します。
|
|
12
13
|
|
|
13
14
|
```ここに言語を入力
|
|
14
15
|
|
|
@@ -24,7 +25,7 @@
|
|
|
24
25
|
|
|
25
26
|
|
|
26
27
|
atesaki = Forms!フォームA!sf_メール送信チェック.Form.メールアドレス
|
|
27
|
-
atesaki_CC = "zzzz0000@outlook.jp"
|
|
28
|
+
atesaki_CC = "zzzz0000@outlook.jp ; zzzz1111@outlook.jp"
|
|
28
29
|
kenmei = "ご確認ください"
|
|
29
30
|
honbun = "ご担当者様" & vbCrLf & "いつもお世話になっております。" & vbCrLf & "〇〇〇〇本文表示〇〇〇"
|
|
30
31
|
|
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,10 +11,12 @@
|
|
|
11
11
|
宛先が1件ならばForms!フォームA!sf_メール送信チェック.Form.メールアドレスで設定できるのですが、複数の場合はどのようにすればよいかご教授ください。
|
|
12
12
|
|
|
13
13
|
```ここに言語を入力
|
|
14
|
-
sub()
|
|
15
14
|
|
|
16
15
|
※宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
|
|
17
16
|
対象者全員、同じ添付ファイル、同じ本文です。
|
|
17
|
+
|
|
18
|
+
sub()
|
|
19
|
+
|
|
18
20
|
Dim atesaki As String
|
|
19
21
|
Dim atesaki_CC As String
|
|
20
22
|
Dim kenmei As String
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -13,14 +13,14 @@
|
|
|
13
13
|
```ここに言語を入力
|
|
14
14
|
sub()
|
|
15
15
|
|
|
16
|
-
宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
|
|
16
|
+
※宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
|
|
17
17
|
対象者全員、同じ添付ファイル、同じ本文です。
|
|
18
18
|
Dim atesaki As String
|
|
19
19
|
Dim atesaki_CC As String
|
|
20
20
|
Dim kenmei As String
|
|
21
21
|
Dim honbun As String
|
|
22
22
|
|
|
23
|
-
|
|
23
|
+
|
|
24
24
|
atesaki = Forms!フォームA!sf_メール送信チェック.Form.メールアドレス
|
|
25
25
|
atesaki_CC = "zzzz0000@outlook.jp"
|
|
26
26
|
kenmei = "ご確認ください"
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -13,7 +13,8 @@
|
|
|
13
13
|
```ここに言語を入力
|
|
14
14
|
sub()
|
|
15
15
|
|
|
16
|
+
宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
|
|
16
|
-
|
|
17
|
+
対象者全員、同じ添付ファイル、同じ本文です。
|
|
17
18
|
Dim atesaki As String
|
|
18
19
|
Dim atesaki_CC As String
|
|
19
20
|
Dim kenmei As String
|
|
@@ -31,4 +32,4 @@
|
|
|
31
32
|
|
|
32
33
|
コード
|
|
33
34
|
```
|
|
34
|
-
|
|
35
|
+
宜しくお願い致します。
|