outlook 代码中如何判断taskitem重复?

minjiwei

各位好:
    写了一段代码, 大体用意是 打开outlook时, 创建一个任务, 在下午四点到期! 遇到一个问题: 我每天可能不止一次打开outlook,这样一来,每次打开都会创建一个相同的任务! 想请问有没有方法可以判断这个任务已经创建. 已经创建, 则不执行创建的代码.否则,则执行创建任务的代码!

谢谢大家伙!

拜谢!

minjiwei

sorry, 我的操作系统xp、Outlook 2003版本

aaaaabbbbb

请把代码帖出来大家看看。

minjiwei

Private Sub Application_Startup()

Dim a As Boolean


Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderTasks)
Set myitems = myFolder.Items

For Each Item In myitems
  If Item.Subject = "Prepare Invoice List" And Item.DueDate = Date Then
     a = True
     MsgBox "已经创建任务"
     Exit For
  Else
     a = False
  End If
Next


If a = True Then
Else
Dim invoiceTask As TaskItem
Set invoiceTask = Application.CreateItem(olTaskItem)
With invoiceTask
.Subject = "Prepare Invoice List"
.DueDate = Date
.Status = olTaskInProgress
.StartDate = Date
.ReminderSet = True
.ReminderTime = Date & " 4:00PM"
.Save
End With

End If
End Sub

xzqzgr

学习了，谢谢分享

shuizhu126

学习。谢谢分享