Howto show a saveas dialog in outlook 1

[sciencer]

Hi

Can anyone tell me Howto show a saveas dialog in outlook?

Greetings Raymond

 

[SBendBuckeye]

Hello,

I don't believe that you can in Outlook, but if you set a reference to Excel (leave it hidden) then you can use this:

With objMyExcel.Application
    .GetOpenFilename ([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
    .GetSaveAsFilename ([InitialFilename], [FileFilter], [FilterIndex], [Title], [ButtonText])

All of the above are optional parameters you can use. Hope this helps and Good Luck!

Have a great day!

j2consulting@yahoo.com

 

[SBendBuckeye]

Hello Sciencer,

I thought I had some code laying around to do what you need. Just copy this code into your Outlook module and I think it will do what you need. By defining the Excel object as Object you don't have to set a reference to Excel as I told you to do in my prior post. good luck!

'GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
'GetSaveAsFilename([InitialFilename], [FileFilter], [FilterIndex], [Title], [ButtonText])
Sub ExcelFileDialogs(Optional ShowOpen As Boolean)
Dim FileName As Variant
    With CreateObject("Excel.Application")
        If ShowOpen Then
            FileName = .GetOpenFilename 
            If VarType(FileName) = vbBoolean Then
                MsgBox "User Cancelled"
            Else
                MsgBox FileName 'File/Path user selected
            End If
        Else
            FileName = .GetSaveAsFilename
            If VarType(FileName) = vbBoolean Then
                MsgBox "User Cancelled"
            Else
                MsgBox FileName 'File/Path as user saved it
            End If
        End If
    End With
End Sub

Have a great day!

j2consulting@yahoo.com

 

[sciencer]

Can I also set a defualt directrory?

Raymond

 

[sciencer]

Setting teh dircetory for the saveas dialog can you do if you reference to excel

and then use the fulling code
dim myolexcel as new Excel.appliaction

With MyOlExcel
Dircectory = .DefaultFilePath
.DefaultFilePath = PathAttach
FileName = .GetSaveAsFilename(, , , "Attachment save as&quot
If VarType(FileName) <> vbBoolean Then
MsgBox FileName
End If
.DefaultFilePath = Dircectory
End With

The last problem i've is to put the filenam of the attachment in the field where Filename of the dialog window

Does any one know how you can do that?

Greetings Raymond

 

[SBendBuckeye]

I'm not sure of the exact syntax but check out the MailItem Attachment property. It would probably involve some combination of add and then set a property to the file name you retrieved from the dialog box. Good Luck!

Have a great day!

j2consulting@yahoo.com