Outlook VBA教程:Reminder事件

在提醒显示之前立即发生。

Sub object_Reminder(ByVal Item As Object)

object  该表达式的值为Application对象。

Item   与提醒相关的AppointmentItemMailItemContactItemTaskItem。如果与提醒相关的约会为定期约会,则 Item 为显示提醒的约会的特定事件,而不是主约会。

VBA示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例测试生成提醒的项目,以确定它是否为邮件项目。如果是邮件项目,示例将使用ReplyAll方法创建并显示新邮件项目。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim WithEvents myolapp As Outlook.Application
Sub Initialize_handler()
    Set myolapp = CreateObject("Outlook.application")
End Sub
Private Sub myolapp_Reminder(ByVal Item As Object)
    Dim myReplyItem As Outlook.MailItem
    If TypeName(Item) = "MailItem" Then
        Set myReplyItem = Item.ReplyAll
        myReplyItem.Display
    End If
End Sub

上页:Outlook VBA教程:Read事件 下页:Outlook VBA教程:ReminderAdd事件

Outlook VBA教程:Reminder事件:相关链接

Outlook VBA教程:ReminderAdd事件 Outlook VBA教程:ReminderChange事件
Outlook VBA教程:ReminderFire事件 Outlook VBA教程:ReminderRemove事件
Outlook VBA教程:Reply事件 Outlook VBA教程:ReplyAll事件
Outlook VBA教程:SelectionChange事件 Outlook VBA教程:Send事件
Outlook VBA教程:ShortcutAdd事件 Outlook VBA教程:Snooze事件
Outlook VBA教程:Startup事件 Outlook VBA教程:SyncEnd事件
Outlook VBA教程:SyncStart事件 Outlook VBA教程:ViewAdd事件
Outlook VBA教程:ViewRemove事件 Outlook VBA教程:ViewSwitch事件
Outlook VBA教程:Write事件 Outlook VBA教程:隐藏的语言元素
Outlook VBA教程:新增事件(按字母顺序排列) Outlook VBA教程:新增事件(按对象排列)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号