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/...9a133eae9}&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
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/...9a133eae9}&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