Outlook VBA教程:Reminders集合

   
Reminders
多个对象

Microsoft Outlook 应用程序中所有Reminder对象的集合,代表所有将要发生的约会项目的提醒。

使用 Reminders集合

使用Application对象的Reminders属性返回 Reminders集合。使用 Reminders(index) 返回单个Reminder对象,其中 index 为提醒的名称或序数。以下示例显示列表中每个提醒的标题。


Sub ViewReminderInfo()
'Lists reminder caption information
    Dim olApp As Outlook.Application
    Dim objRem As Reminder
    Dim objRems As Reminders
    Dim strTitle As String
    Dim strReport As String
    Set olApp = Outlook.Application
    Set objRems = olApp.Reminders
    strTitle = "Current Reminders:"
    'If there are reminders, display message
    If olApp.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

当新建带提醒的 Microsoft Outlook 项目时,提醒就会由程序创建。例如,如果创建了AppointmentItem对象,并且 AppointmentItem对象的ReminderSet属性设置为 True,则会创建提醒。使用 AppointmentItem对象的ReminderTime属性设置提醒出现的时间(以分钟计)。以下示例创建新的会议,并将 ReminderSet属性设置为 True,同时将新的 Reminder对象添加到 Reminders集合。


Sub AddMeeting()
'Adds a new meeting and reminder to the reminders collection
    Dim olApp As Outlook.Application
    Dim objMeet As AppointmentItem
    Set olApp = Outlook.Application
    Set objMeet = olApp.CreateItem(olAppointmentItem)
    objMeet.ReminderSet = True
    objMeet.Subject = "Tuesday's meeting"
End Sub

上页:Outlook VBA教程:Reminder对象 下页:Outlook VBA教程:RemoteItem对象

Outlook VBA教程:Reminders集合:相关链接

Outlook VBA教程:RemoteItem对象 Outlook VBA教程:ReportItem对象
Outlook VBA教程:Results集合 Outlook VBA教程:Search对象
Outlook VBA教程:Selection对象 Outlook VBA教程:SyncObject对象
Outlook VBA教程:SyncObjects对象 Outlook VBA教程:TaskItem对象
Outlook VBA教程:TaskRequestAcceptItem对象 Outlook VBA教程:TaskRequestDeclineItem对象
Outlook VBA教程:TaskRequestItem对象 Outlook VBA教程:TaskRequestUpdateItem对象
Outlook VBA教程:UserProperties对象 Outlook VBA教程:UserProperty对象
Outlook VBA教程:View对象 Outlook VBA教程:Views集合
Outlook VBA教程:Outlook COM 加载项模板 Outlook VBA教程:对 COM 加载项的支持
Outlook VBA教程:对联系人链接的支持 Outlook VBA教程:对自定义属性页的支持
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号