outlook-addin - 启用获取文件内容
问题描述
这是我的功能:
Private Function Get_FileContents_FromWebpage(URL As String) As String
On Error GoTo Err_Get_FileContents_FromWebpage
Dim objWeb As Object
Set objWeb = CreateObject("Microsoft.XMLHTTP") ' Instantiate an instance of the web object
With objWeb
.Open "GET", URL, False ' Pass the URL to the web object, and send the request
.send
Get_FileContents_FromWebpage = .responsetext ' Look at the HTML string returned
End With
Set objWeb = Nothing
Exit Function
Err_Get_FileContents_FromWebpage:
Set objWeb = Nothing
Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End Function
我需要帮助来启用以下附加功能。
加载项启用 Get_FileContents