小编Pat*_*icK的帖子

我有多封电子邮件进来(每天我收到3封电子邮件,订购3类别的订单).电子邮件主题的格式如下:

" 订单提取 - [类别] - [日期] ".

其中【类别】可以Category 1,Category 2或Category 3.[日期]是以DD/MM/YYYY格式发送电子邮件的日期.

我有一个规则设置来搜索' Orders '然后调用下面的代码.

我希望Complete.bat在保存所有电子邮件附件后运行,我只想调用一次.

我试图通过创建另一个名为saveAttachtoDisk_CATEGORY1(itm)只在主题中找到" 类别1 " 时被调用的子进行此操作.然后它会保存附件,但也会在主题中搜索类别1并搜索昨天的日期.

我想要一个不依赖于日期的更好的解决方案.全局变量可以在我将变量设置为1然后运行Complete.bat发送然后将来变量= 1然后不运行的情况下工作Complete.bat.不确定放置此变量的位置(全局变量？)因为两个子模块似乎都放错了并引用它.

这两个模块都保存在Microsoft Outlook VBA的"模块"部分下.

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim SaveFolder As String
    SaveFolder = "D:\Orders\"
    For Each objAtt In itm.Attachments
         objAtt.SaveAsFile SaveFolder & "\" & objAtt.DisplayName
         objAtt.Delete
    Next
    itm.Save
End Sub

其他模块:

Public Sub saveAttachtoDisk_CATEGORY1(itm As …