Question

今日のみ受信したメールを読むようにしています。下のコードは制限していますが、有効なエラーではない条件を投げるコードです。 unread = Trueのような条件を与えたときも同じことがうまくいきます。

Set myItems = myItems.Restrict("DateValue[ReceivedTime]='" & Format(DateValue(Now),"ddddd h:nn AMPM") & "'") 

私にこれを手伝ってください。

Answer 1

少なくとも2つの問題があります。

1. 「[ReceivedTime]」ではなく「DateValue [ReceivedTime]」があります。
2. 電子メールは、真夜中に受け取ったものではなく、真夜中に受信したものに制限しています。

このコードを試してみてください：応答トニーのため

Sub RestrictByDate() 

    Dim FmtToday As String 
    Dim FldrInbox As Folder 
    Dim MailItemsToday As Items 
    Dim MailItemCrnt As MailItem 

    FmtToday = Format(DateValue(Now()), "ddddd h:nn AMPM") 

    ' #### Replace "xxxx" with the name of the store containing the target Inbox 
    Set FldrInbox = Session.Folders("xxxx").Folders("Inbox") 

    Set MailItemsToday = FldrInbox.Items.Restrict("[ReceivedTime] > '" & FmtToday & "'") 

    Debug.Print "Number of emails received today=" & MailItemsToday.Count 
    For Each MailItemCrnt In MailItemsToday 
    With MailItemCrnt 
     Debug.Print .ReceivedTime & " " & .Subject 
    End With 
    Next 

End Sub