Outlook 2010 opening network url via vba

In Outlook 2010 I have code that needs to open a link.
Sub LinkFollow()

x = Shell("C:\Windows\explorer.exe  \\ntwkdata1\vol1\oft.url", vbMaximizedFocus)

End Sub

Open in new window

When I run the code, I get the window in the attached jpg.  How can I make that just automatically select Open?
What displays after code is run
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

David Johnson, CD, MVPRetiredCommented:
You can't Internet Explorer security will stop you.
David LeeCommented:
Hi, pmpatane.

Please try this approach.  It works when the .url file is on a local drive.  I'm not in a position at the moment to test it on a network drive.

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

ShellExecute 0&, "open", "\\ntwkdata1\vol1\oft.url", 0&, 0&, 0&

Open in new window

pmpataneAuthor Commented:
Hi BlueDevilFan,
It appears David Johnston is correct, that it will be blocked.  The code you gave me produces the same result, that lovely dialog box.  Alas, my users will need to click the open button.
Price Your IT Services for Profit

Managed service contracts are great - when they're making you money. Yes, you’re getting paid monthly, but is it actually profitable? Learn to calculate your hourly overhead burden so you can master your IT services pricing strategy.

David LeeCommented:
I've just tested this on my system and it worked perfectly opening a .url shortcut.  I tired it with IE and Firefox and both worked.  I don't know what you have your shortcut pointing to, I pointed mine to google.com, so perhaps that's the difference.
David Johnson, CD, MVPRetiredCommented:
a hyperlink to a web address will never give you an open or save dialog it will always open. BlueDevilFan what made you think any differntly.  You are comparing apples to oranges as we are referring to a different mime type. a file that the browser doesn't know how to handle i.e. a word document then you are given the option to open or save the file. the file gets saved to disk in both cases but in different locations. with open the file exists in the browsers temporary folder and in the save option it is saved where the user wants it to be saved.
David LeeCommented:
David - Good points.

pmpatane - What is you ultimate goal here?  If we knew that, then we might be able to suggest an alternative.
pmpataneAuthor Commented:
We have a macro running in Outlook, and at times it needs to open a template (.oft)  The template is stored in a location that most of our users do not have mapped, so the macro points to a shortcut on a shared drive.  But I just tested the code again putting in the exact internal URL and still I get that dialog box
David LeeCommented:
There's an easier way to do this.  Add this code to that you already have.  To create an item from a template, call the subroutine and pass it the path to the template file.  That will be the same path as the target in the shortcut.

Sub CreateItemFromTemplate(strTemplate As String)
    Dim olkItm As Outlook.MailItem
    Set olkItm = Application.CreateItemFromTemplate(strTemplate)
    Set olkItm = Nothing
End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
pmpataneAuthor Commented:
That worked perfectly...THANKS!!
David LeeCommented:
You're welcome!
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Office

From novice to tech pro — start learning today.