Question

我有一个三人小组，向96名销售代表的团队发送电子邮件订单和报价。我们通过Outlook任务完成此任务。

在Outlook 2007中，我们注意到很多任务都没有在我们的最终更新/完成。

因此，我正在通过Outlook规则运行脚本来处理所有传入的任务更新，以查看这是否有助于解决问题。

代码运行正常，但我每次运行脚本都会得到 $(function() { $("select").change(function(){ var option = $(this).find('option:selected').val(); alert(option); }); )}; 。这是我正在使用的宏：

"rules in error:  The operation failed"

Answer 1

规则不可靠但在尝试使用ItemAdd或NewMailEx之前，请查看清理代码时会发生什么。

Outlook已在运行，因此您不需要CreateObject，也不需要登录。

Sub taskupdateMacro(item As mailItem)

 'Dim olkApp

 Dim olkNS As Namespace
 Dim olkTaskFolder As folder
 Dim objItem As Object

 'Dim olkTaskUpdate
 'Dim olkTask As TaskItem

 Dim objCount As Long

 objCount = 0

 'Set olkApp = CreateObject("Outlook.Application")
 'Set olkNS = olkApp.GetNamespace("MAPI")

 Set olkNS = GetNamespace("MAPI")

 'olkNS.Logon "Outlook"

 Set olkTaskFolder = olkNS.GetDefaultFolder(6)

 For Each objItem In olkTaskFolder.Items
     If (objItem.Class = 50 Or objItem.Class = 51 Or objItem.Class = 43) Then
     Debug.Print objItem.subject & " Class is: " & objItem.Class

        objCount = objCount + 1
        objItem.Display
        objItem.Close 1
     End If
 Next

 If objCount = 0 Then
    MsgBox "No Task Related Emails to Open"
 End If

 Set objItem = Nothing
 Set olkTaskFolder = Nothing

 'Set olkTaskRequest = Nothing
 'Set olkTask = Nothing
 'olkNS.Logoff

 Set olkNS = Nothing
 'Set olkApp = Nothing

End Sub

用于处理任务更新的Outlook脚本

1 个答案: