小编bez*_*ezj的帖子

我在这里找到了很多指南让我到达目前的位置,但是我需要一些帮助来完成我的代码(我是一个完全的新手,所以请耐心等待).我试图在Outlook中使用VBA从我在Outlook的某个文件夹中的电子邮件中导出数据以获得优秀.我需要从众多电子邮件的邮件正文中提取数据到excel表中.我从中提取的电子邮件模板可以在下面找到.我需要参考编号后面的10位数字,序列号后面的10位数字和问题描述后的7位数字.(如果不清楚的话,我已经加了我需要的部分)

亲爱的先生/女士xxxxxxxx,

------------------不需要的信息-----------------

参考编号1234567890.

状态:----不需要信息-----

序列号:XXXXXXXXXX问题描述:______________(这里的数据可能略有不同,我只是想从这个区域拉一个7位数字,但如果不能这样做那么就这样吧)_______

用这个….

-----------------其余部分不需要-----------------------

到目前为止,我已经能够创建一个脚本来浏览我当前所在的Outlook文件夹,打开Excel工作表,在Excel中命名标题,然后导入数据.然而,它拉动整个身体而不仅仅是我需要的部分,并将它们放入excel的错误列中.不幸的是,因为我是一个完整的新手.我能够在这个网站上找到一些与解决方案类似的问题的例子,但我无法理解它们.通过大量的试验和错误,我已经使用了自己发布,任何帮助将非常感激.这是我目前的化身代码 -

    Sub Extract()
    On Error Resume Next
    Set myOlApp = Outlook.Application
    Set mynamespace = myOlApp.GetNamespace("mapi")

    ‘open the current folder, I want to be able to name a specific folder if possible…

    Set myfolder = myOlApp.ActiveExplorer.CurrentFolder
    Set xlobj = CreateObject("excel.application.14")
    xlobj.Visible = True
    xlobj.Workbooks.Add
    'Set Heading

    xlobj.Range("a" & 1).Value = "Case Number"
    xlobj.Range("b" & 1).Value = "HDD Serial Number"
    xlobj.Range("c" & 1).Value = "Sys Serial Number"
    xlobj.Range("d" …