如何读写OE的ddx文件

如何读写OE的ddx文件

解决方案 »

  1.   

    Private Sub Command1_Click()
    MAPISession1.DownLoadMail = False
    'MAPISession1.UserName = "你的账号"
    'MAPISession1.Password = "你的密码"
    MAPISession1.SignOn
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.Fetch
    For i = 0 To MAPIMessages1.MsgCount - 1
        MAPIMessages1.MsgIndex = i
        Debug.Print MAPIMessages1.MsgSubject, MAPIMessages1.MsgOrigAddress, MAPIMessages1.MsgOrigDisplayName, MAPIMessages1.MsgType, MAPIMessages1.MsgDateReceived, MAPIMessages1.MsgNoteText
    NextMAPISession1.SignOff
    End Sub
      

  2.   

    MAPIMessages1.FetchUnreadOnly=True 列出未读邮件
    MAPIMessages1.FetchUnreadOnly=False 列出已读邮件
      

  3.   

    现在还有一个很简单的问题。对一个listview操作
    我要listview显示如下：
    头：   1   1   1   1
     数：  0   0   0   0
    这串0000是如何添加上去的，我的view已经为lvwreport了
    谢谢！