Solved

Open Outlook file via Excel VBA

Posted on 2013-01-11
2
703 Views
Last Modified: 2013-01-11
Hi
Within my custom Excel Ribbon, I want to provide a button which will open an Outlook file (.msg format) - it will need to open this file within Outlook.
(This Outlook file will be an email which will provide them help with some aspects of the Ribbon.)

How to I modify my file>open VBA code to tell Excel that this is an Outlook-type file which is being opened (and it neds to open in Outlook and not Excel)?

Thanks a lot
Fergal
0
Comment
Question by:fjkilken
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 16

Accepted Solution

by:
terencino earned 500 total points
ID: 38766527
Hi Fergal, what about:
ActiveWorkbook.FollowHyperlink Address:="full_path_to_MSG_file"

Open in new window

It is quite simple although you need to supress all the hysterical security messages!
...Terry
0
 

Author Closing Comment

by:fjkilken
ID: 38766562
thanks - that's an option alright - just a bit messy with all the dialog boxes
Meantime, I found a solution which uses a function to Shell the appropriate application which seems to work ok

Public Function OpenWithShell(ByVal strFilePath As String) As Boolean
'Author       : Ken Puls
'Macro Purpose: To open any file in the appropriate application
    'Test for file existence to avoid Windows error message
    If Not Dir(strFilePath) = vbNullString Then
        'Open the file
        Shell ("RunDLL32.EXE shell32.dll,ShellExec_RunDLL " & strFilePath)
        OpenWithShell = True
    End If
End Function

Sub OpenFileExample()
'Author       : Ken Puls
'Macro Purpose: To demonstrate the use of the OpenWithShell function
    Dim strFullFileName As String
   
    'Set path to file
    strFullFileName = "C:\My Documents\Some Outlook Message.msg"
   
    'Check if file opened
    If OpenWithShell(strFullFileName) = False Then _
        MsgBox ("File not opened!")
End Sub
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Excel can be a tricky bit of software to get your head around. Whilst you’ll be able to eventually get to grips with the basic understanding of how to get by, there are a few Excel tips that not everybody will even know about let alone know how to d…
How to get Spreadsheet Compare 2016 working with the 64 bit version of Office 2016
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.

738 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