質問編集履歴

5

タイトル

2020/12/16 10:50

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- ACCESS メール送信 宛先複数
1
+ ACCESS 宛先一括取得しメール送信
test CHANGED
File without changes

4

2020/12/16 10:50

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -19,6 +19,8 @@
19
19
  sf_メール送信チェックの中から送信有無に〇がついている人のアドレスを宛先に表示させて、クエリAを添付してメール送信したいです。
20
20
 
21
21
  宛先が1件ならばForms!フォームA!sf_メール送信チェック.Form.メールアドレスで設定できるのですが、複数の場合はどのようにすればよいかご教授ください。
22
+
23
+ ※ccは固定なのですが、toは都度変わり件数も上下します。
22
24
 
23
25
 
24
26
 
@@ -50,7 +52,7 @@
50
52
 
51
53
  atesaki = Forms!フォームA!sf_メール送信チェック.Form.メールアドレス
52
54
 
53
- atesaki_CC = "zzzz0000@outlook.jp"
55
+ atesaki_CC = "zzzz0000@outlook.jp ; zzzz1111@outlook.jp"
54
56
 
55
57
  kenmei = "ご確認ください"
56
58
 

3

2020/12/15 04:54

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -24,13 +24,17 @@
24
24
 
25
25
  ```ここに言語を入力
26
26
 
27
- sub()
28
-
29
27
 
30
28
 
31
29
  ※宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
32
30
 
33
31
  対象者全員、同じ添付ファイル、同じ本文です。
32
+
33
+
34
+
35
+ sub()
36
+
37
+
34
38
 
35
39
  Dim atesaki As String
36
40
 

2

2020/12/15 03:39

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -28,7 +28,7 @@
28
28
 
29
29
 
30
30
 
31
- 宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
31
+ 宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
32
32
 
33
33
  対象者全員、同じ添付ファイル、同じ本文です。
34
34
 
@@ -42,7 +42,7 @@
42
42
 
43
43
 
44
44
 
45
- ’sf_メール送信チェックに表示されているデータ(クエリA)で、送信有無に〇がついている人のアドレスを全て宛先に表示したい。
45
+
46
46
 
47
47
  atesaki = Forms!フォームA!sf_メール送信チェック.Form.メールアドレス
48
48
 

1

2020/12/15 03:38

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -28,7 +28,9 @@
28
28
 
29
29
 
30
30
 
31
+ 宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
32
+
31
- 宛先が1件の場合は下記のコードテストしています。
33
+ 対象者全員、同じ添付ファイル、同じ本文です。
32
34
 
33
35
  Dim atesaki As String
34
36
 
@@ -64,4 +66,4 @@
64
66
 
65
67
  ```
66
68
 
67
- 送信対象者(〇がついている人)のアドレスを;でつなぎ、テキストボックスに表示させて、それをatesakiの値にしようかなど試行錯誤しているのですが、どうにもうまくいきません。宜しくお願い致します。
69
+ 宜しくお願い致します。