摘要：
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) Dim mai As Object Dim intInitial As Integer Dim intFinal As Integer Dim strEntryId As String Dim intLength As Integer intInitial = 1 intLength = Len(EntryIDCollection) intFinal = InStr(intInitial, EntryIDCollection, ",") Do While i 阅读全文
posted @ 2010-03-10 16:53 随风飘零0 阅读(360) 评论(0) 推荐(0) 编辑