calling the outlook application

Dear Experts,
I'm building application with Delphi 6 and on SQl Server2000 database
Now, I'm trying to send an email with attachment from my program by calling outlook application,
outlook := CreateOLEObject('outlook.application');
        try
                item := outlook.CreateItem(0);
                item.Subject := Subject;
                item.Body := Body;
                item.Attachments.Add(FileName,1,1,FileName);
                item.To  := '';
                item.open; ---------  this is not working
             //   item.Send; ---- this works fine when I pass it a correct email address
My problem is that I want the outlook to be opened with subject, body, attachment  (as parameters passed to that function) but the user has to choose the email-list from the outlook contacts
I don't now how to open the outlook instead of automatically sending the email
Help me please
Amanda77Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Chris BottomleySoftware Quality Lead EngineerCommented:
Instead of:

item.Send
use
item.display

Chris
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Amanda77Author Commented:
thanks alot
it works beautifully
0
Chris BottomleySoftware Quality Lead EngineerCommented:
Glad it worked ok in Delphi ... it's standard syntax for VBA and since everything else in your code seemed to conform I thought this would as well.

Chris
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.