Question

我正在尝试更新所有收到的电子邮件。

当电子邮件进入时，代码会触发，但是，它会更新已选择的邮件项目＆＃39;在那个时间点不是新邮件。

＆＃39;运行脚本＆＃39;选项不可用，我们的IT部门尚未准备好更改注册表。

Private Sub Application_NewMail()
Call InsertNum
End Sub

Sub InsertNum()
Dim Mail As Outlook.MailItem

Set Mail = Application.ActiveExplorer.Selection(1)

Mail.Subject = "10" & Mail.Subject

Mail.Save
End Sub

Answer 1

不使用NewMail事件，而是使用NewMailEx - 它会传递一个可用于调用Namespace.GetItemfromId的条目ID列表。

Answer 2

NewMailEx事件处理程序提供收到项的EntryID字符串。

void MyApplication_NewMailEx(string anEntryID)
{
  Outlook.NameSpace namespace = Application.GetNamespace("MAPI");  
  Outlook.MAPIFolder folder = Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox );
  Outlook.MailItem mailItem = (Outlook.MailItem) outlookNS.GetItemFromID( anEntryID, folder.StoreID );

  // ... process the mail item
}

当有传入邮件更新传入电子邮件时触发代码

2 个答案: