我在这里找到了很多指南让我到达目前的位置,但是我需要一些帮助来完成我的代码(我是一个完全的新手,所以请耐心等待).我试图在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" …我需要自动执行涉及以下任务的特定任务:
根据一组标准从我的邮箱中提取邮件 - 来自特定用户,具有特定的主题行模式等.
解析每封邮件的邮件正文并提取一些内容(邮件几乎是固定的模式)
使用特定模板创建Excel工作表(前两行是常量,第三行是本周的星期五和星期五等),然后将上面提取的内容以连续的行粘贴到此工作表中.
使用不同格式创建具有相同内容的Outlook电子邮件
(最后发送它,但我不想自动化那部分 - 我喜欢在发送邮件之前仔细检查一下.)
现在,当我想到自动执行这项任务时,Perl的Win32 :: OLE立即浮现在脑海中,因为我最近才了解它,并且在Perl中非常舒服.但是,我认为Visual Basic for Automation可能更适合这项任务,因为它是为这些任务创建的语言.
我的问题是,VBA是否足以抵消Perl和VB之间技能组的差异？几年前我小时候玩过VB6,但那是关于VB体验的程度.
我也对任何其他语言/平台建议持开放态度,只要它们具有一定的灵活性并且不太难学.我也知道一些Python.