野狼谷/〈M〉 发表于 2013-11-19 10:13:59

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

fl202 发表于 2014-7-23 15:31:20

本帖最后由 fl202 于 2014-7-23 15:54 编辑

27012701 发表于 2008-10-17 13:01 static/image/common/back.gif
很强!能不能加附件呀?再想请楼主写个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
)
页: 1 2 3 4 [5]
查看完整版本: [原创]自动发邮件--支持群发+发送附件(当前DWG)功能!