如何完善微信群发功能？

zxx82

请教论坛各位大佬：之前看到论坛大佬发帖分享微信群发的小工具，因需要另外安装小工具，我一直在留意有无不依赖外置工具的vba代码实现该功能。近日找到一段代码，可以实现群发不同人不同信息，但是不能实现表情和图片群发。还请各位大佬帮忙补充完善一下？谢谢！代码如下：



Sub 自动发微信()
       Dim Irow As Long
       Shell "C:\Program Files (x86)\Tencent\WeChat\WeChat.exe"     '微信程序地址
       Irow = 2     '发送记录的起始行
       Do While Cells(Irow, "A").Value <> ""
           SendKeys "^f"
           Application.Wait (Now() + TimeSerial(0, 0, 1))
           SendKeys Range("A" & Irow)
           Application.Wait (Now() + TimeSerial(0, 0, 1))
           SendKeys "{Enter}"
           Application.Wait (Now() + TimeSerial(0, 0, 1))
           SendKeys Range("B" & Irow)
           Application.Wait (Now() + TimeSerial(0, 0, 1))
           SendKeys "{Enter}"
           SendKeys "{Enter}"
           Irow = Irow + 1
       Loop
End Sub