VBA提取郵件發送時間

在VBA（Visual Basic for Applications）中，如果你想要从Outlook邮箱中提取邮件发送时间，你需要访问`OlMailItem`对象的`SentTime`属性。以下是简单的步骤：

1. 首先，确保你的VBA宏是在Excel、Word或Access等Office应用程序中编写，并引用了`Microsoft.Office.Interop.Outlook`命名空间。

Sub ExtractEmailSendTimes()
    Dim olApp As Outlook.Application
    Dim olNs As NameSpace
    Dim olFolder As MAPIFolder
    Dim olMail As MailItem
    
    ' 创建Outlook应用实例
    Set olApp = New Outlook.Application
    
    ' 获取默认邮件文件夹
    Set olNs = olApp.GetNamespace("MAPI")
    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)
    
    ' 循环遍历收件箱中的每个邮件
    For Each olMail In olFolder.Items
        If olMail.Class = OlObjectClass.olMail Then ' 检查是否是普通邮件
            Debug.Print "邮件发送时间：" & olMail.SentOn ' 打印发送时间（日期和时间）
        End If
    Next olMail
    
    ' 关闭引用
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub

运行这个宏，它将显示指定收件箱中每封邮件的发送时间。