No, because Win32 API's cannot be declared in VBScript. However, if you used
the CommonFileDialog control in a custom Outlook form you should be able to
automate that control in code. Keep in mind that the CommonFileDialog is not
very useful for selecting a directory, as it is file specific.

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Vaughan" wrote:

Is there any way of doing this in vbscript?

Thanks

Vaughan

"Eric Legault [MVP - Outlook]" wrote:

You'd have to use a class to instantiate a folder browser dialog. See:

VB TIP: Using the Browse Folder Dialog Box:
http://www.developer.com/net/vb/article.php/1541831

--
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Dimitri" wrote:

Hello,

I'm using the code below to save an MailItem to my harddrive as a back up
and digital archive. In the code there is an folder hard coded
(C:\Data\outlook\) I would like to Have a Dialog like File Save As tot pick a
certain folder on my harddrive

Can somebody help me out with this?

Thanks!
Dimitri

Sub SaveAsFile()
Dim myItem As Outlook.Inspector
Dim objItem As Object
Dim strname As String
Set myItem = Application.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem
objItem.SaveAs "C:\Data\outlook\" & "Test1.msg", olMSG
Else
MsgBox "There is no current active inspector."
End If
End Sub