[源码]调用Outlook发邮件

cabinsummer · 发表于 2015-3-9 16:06

本帖最后由 cabinsummer 于 2016-12-24 15:05 编辑

一个简单的函数，稍加改造可以做出意想不到的功能。

(defun Sendmail (subject body receiver attachment / outlook mail attachments)
(vl-load-com)
(setq outlook (vlax-get-or-create-object "Outlook.Application")) ;启动outlook
(setq mail (vlax-invoke-method outlook 'CreateItem 0)) ;创建新邮件
(setq attachments (vlax-get-property mail 'Attachments)) ;声明附件
(vlax-put-property mail 'Subject subject) ;设置邮件标题
(vlax-put-property mail 'HTMLBody body) ;HTML格式正文，普通正文用Body属性
(vlax-put-property mail 'To receiver) ;收件人，多个收件人可以用";"隔开
(if (findfile attachment) (vlax-invoke-method attachments 'add attachment));添加附件
(vlax-invoke-method mail 'Send) ;发送邮件
(vlax-release-object attachments) ;释放附件对象
(vlax-release-object mail) ;释放邮件对象
(vlax-release-object outlook) ;释放outlook对象
(princ)
)

(defun Sendmail (subject body receiver attachment / outlook mail attachments) 
  (vl-load-com) 
  (setq outlook (vlax-get-or-create-object "Outlook.Application"))           ;启动outlook 
  (setq mail (vlax-invoke-method outlook 'CreateItem 0))                     ;创建新邮件 
  (setq attachments (vlax-get-property mail 'Attachments))                   ;声明附件 
  (vlax-put-property mail 'Subject subject)                                  ;设置邮件标题 
  (vlax-put-property mail 'HTMLBody body)                                    ;HTML格式正文，普通正文用Body属性 
  (vlax-put-property mail 'To receiver)                                      ;收件人，多个收件人可以用";"隔开 
  (if (findfile attachment) (vlax-invoke-method attachments 'add attachment));添加附件 
  (vlax-invoke-method mail 'Send)                                            ;发送邮件 
  (vlax-release-object attachments)                                          ;释放附件对象 
  (vlax-release-object mail)                                                 ;释放邮件对象 
  (vlax-release-object outlook)                                              ;释放outlook对象 
  (princ) 
)

函数调用示例

(sendmail "HTML格式邮件" "<HTML><BODY><font=\"宋体\" color=\"blue\" size=\"2.5\">你好， 欢迎光临明经通道 2015-03-09</BODY></HTML>" "69389337@qq.com" "")

如果有以下这行，邮件发送后会自动删除，可以神不知鬼不觉的做某些事情

(vlax-put-property mail 'DeleteAfterSubmit 1)

oistre · 发表于 2018-8-31 09:42

谢谢大神，牛牛牛牛！！！

lucas_3333 · 发表于 2015-3-9 16:12

追风而来！好久没露面啊，风版！谢谢分享！

q3_2006 · 发表于 2015-3-9 17:36

好厉害。。。

Q1241274614 · 发表于 2015-3-9 23:05

如果没有安装outlook ，有没有方法QQ邮箱对QQ邮箱直接发。

LPACMQ · 发表于 2015-3-10 00:54

厉害

USER2128 · 发表于 2015-3-10 08:15

版主出过很多精品。

zark · 发表于 2015-3-11 20:05

1、这样会不会被杀软或防火墙探测到，被视为病毒呢。
2、如果OUTLOOK没有设置smtp之类的，应该发不了吧

teykmcqh · 发表于 2015-3-11 22:50

走过路过，顶一下啦

sicky111 · 发表于 2015-3-12 00:28

现在没什么人用outlook吧

cabinsummer · 发表于 2015-3-13 09:08

sicky111 发表于 2015-3-12 00:28
现在没什么人用outlook吧

大企业用outlook的非常多

账号		自动登录	找回密码
密码			注册

[【风之影】] [源码]调用Outlook发邮件

评分

相关帖子