从今天下载 .csv 附件答案

【问题标题】：Download .csv attachments from Today从今天下载 .csv 附件
【发布时间】：2020-06-19 16:19:38
【问题描述】：

我想下载我每天收到的 4 个不同的 csv 文件。所以我需要自动下载这4个。截至目前，我可以下载所有 csv 文件，但不能将其限制为仅限今天的日期。

这是我当前的代码。

Public Sub SaveAutoAttach(item As Outlook.MailItem)

Dim object_attachment As Outlook.Attachment

Dim saveFolder As String

saveFolder = "C:\Desktop\Automatic Outlook Downloads"
For Each object_attachment In item.Attachments


If InStr(object_attachment.DisplayName, ".csv") Then
'If Int(object_attachment.ReceivedTime) = Date Then
    object_attachment.SaveAsFile saveFolder & "\" & object_attachment.DisplayName

End If
'End If

Next


End Sub

【问题讨论】：

你能把你迄今为止所做的帽子贴出来让我们帮助你吗？
与MailItem.ReceivedTime property合作
这不是你的完整代码；它是一个调用来保存特定MailItem 的附件的函数。其他一些代码选择了MailItem。如果你喜欢 0m3r 的建议，即使用ReceivedTime 来识别有趣的MailItems，我会将这段代码放在外部例程中。
您正在使用DisplayName 作为文件名保存这些附件？这些DisplayNames 是独一无二的，还是您乐意覆盖较早的文件？如果它们是唯一的，您可以使用文件的存在来指示此MailItem 的附件已经保存。话虽如此，我会在保存附件后将MailItem移动到另一个文件夹，这样就再也找不到了。

标签： vba outlook

【解决方案1】：

我能够回答我自己的问题。下面是我修改后的代码。

Public Sub SaveAutoAttach(item As Outlook.MailItem)
Dim olApp As Object
Dim olNS As Object
Dim myDate As Date
Dim olItems As Object
Dim olItem As Object
Dim olAttach As Object

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
Err.Clear: On Error GoTo 0

If olApp Is Nothing Then
Set olApp = CreateObject("Outlook.Application")
Flg = True
End If

Set olNS = olApp.GetNamespace("MAPI")

Set olItems = olNS.GetDefaultFolder(olFolderInbox).Items

For Each olItem In olItems
    If olItem.ReceivedTime > Date Then
    On Error GoTo Finished
    Set olAttach = olItem.Attachments.item(1)
    Err.Clear: On Error GoTo 0
    If Not olAttach Is Nothing Then
    If olAttach.FileName Like "*.csv" Then

    On Error GoTo Finished
    olAttach.SaveAsFile "C:\Desktop\Automatic Outlook Downloads" & "\" & olAttach.FileName
    Set olAttach = Nothing
    Set olItem = Nothing
    End If
    End If
    End If
Next

【讨论】：