[原创]邮件管理系统--利用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

你可能感兴趣的:(Excel,outlook,网络硬盘,管理系统)