这几天因为客户有要从邮件里面自动提取内容的需要,所以头痛的看来两天。
目前找到两种方法:
第一个是脚本实现,如果你用的是outlook而不是outlook express, 那么就可以用脚本实现,
脚本如下(其实微软的网站上也能搜到)
Sub writecsv()
Const olFolderInbox = 6
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
Set colItems = objFolder.Items
'Set colFilteredItems = colItems.Restrict("[Subject] = 'Project Proposal'")
'Wscript.Echo "[Subject] =" & colItems.GetLast().Subject & vbCr & vbLf & "[TO] =" & colItems.GetLast().To
'MsgBox "[Subject] =" & colI