SendMessage with muliple attachments

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Using a module, I want to attach all of the files from a
specific folder into an Outlook e-mail. The code I'm using
for attachments is:

If Not IsMissing("c:\AS400\*.*") Then
Set objOutlookAttach = .Attachments.Add("c:\as400
\*.*")
End If

I can send (1) attachment but NOT ALL from the same
folder.

Is there a way to attach all of the files in a specific
folder to an e-mail?

thanks!
-brian
 
Is there a way to attach all of the files in a specific
folder to an e-mail?
Click to expand...

You'll most likely need to set up a loop yourself to do this...

Dim name As String
name = Dir$("C:\LOGS\*.*")
Do While Len(name) > 0
Call .Attachments.Add(name)
' Get next file
name = Dir
Loop

-- Dev
 
Back
Top