I'm hoping this is not complicated by needing to know what application is
the native application and creating the relevant object ... etc.
In Access I can use ...
Application.FollowHyperlink stFile, , True
... but there doesn't seem to have be a similar meethod in Outlook
Tony
Select Case Right$(Filename, 3)
Case "doc"
Set WordApp = CreateObject("Word.Application")
WordApp.Open Filename
Case "xls"
Set XLApp = CreateObject("Word.Application")
XLApp.Open Filename
End Select
' delete the file after finished
On Error Resume Next
Kill Filename
On Error Goto 0
HTH,
JP
Set Myshell = CreateObject("WScript.Shell") 'Windows Scripting Host Object
Myshell.Run "C:\some file name.ext"
You must save the attachment to the local file system first, of course, as JP noted.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54
"Tony29" <To...@bigpond.com.au> wrote in message news:128BB813-BBC8-41F2...@microsoft.com...