[原创]邮件管理系统--利用excel管理outlook邮件

  想必大家对excel和outlook的集成应用一定非常感兴趣，因为有大量的邮件数据、附件缺乏有效的存档和备份机制，就会造成数据分析查询不善、关键附件丢失情况。本文介绍的就是在excel利用创建outlook对象的方法，将邮件收取到本地、并将附件分类、压缩存储在本地硬盘或者网络硬盘中。

     以下是截图，说明了邮件管理的基本功能：

 

点击“读取邮件”按钮自动判断系统中没有的EntryID ，将未收取的邮件读取到excel工作表中，并且将邮件的属性，如，是否已读、需要回复等属性读取到excel工作簿中。

在E/3ERM平台邮件管理系统中特别注重对附件的存档和管理，所以针对设计的方便和管理的方便，将用户的附件无论个数多少，直接压缩成特定文字说明的zip压缩包（客户电脑无需安装winrar等其他压缩软件，直接调用windows自带的zip压缩工具）。这样不仅方便了存储、而且能大幅度减少outlook 对附件的存储，就不会经常出现outlook空间满的情况。

以下介绍outlook的基本属性便于大家二次开发应用：

      Set myOlApp = CreateObject("Outlook.Application")
      Set myNameSpace = myOlApp.GetNamespace("MAPI")
      Rem getdefaulfolder（6）获取收件箱
      Set myibox = myNameSpace.GetDefaultFolder(6)
      Rem getdefaulfolder（4）获取发件箱
      Set myobox = myNameSpace.GetDefaultFolder(4)

     Set myitem = myibox.Items(n) '--直接对收件箱里面的邮件进行管理

           Rem 获取邮件接收时间
'         MsgBox myitem.ReceivedTime

          Rem 获取发送者姓名
'          MsgBox myitem.SenderName

          Rem  获取发送者邮件地址
'          MsgBox myitem.SenderEmailAddress

          Rem 获取邮件是否已读
'       MsgBox myitem.UnRead

'MsgBox myitem.ReadReceiptRequested  '--是否需要回执

          Rem 第一个附件的名称
'         MsgBox MYITEM.attachments(1).Filename

      E/3ERM是基于网络Myexcel平台的应用管理系统，所以可以利用sql server的存储功能将上述附件进行存储，并且在客户需要的时候进行查阅。极大方便了企业对员工的邮件管理。

      E/3ERM平台邮件管理系统可以根据您的企业需求进行二次开发，如需类似的Excel集成应用，我们也提供大量的案例，请加入官方QQ群进行交流：282883979