Choose Save folder when using VBA to save an outlook item?

Question

I have a very simple app I wrote to create an item from VB outside of outlook. What I am wondering if there is a way to select the folder when it saves. Here is the code maybe then you will know what I am talking about

Dim objOutlookItem As Object
Dim objOutlook As New Outlook.Application

For x = Me.Option1.LBound To Me.Option1.UBound
If Option1(x).Value = True Then Exit For

Next


Set objOutlookItem = objOutlook.CreateItem(x)
objOutlookItem.Display
Set objOutlook = Nothing
Set objOutlookItem = Nothing

End

Answer 1

VB has a DirListBox and FileListBox that you can use to select the drive, directory and file just like anytime you browse to save. Sorry I don't have the code here at work with me.