質問編集履歴
1
個人情報を削除
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -72,17 +72,9 @@
|
|
|
72
72
|
|
|
73
73
|
' テンプレートからメールを新規作成します。
|
|
74
74
|
|
|
75
|
-
' (この時点では、まだメールは画面には表示されません。)
|
|
76
|
-
|
|
77
|
-
' テンプレート ファイルのパスの部分は、環境に応じて設定してください。
|
|
78
|
-
|
|
79
75
|
Dim l_mail As Outlook.MailItem
|
|
80
76
|
|
|
81
|
-
Set l_mail = Application.CreateItemFromTemplate("
|
|
77
|
+
Set l_mail = Application.CreateItemFromTemplate("oftファイルのパス")
|
|
82
|
-
|
|
83
|
-
|
|
84
|
-
|
|
85
|
-
|
|
86
78
|
|
|
87
79
|
|
|
88
80
|
|
|
@@ -298,9 +290,7 @@
|
|
|
298
290
|
|
|
299
291
|
Private Function GetItemCount(ByVal p_items As Outlook.Items) As Long
|
|
300
292
|
|
|
301
|
-
Dim l_item As Object
|
|
293
|
+
Dim l_item As Object
|
|
302
|
-
|
|
303
|
-
|
|
304
294
|
|
|
305
295
|
Dim l_count As Integer
|
|
306
296
|
|