Solved

Outlook 2010 opening network url via vba

Posted on 2014-09-23
10
789 Views
Last Modified: 2014-09-26
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
0
Comment
Question by:pmpatane
  • 5
  • 3
  • 2
10 Comments
 
LVL 79

Expert Comment

by:David Johnson, CD, MVP
ID: 40340882
You can't Internet Explorer security will stop you.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 40341178
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

0
 

Author Comment

by:pmpatane
ID: 40342096
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.
0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 76

Expert Comment

by:David Lee
ID: 40342377
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.
0
 
LVL 79

Expert Comment

by:David Johnson, CD, MVP
ID: 40343003
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.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 40343093
David - Good points.

pmpatane - What is you ultimate goal here?  If we knew that, then we might be able to suggest an alternative.
0
 

Author Comment

by:pmpatane
ID: 40344193
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
0
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 40344345
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)
    olkItm.Display
    Set olkItm = Nothing
End Sub

Open in new window

0
 

Author Closing Comment

by:pmpatane
ID: 40346904
That worked perfectly...THANKS!!
0
 
LVL 76

Expert Comment

by:David Lee
ID: 40347227
You're welcome!
0

Featured Post

Does Powershell have you tied up in knots?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Office Picture Manager is not included in Office 2013. This comes as a shock to users upgrading from earlier versions of Office, such as 2007 and 2010, where Picture Manager was included as a standard application. This article explains how…
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
This video shows and describes the main difference between both orientations in Microsoft Word. Viewers will understand when to use each orientation and how to get the most out of them.
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.

825 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question