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

イベント

メソッド

プロパティ

関連項目

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

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

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