请问: VBA如何实现outlook邮件的批量标记完成

comuyou · 发表于 2013-12-11 09:11

各位大侠, 我想用VBA实现批量标记邮件的完成状态. 尝试写了如下代码, 但不幸的是, 该代码只能标记选中的第一封邮件. (当然, OUTLOOK的工具栏上也有现成的工具, 我纯属学习), 请高手帮忙解惑.
Private Sub MarkComplete()
Dim MyR_1 As Outlook.MailItem

For Each MyR_1 In Application.ActiveExplorer.Selection
  If MyR_1.Class = olMail Then
  MyR_1.MarkAsTask olMarkComplete
  'Debug.Print MyR_1.Subject
  End If
Next

End Sub

补充: 我用debug.print测试了, 循环是有的, 但从第二封邮件开始就是不执行MyR_1.MarkasTask olMarkComplete语句.

comuyou · 发表于 2013-12-19 17:27

大侠们去哪儿了呢?

		自动登录	找回密码
密码			免费注册

[求助] 请问: VBA如何实现outlook邮件的批量标记完成