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