自動化中にOutlookが最新の電子メールを表示しない

Question

次のコードを使用して電子メールを取得して確認していますが、Outlookは最新のものでもなく古いものでもない12/22最も古いメールを受信します。

Set oapp = CreateObject("Outlook.Application") 
Set oMAPI = oapp.GetNamespace("MAPI") 
Set oInbox = oMAPI.GetDefaultFolder(6) 
oInbox.Display 
Set oallmails = oInbox.Items 
Set oreqemail = oallmails.GetFirst 
For oTotalmail = 1 To oallmails.Count 
    ostringmatch = oreqemail.Subject 
    'Using regex function to match 
    'If MatchString(ostringmatch,"89554 Completed") Then 
    'End If 
'Exit For 
Set oreqemail = oallmails.GetNext 
Next 

私のコードは大丈夫ですが、見通し設定がありません。 ありがとう

Answer 1

Outlookで常に最新のまたは最も古い電子メールを受け取るには、ItemsクラスのSortメソッドを使用する必要があります。指定されたプロパティでアイテムのコレクションをソートします。このメソッドが完了すると、コレクションのインデックスが1にリセットされます。ソートするプロパティの名前。大カッコで囲むことができます（例： "[CompanyName]"）。

注：は、コレクション内のアイテムの順序にのみ影響します。エクスプローラビュー内のアイテムの順序には影響しません。

Set oapp = CreateObject("Outlook.Application") 
Set oMAPI = oapp.GetNamespace("MAPI") 
Set oInbox = oMAPI.GetDefaultFolder(6) 
oInbox.Display 
Set oallmails = oInbox.Items 
oallmails.Sort "[RecievedTime]" 
Set oreqemail = oallmails.GetFirst 
For oTotalmail = 1 To oallmails.Count 
    ostringmatch = oreqemail.Subject 
    'Using regex function to match 
    'If MatchString(ostringmatch,"89554 Completed") Then 
    'End If 
    'Exit For 
    Set oreqemail = oallmails.GetNext 
Next 

詳細については、Outlook VBA: How to sort emails by date and open the latest email found?を参照してください。