質問編集履歴
2
具体的にどういったことが発生しているのか整理してみました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,26 +1,72 @@
|
|
|
1
|
+
|
|
2
|
+
|
|
3
|
+
|
|
4
|
+
|
|
1
5
|
VBScriptの機能を用いてメールの送信をサーバー側（Windows Serverv2016）でおこなっております。
|
|
2
6
|
|
|
3
7
|
|
|
4
8
|
|
|
5
9
|
現象としまして、
|
|
6
10
|
|
|
7
|
-
送信できるときもあれば失敗するときもあるような、
|
|
11
|
+
送信できるときもあれば失敗するときもあるような状況でして、
|
|
8
12
|
|
|
13
|
+
具体的に掘り下げますと、ユーザーがRemoteApp機能を用いて起動されたアプリケーションを操作し、
|
|
14
|
+
|
|
15
|
+
メールを一度に４通ほど送信すると失敗するときがあり、その際にはエラーメッセージが表示されます（エラー内容は下記に記載）。
|
|
16
|
+
|
|
9
|
-
|
|
17
|
+
※試行回数は少ないですが、８割方失敗。失敗するときは４通すべて失敗します。
|
|
10
18
|
|
|
11
19
|
|
|
12
20
|
|
|
13
|
-
送信できている場合もあるため
|
|
14
21
|
|
|
22
|
+
|
|
23
|
+
２割成功するわけですが、そのときは大体、ユーザーからメールが送信されていないとお問い合わせいただき、
|
|
24
|
+
|
|
25
|
+
私がサーバーへとリモートで接続し、管理者権限を有するAdministratorユーザーでサーバーにログオン後、
|
|
26
|
+
|
|
15
|
-
|
|
27
|
+
ユーザーに全く同じ操作をしていただくと送信されるというような挙動をします。
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
これに関してはたまたま運が良く送信されただけで、
|
|
32
|
+
|
|
33
|
+
私の接続有無は関係がないかもしれません。
|
|
34
|
+
|
|
35
|
+
（管理者権限で誰かがログオンしていることがVBScriptの実行可否と関係があるとは思えないのですが・・）
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
|
|
39
|
+
|
|
40
|
+
|
|
41
|
+
ユーザーの環境下ということもあり、
|
|
42
|
+
|
|
43
|
+
SMTPサーバーのログを調べたりといったことが
|
|
44
|
+
|
|
45
|
+
なかなか難しく困っております。
|
|
46
|
+
|
|
47
|
+
|
|
48
|
+
|
|
49
|
+
|
|
50
|
+
|
|
51
|
+
とりあえず同じような環境を構築して
|
|
52
|
+
|
|
53
|
+
検証してみてもこういった問題は発生しませんでした。。
|
|
54
|
+
|
|
55
|
+
※同じような環境とは、サーバーを用意し、RemoteApp経由で同じプログラム且つ、
|
|
56
|
+
|
|
57
|
+
同じVBScriptを用意し実行できる環境。唯一異なる点といえばサーバーへと接続する際にに用いる
|
|
58
|
+
|
|
59
|
+
ユーザーは管理者権限を有するユーザー。
|
|
60
|
+
|
|
61
|
+
|
|
16
62
|
|
|
17
63
|
|
|
18
64
|
|
|
19
65
|
なんでも構いません。
|
|
20
66
|
|
|
21
|
-
|
|
67
|
+
「こういった可能性がある」や、「VBScriptはこういう仕様」といったり、
|
|
22
68
|
|
|
23
|
-
アドバイスをいただけませんでしょうか。。
|
|
69
|
+
「コーディングに甘い箇所がありこうすべき」などございましたらアドバイスをいただけませんでしょうか。。
|
|
24
70
|
|
|
25
71
|
|
|
26
72
|
|
|
@@ -50,7 +96,7 @@
|
|
|
50
96
|
|
|
51
97
|
|
|
52
98
|
|
|
53
|
-
###
|
|
99
|
+
### VBScriptの内容 ※送信先のAddress、件名や本文は引数で渡ってきます
|
|
54
100
|
|
|
55
101
|
|
|
56
102
|
|
1
<code>をもちいて記載してみました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -54,6 +54,8 @@
|
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|
|
57
|
+
```ここに言語を入力
|
|
58
|
+
|
|
57
59
|
Dim oParam
|
|
58
60
|
|
|
59
61
|
Dim strTo ' メール宛先
|
|
@@ -107,3 +109,5 @@
|
|
|
107
109
|
|
|
108
110
|
|
|
109
111
|
objMail.Send
|
|
112
|
+
|
|
113
|
+
```
|