vbScript使用部分主题作为文件名保存附件

Question

我使用vbScript将通过电子邮件接收的附件保存到共享驱动器。我能够使文件按预期移动。我无法弄清楚的是如何从主题行中提取日期并将其作为文件名的一部分。

电子邮件主题会读这样的：

公司提取20160125

然后该文件应该被命名为：COM20160125.txt

For Each objMailItem in objItems 'Handle each email 
     For Each objAtt In objMailItem.Attachments 'Handle multiple attachments 
      If objMailItem.Subject = |"COMPANY EXTRACT 2*" Then 

Answer 1

这里是解决办法：

For Each objMailItem in objItems 'Handle each email 
     For Each objAtt In objMailItem.Attachments 'Handle multiple attachments 
      If InStr(objmailItem.Subject, "COMPANY EXTRACT 2") Then 
      objAtt.SaveAsFile NETWORK_SAVE_LOCATION & "COM" & Right(objmailItem.Subject,8) & ".txt"