将主题行中的文本与当前日期进行比较 - 1

Question

我有一份每隔几天收到的邮件列表，主题如下：

• 客户订单1-04/11/2015
• 客户订单2-04/11/2015
• 客户订单 3-04/11/2015
• 客户订单1-03/11/2015
• 客户订单2-03/11/2015
• 客户订单 3-03/11/2015

我只想在主题是 CUSTOMER ORDERS1 并且 04/11/2015 = 今天日期 - 1 时做某事。

我想我需要

• 从主题中提取文本日期，然后将其转换为日期格式 DD/MM/YYYY 然后将该日期与该格式的当前 -1 进行比较。
• 我还需要从主题中提取 CUSTOMER ORDERS1，并将其与“CUSTOMER ORDERS1”进行比较。

下面是代码

Public Sub saveAttachtoDisk()
Dim olApp As Outlook.Application, _
    oNS As Outlook.NameSpace, _
    oFld As Outlook.Folder, _
    oMails As Outlook.Items, _
    oMail As Outlook.MailItem, _
    oAtt As Outlook.Attachment, _
    SaveFolder As String, _
    Yesterday as String

SaveFolder = "d:\temp\"
Yesterday = Format(Now()-1, "mm.dd.yy")

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If Err.Number > 0 Then Set olApp = CreateObject("Outlook.Application")
On Error GoTo 0

Set oNS = olApp.GetNamespace("MAPI")
Set oFld = oNS.GetDefaultFolder(olFolderInbox)
Set oMails = oFld.Items

For Each oMail In oMails

    If InStr(1, oMail.Subject, yesterday) 
            and InStr(1, oMail.Subject, 'CUSTOMER ORDERS1')  Then
        '----Your code comes here
        For Each oAtt In oMail.Attachments
            oAtt.SaveAsFile SaveFolder & "\" & oAtt.DisplayName
            Set oAtt = Nothing
        Next oAtt
    Else
    End If
Next oMail
End Sub

Answer 1

您可以通过将"Txt_to_Find" 替换为"CUSTOMER ORDERS1-" & format(date-1,"dd/mm/yyyy") 来完成整个比较

但是如果你正在寻找整个文本字符串，那么instr 是低效的，你最好只做oMail.Subject = "CUSTOMER ORDERS1-" & format(date-1,"dd/mm/yyyy")

只是关于用法的说明，instr 返回一个字符串在另一个字符串中的位置，而不是简单的判断它是否存在的真/假，所以如果字符串确实存在。

希望这会有所帮助！