小编Mas*_*ers的帖子

我正在开发一个 VBS 脚本来通过 Outlook 自动发送电子邮件。每次脚本运行时，文件夹中都会有 2 个文件，我需要它附加名称中包含“Formatted”的文件。我尝试使用 Dir 方法，这样我就可以通配符文件路径，但它会抛出一个错误，指出 Dir是一个未定义的变量。

这是我的代码：

Option Explicit

Const olMailItem = 0

Sub SendBasicEmail()
    Dim olApp: Set olApp = CreateObject("Outlook.Application")
    Dim olEmail: Set olEmail = olApp.CreateItem(olMailItem)
    Dim strLocation
    strLocation = Dir("C:\Users\MChambers\Desktop\Pricing Reports\Pricing_Report_*Formatted.xslx")

    If strLocation <> "" Then
        With olEmail 
            .SentOnBehalfOfName = "generic"
            .Attachments.Add (strLocation)
            .To = "myemail"
            .Subject = "Subject"

            .send
        End With
    End If
End Sub