Compartir a través de

Propiedad Application.Reminders (Outlook)

  • Artículo

Devuelve una colección Reminders que representa todos los avisos actuales. Solo lectura.

Sintaxis

expresión. Reminders

expresión Variable que representa un objeto Application.

Ejemplo:

En el siguiente ejemplo se devuelve la colección Reminders y se muestra los títulos de todos los avisos de la colección. Si no hay avisos actuales disponibles, se muestra un mensaje al usuario.

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

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.