Forum Discussion

rmanning's avatar
rmanning
Contributor
15 years ago

Email a folder instead of individual files using script.

Is there a way to attach an entire folder of images (or whatever files) using the vbscript (found here: http://www.automatedqa.com/support/viewarticle.aspx?aid=2691) I tried: If SendMa...
tppegu's avatar
tppegu
Contributor
15 years ago
The SendMail function can only send a single attachment. The SendEmail (note different spelling) function listed at the URL you provided is able to send multiple attachments, but their names must be provided as a comma-separated list. You can generate a list of files in a folder using something like this (apologies if the syntax is wrong. I don't normally use VB) :






Function ListFiles(folder)

  Dim oFolder, colFiles, f





  Set oFolder = aqFileSystem.GetFolderInfo(folder)

  Set colFiles = oFolder.Files

  Set strFileList = ""

  aqString.ListSeparator = ","

  While colFiles.HasNext

    Set f = colFiles.Next

    strFileList = aqString.AddListItem(strFileList, f.Name)

  Wend

  ListFiles = strFileList

End Function