質問編集履歴
1
個人情報を削除
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -35,13 +35,9 @@
|
|
|
35
35
|
l_tomorrow = GetNextDate(l_today)
|
|
36
36
|
|
|
37
37
|
' テンプレートからメールを新規作成します。
|
|
38
|
-
' (この時点では、まだメールは画面には表示されません。)
|
|
39
|
-
' テンプレート ファイルのパスの部分は、環境に応じて設定してください。
|
|
40
38
|
Dim l_mail As Outlook.MailItem
|
|
41
|
-
Set l_mail = Application.CreateItemFromTemplate("
|
|
39
|
+
Set l_mail = Application.CreateItemFromTemplate("oftファイルのパス")
|
|
42
40
|
|
|
43
|
-
|
|
44
|
-
|
|
45
41
|
l_mail.Subject = Replace(l_mail.Subject, "<<Date>>", Format(l_today, "yyyy/mm/dd (ddd)"))
|
|
46
42
|
l_mail.Body = Replace(l_mail.Body, "<<Date>>", Format(l_today, "yyyy/mm/dd (ddd)"))
|
|
47
43
|
|
|
@@ -148,8 +144,7 @@
|
|
|
148
144
|
' (たとえば、実際の予定は 3 件でも、Items.Count の値は 2,147,483,647 になっています。)
|
|
149
145
|
' そのため、実際の項目数を調べるためのこのメソッドを用意しました。
|
|
150
146
|
Private Function GetItemCount(ByVal p_items As Outlook.Items) As Long
|
|
151
|
-
Dim l_item As Object
|
|
147
|
+
Dim l_item As Object
|
|
152
|
-
|
|
153
148
|
Dim l_count As Integer
|
|
154
149
|
l_count = 0
|
|
155
150
|
|