ms-access - 从 Access DB 发送包含动态名称附件的电子邮件

Question

我不知道如何让这件事在这一点之外工作。
我下面的代码发送了一封电子邮件，其中包含来自 MS Access 2010 的附件。

问题是如果它需要一个固定的文件名，我的文件名会随着我使用每个文件末尾的日期而改变。例如:green_12_04_2012.csv。如果文件夹为空或目录更改，我也不知道如何使此操作不会失败。它只是跳到下一个子而不是崩溃会很棒。

我的代码:

Dim strGetFilePath As String
Dim strGetFileName As String

strGetFilePath = "C:\datafiles\myfolder\*.csv"

strGetFileName = Dir(strGetFilePath)

Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
    .BodyFormat = olFormatRichText
    .To = "bob@builder.com"
    ''.cc = ""
    ''.bcc = ""
    .Subject = "text here"
    .HTMLBody = "text here"
    .Attachments.Add (strGetFileName & "*.csv")
    .Send
End With
End Sub

我想我快到了。

Answer 1

我找到了一个合适的解决方案，除了发布的解决方案之外，我想添加这个以防有人正在寻找解决方案。我一直到凌晨 3 点，这是一个非常受欢迎的问题，但没有关于循环附加特定文件夹中的所有文件的任何解决方案。

这是代码:

Public Sub sendEmail()
    Dim appOutLook As Outlook.Application
    Dim MailOutLook As Outlook.MailItem
    Dim strPath As String
    Dim strFilter As String
    Dim strFile As String

    strPath = "C:\Users\User\Desktop\"      'Edit to your path
    strFilter = "*.csv"
    strFile = Dir(strPath & strFilter)

    If strFile <> "" Then

        Set appOutLook = CreateObject("Outlook.Application")
        Set MailOutLook = appOutLook.CreateItem(olMailItem)

        With MailOutLook
            .BodyFormat = olFormatRichText
            .To = "bob@builder.com"
            ''.cc = ""
            ''.bcc = ""
            .Subject = "text here"
            .HTMLBody = "text here"
            .Attachments.Add (strPath & strFile)
            .Send
            '.Display    'Used during testing without sending (Comment out .Send if using this line)
        End With
    Else
        MsgBox "No file matching " & strPath & strFilter & " found." & vbCrLf & _
                "Processing terminated.
        Exit Sub    'This line only required if more code past End If
    End If

End Sub