Reminders オブジェクト (Outlook)

Microsoft Outlook アプリケーションのすべての Reminder オブジェクトのコレクションを含みます。このコレクションは、保留中のすべてのアイテムのアラームを表します。

注釈

Application オブジェクトの Reminders プロパティを使用して、Reminders コレクションを取得します。 単一の Reminder オブジェクトを返すには、Reminders (index) を使用します。index はリマインダーの名前または序数の値です。

アラームは、アラームを含む新しい Outlook アイテムが作成されたときにプログラムによって作成されます。 たとえば、 AppointmentItem オブジェクトが作成され、 AppointmentItem オブジェクトの ReminderSet プロパティが True に設定すると、アラームが作成されます。

次の例は、リスト内の各アラームのキャプションを表示します。

Sub ViewReminderInfo() 
 'Lists reminder caption information 
 Dim objRem As Reminder 
 Dim objRems As Reminders 
 Dim strTitle As String 
 Dim strReport As String 
 
 Set objRems = Application.Reminders 
 strTitle = "Current Reminders:" 
 'If there are reminders, display message 
 If Application.Reminders.Count <> 0 Then 
 For Each objRem In objRems 
 'If string is empty, create new string 
 If strReport = "" Then 
 strReport = objRem.Caption & vbCr 
 Else 
 'Add info to string 
 strReport = strReport & objRem.Caption & vbCr 
 End If 
 Next objRem 
 'Display report in dialog 
 MsgBox strTitle & vbCr & vbCr & strReport 
 Else 
 MsgBox "There are no reminders in the collection." 
 End If 
End Sub

次の例では、新しい予定アイテムを作成し、 ReminderSetプロパティが true を指定 、新しい アラーム オブジェクトを Reminders コレクションに追加するのに設定します。

Sub AddAppt() 
 'Adds a new appointment and reminder to the reminders collection 
 Dim objApt As AppointmentItem 
 
 Set objApt = Application.CreateItem(olAppointmentItem) 
 objApt.ReminderSet = True 
 objApt.Subject = "Tuesday's meeting" 
 objApt.Save 
End Sub

イベント

名前
BeforeReminderShow
ReminderAdd
ReminderChange
ReminderFire
ReminderRemove
再通知します。

メソッド

名前
アイテム
Remove

プロパティ

名前
アプリケーション
クラス
Count
Parent
Session

関連項目

Outlook オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。