回答編集履歴
3
AutoForwardedプロパティを設定するコードを追加しました。
test
CHANGED
|
@@ -33,6 +33,8 @@
|
|
|
33
33
|
If ShouldForward(objItem) = True Then
|
|
34
34
|
'転送用のコピーを作成
|
|
35
35
|
Set miForward = objItem.Forward
|
|
36
|
+
'このアイテムが自動転送されたメールであることを示すようにする
|
|
37
|
+
miForward.AutoForwarded = True
|
|
36
38
|
'配信予約の設定
|
|
37
39
|
If ScheduleForwardingMail(miForward) = False Then
|
|
38
40
|
'失敗した場合は作成したメールを削除する
|
2
土日の配信予約処理を修正しました。
test
CHANGED
|
@@ -173,8 +173,9 @@
|
|
|
173
173
|
|
|
174
174
|
'土日のいずれかである場合
|
|
175
175
|
If lngWeekday > 5 Then
|
|
176
|
-
'直近の月曜日にする
|
|
176
|
+
'直近の月曜日の9時00分に変更する
|
|
177
177
|
dtDeliveryDate = DateAdd("d", 8 - lngWeekday, dtDeliveryDate)
|
|
178
|
+
dtDeliveryTime = #9:00:00 AM#
|
|
178
179
|
End If
|
|
179
180
|
|
|
180
181
|
'補正した配信日時を戻り値として返す
|
1
コメントを一部修正しました。
test
CHANGED
|
@@ -151,7 +151,7 @@
|
|
|
151
151
|
'配信日時の取得
|
|
152
152
|
dtDeliveryTime = TimeValue(InitialDateTime)
|
|
153
153
|
|
|
154
|
-
'配信
|
|
154
|
+
'配信時刻により条件分岐
|
|
155
155
|
Select Case dtDeliveryTime
|
|
156
156
|
'9時00分よりも早い時刻の場合
|
|
157
157
|
Case Is < #9:00:00 AM#
|
|
@@ -168,7 +168,7 @@
|
|
|
168
168
|
|
|
169
169
|
Dim lngWeekday As Long
|
|
170
170
|
|
|
171
|
-
'配信日
|
|
171
|
+
'配信日付の曜日（月曜始まり）を取得
|
|
172
172
|
lngWeekday = Weekday(dtDeliveryDate, vbMonday)
|
|
173
173
|
|
|
174
174
|
'土日のいずれかである場合
|