VBS脚本中的自动附件

在VBS脚本中，您可以使用Outlook对象模型来自动添加附件。以下是一个示例代码：

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(6) ' 6代表收件箱，可以根据需要更改
Set objMail = objFolder.Items.Add("IPM.Mail")

' 设置邮件的主题、内容和收件人
objMail.Subject = "测试邮件"
objMail.Body = "这是一封带有附件的测试邮件"
objMail.To = "recipient@example.com"

' 添加附件
strAttachment = "C:\path\to\attachment.txt" ' 附件的路径
objMail.Attachments.Add(strAttachment)

' 发送邮件
objMail.Send

' 释放对象
Set objMail = Nothing
Set objFolder = Nothing
Set objNamespace = Nothing
Set objOutlook = Nothing

在这个示例中，我们首先创建了一个Outlook应用程序对象，然后获取了收件箱的文件夹对象。接下来，我们使用Items.Add方法创建了一个新的邮件对象，并设置了邮件的主题、内容和收件人。

然后，我们使用Attachments.Add方法添加了一个附件，其中strAttachment变量存储了附件的路径。

最后，我们使用Send方法发送邮件，并释放了所有使用的对象。

请注意，您需要在运行该脚本之前确保已经安装了Outlook并进行了正确的配置。此外，您还需要替换示例代码中的收件人地址和附件路径为实际的值。