获取新邮件的EntryID

Question

我们制作了一个脚本，该脚本会自动打开Microsoft Outlook新邮件窗口。 有些事情必须已经填写。 到目前为止，该方法有效：

Set Arguments = WScript.Arguments
If Arguments.Count > 4 Then
    Set Outlook = CreateObject("Outlook.Application")
    Set BodyObject = CreateObject("Scripting.FileSystemObject")
    Set Mail = Outlook.CreateItem(0)

    Mail.To = Arguments(0)
    Mail.CC = Arguments(1)
    Mail.BCC = Arguments(2)
    Mail.Subject = Arguments(3)

    Set BodyFile = BodyObject.OpenTextFile(Arguments(4))
    Mail.Body = BodyFile.ReadAll
    BodyFile.Close

    For Counter = 5 to (Arguments.Count - 1)
        Mail.Attachments.Add Arguments(Counter)
    Next

    Mail.Display
End If

但是知道我们想知道用户是否发送了该邮件，并且我们还想知道该邮件的EntryID，因此我们可以稍后进行查找。

现在Mail.Display不返回任何内容，该程序仅结束。 它不等到窗口关闭。 因此，在Mail.Display之后，应该有类似：Mail.Wait或Mail send事件，以便我们可以获取EntryID。

有人可以帮我们吗？

在此先感谢Gillis和Emiel

Answer 1

我刚刚从这里找到了可能的解决方案：

从发件箱中交付商品后，您需要等待并获得EntryID值。 为此，请在“已发送邮件”文件夹上订阅Folder.Items.ItemAdd事件。 该事件将新添加的（即新发送的）项目作为参数传递。

Answer 2

该项目必须首先存在于Outlook中才能具有EntryID值，使用“保存属性”并在之后立即获取其EntryID

Mail.Save
strEntryID = Mail.EntryID

我有一个用VBA编写的示例，用于将笔记从Access表单保存到Outlook

    Dim outobj As Outlook.Application
    Dim outappt As Outlook.NoteItem
    Set outobj = CreateObject("outlook.application")
    Set outappt = outobj.CreateItem(olNoteItem)
    With outappt
    If Not IsNull(Me!strBody) Then .Body = Me!strBody
    .Save
    Me!strEID = .EntryID
    End With