Email with file attachment

[budz]

Hi everyday and have a nice day.
Im emailing a report in text format using vfp6 and it works fine. Now, my problem is how could I attach 2 or more files in one message. Example in one message I would like to attach all files that start with letter A.
Thanks for the help.

 

[ramani]

HI
********************************************
o=createobject("outlook.application&quot
oitem=o.createitem(0)
oitem.subject="Email From VFP6"
oitem.to="ramani_g@yahoo.com"
oitem.body="This mail was sent from vfp using Outlook98"
oitem.Attachments.Add("d:\winners\cmp\email.prg&quot

myPath = "specify a full path"
=ADIR(myAttach,myPath+"A*.txt&quot
FOR I=1 to ALEN(myAttach,1)
oitem.Attachments.Add(myPath+myAttach(I,1))
ENDFOR

oitem.send
o=.null.
**********************************************************
Note to add any path in the above suitably

Hope this helps ramani :-9
(Subramanian.G),FoxAcc, ramani_g@yahoo.com