Eric,

Is there not a way like Word and Excel. In here I can call the SaveAs Dialog
some thing like "dialogs(dlgFileSaveAs).show" The selected folder is then put
in a variable and can be used later on.

Greetings and thanks so far
Dimitri

"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