none
outlook宏中,EntryIDCollection是什么意思? RRS feed

  • 问题

  • Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim mal As Object
    Dim outApp As Outlook.Application
    Dim sSubject, sFolder, MyStr As String
    Dim intInitial As Integer
    Dim intFinal As Integer
    Dim strEntryId As String
    Dim intLength As Integer
    Dim sAttachmentName As String
    Set outApp = Outlook.Application
     
    intInitial = 1
    intLength = Len(EntryIDCollection)
    intFinal = InStr(intInitial, EntryIDCollection, ",")

    Do While intFinal <> 0
            strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intFinal - intInitial))
            Set mai = Application.Session.GetItemFromID(strEntryId)
            sSubject = mal.Subject
            intInitial = intFinal + 1
            intFinal = InStr(intInitial, EntryIDCollection, ",")
    Loop

     strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
     Set mal = Application.Session.GetItemFromID(strEntryId)
    我不明白,EntryIDCollection具体是什么,网络上搜索也没有找到,通过这个方法,有时候我取得的标题会添加有别的字段
    比如,原邮件标题为A,通过这个宏我可能取得一个为:未送达:转发:A的标题,还请清楚的人告诉我一下
    谢谢

    2009年8月4日 1:50

答案

全部回复

  • 接收每一个新邮件后将会触发 NewMailEx 事件。这个事件通过 EntryIDCollection 参数传递了新邮件的标识。可以在这个事件中提取这些信息。

    http://hi.baidu.com/2009ajun
    2009年8月4日 1:59
  • 接收每一个新邮件后将会触发 NewMailEx 事件。这个事件通过 EntryIDCollection 参数传递了新邮件的标识。可以在这个事件中提取这些信息。

    http://hi.baidu.com/2009ajun

    这个我使用到了,但是什么时候intFinal = InStr(intInitial, EntryIDCollection, ","),intFinal会不为0呢?我想测试这个情况
    2009年8月4日 2:03
  • 貌似是一次只接收到一封邮件的时候
    Microsoft Technet Observer 如果问题没有解决,请继续跟帖讨论;如果问题得到解决,请标记为答复。
    2009年8月5日 16:07
    版主