设置多个Outlook类别

Question

我正在尝试使用Outlook使用VBScript根据特定条件更改电子邮件中的类别。我的问题是我无法弄清楚VBScript如何处理与Outlook交互以分配多个类别。

Set objOutlook   = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objMailbox   = objNamespace.Folders("team")
Set objFolder = objMailbox.Folders("Inbox").Folders.Item("test")
Set colItems = objFolder.Items
mycount = objFolder.Items.Count

If objItem.Categories = "Purple Category" Then
    objItem.Categories = "Purple Category, Green Category"

但这不起作用。任何人的想法？

Answer 1

必须使用＆＃34;;＆＃34;分隔类别。您还需要保存该项目：

function domCycle(node, func) {
  func(node);
  node = node.firstChild;
  while (node) {
    domCycle(node, func);
    node = node.nextSibling;
  }
}

domCycle(document.body, function(node) {
  var emailadd  = "hi@example.com";
  var re = new RegExp(emailadd, "g");
  if (node.nodeType === 3) {
    var text = node.data.trim();
    if (text.length > 0) {
      node.parentNode.innerHTML = node.nodeValue.replace(re, '<a href="mailto:' + emailadd   + '">' + emailadd + '</a>');
    }
  }
});