[原创]自动发邮件--支持群发+发送附件(当前DWG)功能!

野狼谷/〈M〉

老猫，这个话题还值得继续研究哦，08年就具备这个水平，估计是程序员的基础了

fl202

27012701 发表于 2008-10-17 13:01
很强！能不能加附件呀？再想请楼主写个foxmail的，很多人都用这个，能做到吗？

http://club.excelhome.net/thread-1027200-1-1.html
VBA为什么可以调用OUTLOOK, 是因为它们是一家的产品, 开放DLL可以相互调用
想调用foxmail想法是好的, 不过可能只是想法吧。

更进一步：
(defun setClipText(str / html result)
;将字符串写进内存剪切板
(if (= 'STR (type str))
  (progn
  (setq html   (vlax-create-object "htmlfile")
        result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'setData "Text" str)
  )
  (vlax-release-object html)
   str
   )
);end if
)