如何利用VBA 通过特定的 subject 查找outlook 发送的时间

如何利用VBA 通过特定的 subject 查找outlook 发送的时间

Sub test()
    Dim myNameSpace As NameSpace
    Dim myitem As MailItem
    Set olapp = ThisOutlookSession
    Set myNameSpace = olapp.GetNamespace("MAPI")
    Dim str As String
    On Error Resume Next
    For Each fldFolder In myNameSpace.Folders
        For Each subFolder In fldFolder.Folders
            If (subFolder.Name = "已发送邮件") Then
               For Each myitem In subFolder.Items
                     If InStr(myitem.Subject, "你的subject") Then
                        MsgBox myitem.CreationTime
                     End If
               Next
            End If
        Next
    Next
End Sub

期待看到有用的回答！