Saveas dialog

[Guest]

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

 

[Guest]

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

 

[Guest]

Is there any way of doing this in vbscript?

Thanks

Vaughan

 

[Guest]

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

 

[Guest]

Outlook unfortunately doesn't support the same interfaces with it's
Application object like the other Office apps. You can always instantiate
Word or Excel to get access to that object, but that's probably not a good
idea.

--
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/

 

[Guest]

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/