使用主题的一部分作为文件名保存附件的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"