outlook macro to call external appication wit parameters

[patronu]

I'm trying to run irfanview to scan and attach the scanned file to a new mail. But the problem is I can't add parameters. This is what I have now. It works when I don't have parameters, if I add them then I get file not found. Anyone can help? Thank you.

Sub test1()

Dim RetVal

On Error GoTo ErrorHandler

RetVal = Shell("C:\Program Files (x86)\IrfanView\i_view32.exe /scan /jpgq=50 /convert=c:\temp\scan50.pdf", 1)

End

ErrorHandler:

If RetVal = 0 Then

Msg = "File not Found"

Else

Msg = Err.Description

End If

MsgBox Msg

End Sub