Cannot open extracted .msg files from outlook

felinluv

New Member
Outlook version
Outlook 2007
Email Account
Exchange Server 2007
Hello,

I got the following code from the web which extracts files from sharepoint and saves it as .msg extension t my local folder.
When try to open the saved file, I get the following error message:

"Cannot open file: c\users\xx\xx\xxx.msg The file may not exist, you may not have permission to open it, or it may be open in anothe program. Right-click the foler that contains the file, and the click properties to check your permission for the folder"

When I save the same file manually, the file opens...can someone please let me know why I cannot open saved .msg files?


Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" ( _
ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Sub DownloadFileFromWeb()
Dim i As Integer
Const strUrl As String = "http://moore/Moore Price Support 2/Forms/AllItems.aspx?View={fe39076f-f057-43fd-abea-3159a133eae9}&SortField=Modified&SortDir=Desc/FW UPDATED Client Pricing Reminder - July 31 2014.msg"
Dim strSavePath As String
Dim returnValue As Long

strSavePath = "C:\Users\\Desktop\SharePoint\DATE.msg"
returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)

End Sub

Thank You
 

A A Ron

New Member
Outlook version
Outlook 2013 32 bit
Email Account
IMAP
Have you found an answer to this question...I am having the same issue, and I cannot figure it out.
 
Top