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