Problem with mail attachements

CFC 409's Avatar
Newbie Member

I found this code in your site and I happy to use it.

Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
   .To = ""
   .Cc = ""
   .Subject = "Hello World (one more time)..."
   .Body = "This is the body of message"
   .HTMLBody = "HTML version of message"
   .Attachments.Add ("f:\Test.txt")
   .Send 'Let´s go!
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
I need attach more than one file in the same mail. For example I need attach all text files that are in directory. I tried to use string:

.Attachments.Add ("f:\Directory\*.txt")

but it did not work. Could you help me.
Thank you.

Last edited by shabbir; 18Apr2007 at 20:09.. Reason: Code formatting.
pradeep's Avatar, Join Date: Apr 2005
Team Leader
You'll have to loop through the file list in a directory and add the files individually!
Use the filesystem object.