Have you been able to attach and send one email with one attachment? You can automate the entire process of searching a folder and grabbing all files of a specifc type/format. Set aside your list box for the moment. Start with something like this....
At the begining of your email procedure/Code declare a string that holds only the filename.
Code:
dim strFileName as string
strFileName = "TestFile"
with this you can place a test zip file named "TestFile" in the following path
Code:
dim strPath as string
strPath = "\\ServerName\Folder\" & strFileName & ".zip"
Now you are ready to send the one file. It is importatant that we know where you are in the process. So be sure to test this out.
Instead of
.Attachments.Add ("D:\EDPS\PRODUCTION\SEND\" & Filename)
you can just place the string in there. Reason being is you can use the string twice. Once to get all of hte files in the directory and again to send the email.
.Attachments.Add (strPath)