Método Reminder.Dismiss (Outlook)
Descarta o lembrete atual.
Sintaxe
expression. Dismiss
Expressão Uma variável que representa um objeto Lembrete .
Comentários
O método Dismiss falhará se não houver lembrete visível.
Exemplo
O exemplo a seguir descarta todos os lembretes ativos. Um lembrete está ativo se a sua propriedade IsVisible é definida como True.
Sub DismissReminders()
'Dismisses any active reminders.
Dim objRems As Outlook.Reminders
Dim objRem As Outlook.Reminder
Dim i As Integer
Set objRems = Application.Reminders
For i = objRems.Count To 1 Step -1
If objRems(i).IsVisible = True Then
objRems(i).Dismiss
End If
Next
Set olApp = Nothing
Set objRems = Nothing
Set objRem = Nothing
End Sub
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.