Outlook Add Multiple Attachments via file dialog box

[neekee]

Hello,

I'm trying to write a code which would add files to currently opened email via file dialog box. But I can't find any proper information about file dialog box in Outlook. Could someone help me with this?

Please Login or Register  to view this content.

[Bernie Deitrick]

Select all the attachments that you want to add when file selection dialog appears.

Please Login or Register  to view this content.

[neekee]

Thank you!

Made it work turning on Excel Object Library in References and changing the code a bit.

Please Login or Register  to view this content.

But I have another question: How can I set a default path for file selection dialog?
I've tried

Please Login or Register  to view this content.

Doesn't work

[Bernie Deitrick]

It does work, if you use ChDir right before the dialog:

Please Login or Register  to view this content.

[neekee]

Still no luck... It keeps opening default "Documents" path.
As we use Excel.application with GetOpenFilename, Shouldn't the ChDrive and ChDir relate to Excel too?

[Bernie Deitrick]

Well, that code works for me, but there is an alternative, using API calls.

Try this (Whether you need the PtrSafe or not depends on your version of Excel - mine is 64 bit so it is needed. If you have 32 bit Excel remove the PtrSafe)

This code needs to go at the top of your module.

Please Login or Register  to view this content.

[neekee]

Funny, but the directory is still the same...

[Bernie Deitrick]

Yes, the directory path is still the same - that is the directory you used in your code - but it is set a different way. Did the code work for you?

[neekee]

Sorry, i meant the code still opens the default "Documents" path. It didn't work for some reason.

[Bernie Deitrick]

And no error message... Sorry, I'm at a loss for an explanation.

[xlnitwit]

You might use Excel’s FileDialog which has an initialfilename property where you can set the directory. Also note that you should be explicitly creating an instance of the Excel Application, not relying on an implicit one that you can’t terminate.