使用 vbscript 向 folder/file 发送电子邮件

Question

基本上我想通过电子邮件发送文件夹中的文件。该文件是在执行某些 program.But 后动态生成的，问题是我如何附加动态生成的文件（名称不断变化

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.To = "to@gmail.com"
objMail.cc = "from@gmail.com"
objMail.Subject = "Test Mail Subject"
objMail.Body = "Test mail body"
objMail.Attachments.Add("path")
objMail.Send 
objOutlook.Quit
Set objMail = Nothing
Set objOutlook = Nothing

我可以获得文件夹的路径但是我如何动态地选择附加任何文件到 folder.Can 我邮寄整个文件夹（通过压缩）。如果是这样 how.Any 帮助将是赞赏。

Answer 1

Const ForReading = 1
Const ForWriting = 2

theFolder = "FolderPathGoesHere"
Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each objFile In objFSO.GetFolder(theFolder).Files
    SendEmail objFSO.GetAbsolutePathName(objFile)
Next

Set objFSO = Nothing

Sub SendEmail(theFileName)

    Set objOutlook = CreateObject("Outlook.Application")

    Set objMail = objOutlook.CreateItem(0)
    objMail.To = "to@gmail.com"
    objMail.cc = "from@gmail.com"
    objMail.Subject = "Test Mail Subject"
    objMail.Body = "Test mail body"
    objMail.Attachments.Add(theFileName)
    objMail.Send 
    objOutlook.Quit
    Set objMail = Nothing
    Set objOutlook = Nothing

End Sub

使用 vbscript 向 folder/file 发送电子邮件

Email a folder/file using vbscript

shell

vbscript