Re: Outlook Attachments - open with code

Am Tue, 8 Nov 2005 17:07:39 +0100 schrieb steve:

Steve, how do you call the method?

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook


> I have utilized code to save attachments and remove from an Outlook
> e-mail message - Michael Bauer posted code in this forum to open
> attachments, which is what I want to do, and I posted it in my VB
> Editor, but nothing happened.
>
> ------------------------------------------------------------------------
> Private Declare Function ShellExecute Lib "shell32.dll" Alias _
> "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
> ByVal lpFile As String, ByVal lpParameters As String, _
> ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
> Const SW_MAXIMIZE = 3
> Const SW_MINIMIZE = 6
> Const SW_NORMAL = 1
>
> Public Sub OpenFile(sFile As String)
> ShellExecute 0, "open", sFile, vbNullString, vbNullString, SW_NORMAL
> End Sub