Saveas dialog

**Vaughan** · February 16th 06, 10:26 AM posted to microsoft.public.outlook.program_vba

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

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word print dialog box	Martin	Outlook - Using Forms	1	January 31st 06 01:05 PM
Saveas web page shows Appointment and Event Details	Robert Grimes	Outlook - Calandaring	0	January 30th 06 02:09 PM
SaveAs() sometimes loses userProperty!	PuppetMaster	Add-ins for Outlook	3	January 24th 06 10:49 AM
SaveAs() sometimes loses userProperty!	PuppetMaster	Outlook and VBA	3	January 24th 06 10:49 AM
dialog comes up when trying to access mailItem	Neo	Add-ins for Outlook	3	January 16th 06 09:56 PM