企业微信机器人发送图片时需要提供图片的BASE64字符串，原来站里发的实现复杂，这个找到的代码目前发送正常，而且只一个函数实现简单。

代   码:

Private Function EncodeFile(strPicPath As String) As String
    Const adTypeBinary = 1 ' Binary file is encoded    
    ' Variables for encoding    
    Dim objXML    
    Dim objDocElem    
    ' Variable for reading binary picture    
    Dim objStream    
    ' Open data stream from picture    
    Set objStream = CreateObject("ADODB.Stream")    
    objStream.type = adTypeBinary    
    objStream.Open    
    objStream.LoadFromFile (strPicPath)    
    ' Create XML Document object and root node    
    ' that will contain the data    
    Set objXML = CreateObject("MSXml2.DOMDocument")    
    Set objDocElem = objXML.createElement("Base64Data")    
    objDocElem.DataType = "bin.base64"    
    ' Set binary value    
    objDocElem.nodeTypedValue = objStream.Read()    
    ' Get base64 value    
    EncodeFile2 = objDocElem.Text    
    ' Clean all    
    Set objXML = Nothing    
    Set objDocElem = Nothing    
    Set objStream = Nothing
End Function