VBA每2小时创建一个Outlook提醒

Question

我正在添加新的Outlook提醒以运行一些代码。我希望它每2小时运行一次。以下是我每天一次同时运行的示例。因此，今天，当Outlook提醒启动时，它将运行一些代码，然后从运行该代码起2个小时内创建一个新的提醒。例如，如果此提醒在＆：30 AM运行，我希望在9:30 AM然后11:30 AM创建新的提醒，依此类推。

我在为下一个提醒创建新提醒的语法上苦苦挣扎。我的部分困惑是日期何时更改。

我可能会考虑这个问题，但是任何帮助将不胜感激。谢谢。...

Case "Move Files"

Move_FILES

Call New_Task("Move ENGIE Files", DateAdd("d", 1, Date), " 7:30:00 AM")

vAuto = True

我已经在许多不同的流程中使用了相同的代码，并且已经运行了很多年。现在唯一的区别是它需要每2小时运行一次。再次感谢您的帮助...

Sub New_Task(vSubject As String, vDueDate As Date, vTime As String)

    Dim myItem As Outlook.TaskItem
    Set myItem = Application.CreateItem(olTaskItem)

    With myItem

        .Subject = vSubject
        .DueDate = vDueDate
        .ReminderTime = vDueDate & vTime
        .Save
        DoEvents
        .ReminderSet = True
        .Save
        DoEvents
        .ReminderSet = True
        DoEvents
        .Save
        DoEvents
        .Close (olSave)
        DoEvents

    End With

    Set myItem = Nothing

End Sub

Answer 1

我能够通过在CASE语句的开头添加几行来解决我的问题。我添加了2个变量，并使用它们来确定下次提醒的日期和时间。然后，我将这两个变量传递给New_Task模块。万一有人想看看我如何解决我的问题。谢谢...…。

Case "Move ENGIE Files"

Dim MyTimer As String
Dim MyDate As Date

vTime = ""
MyTimer = ""
MyDate = 0
MyTimer = CDate(Now)
MyTimer = DateAdd("h", 2, MyTimer)
MyDate = Format(MyTimer, "MM/DD/YYYY")
MyTimer = Format(MyTimer, "HH:MM AM/PM")
MyTimer = " " & MyTimer

Move_Files

Call New_Task("Move ENGIE Files", MyDate, MyTimer)

vAuto = True