在Outlook中使用VBA在Web / URL /超链接上保存文件

如何解决在Outlook中使用VBA在Web / URL /超链接上保存文件

|| 因此，我每周收到一封电子邮件，该电子邮件始终具有相同的格式，并且在正文中具有指向PDF文件的超链接。我知道如何解析电子邮件以检索URL，但是可以使用VBA代码然后从超链接/ URL下载该文件并将其保存在文件夹中吗？     

解决方法

        

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 DownloadFile(sURL,sSaveAs)
    Dim rv As Long

    rv = URLDownloadToFile(0,sURL,sSaveAs,0)
    If rv = 0 Then
        MsgBox \"Download has been succeed!\"
    Else
        MsgBox \"Error\"
    End If
End Sub

    ,        我最终使用了在另一块板上找到的另一种方法，尽管我知道我可以找到的大多数示例都使用了UrlDownloadtoFile。代码如下：

Dim myURL As String
myURL = \"http://www.somesite.com/file.csv\"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject(\"Microsoft.XMLHTTP\")
WinHttpReq.Open \"GET\",myURL,False
WinHttpReq.Send

myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject(\"ADODB.Stream\")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.ResponseBody
    oStream.SaveToFile (\"C:\\file.csv\")
    oStream.Close
End If