VBA to open .msg saved to Hard Drive

[tbakbradley]

I have a need for a user to click a button that will run a Macro that opens an outlook .msg file saved to a specific location. It's an email template. Just needs to open that .msg file in outlook that already has the To Address and Subject and partial body they can alter.

I have code elsewhere in the spreadsheet that opens a Word Document saved to a specific location, but my searching to do the same for a .msg appears very complex and don't see why it can be simple like with Word, plus I can't follow some of the other examples I've seen.

Here is what I have to open a Word document stored somewhere.

Sub OpenWordDocument()
Set wordapp = CreateObject("word.Application")

    wordapp.documents.Open "[URL="file://\\ServerLocation\Folders\WordFile"]\\ServerLocation\Folders\WordFile[/URL].docx"

    wordapp.Visible = True
End Sub

Can something similar be done to open a .msg file saved to the same Server location?

 

[tbakbradley]

I have a need for a user to click a button that will run a Macro that opens an outlook .msg file saved to a specific location. It's an email template. Just needs to open that .msg file in outlook that already has the To Address and Subject and partial body they can alter.

I have code elsewhere in the spreadsheet that opens a Word Document saved to a specific location, but my searching to do the same for a .msg appears very complex and don't see why it can be simple like with Word, plus I can't follow some of the other examples I've seen.

Here is what I have to open a Word document stored somewhere.

Sub OpenWordDocument()
Set wordapp = CreateObject("word.Application")

    wordapp.documents.Open "[URL="file://\\ServerLocation\Folders\WordFile"]\\ServerLocation\Folders\WordFile[/URL].docx"

    wordapp.Visible = True
End Sub

Can something similar be done to open a .msg file saved to the same Server location?

I got it working after more researching.

Sub OpenOutlookTemplate()
Dim myoutapp As Object
Dim myitem As Object
Set myoutapp = CreateObject("Outlook.Application")
Set myitem = myoutapp.CreateItemFromTemplate("\\SharedServer\Folder\*.msg")
myitem.Display
End Sub