怎么用lisp通过QQ邮箱发送邮件？

cable2004

怎么用lisp通过QQ邮箱发送邮件？

marting

VLISP可以通过ACTIVEX 使用系统的邮件客户端，比如OUTLOOK发送EMAIL，而QQ邮箱的SMTP你可以设置到OUTLOOK里面
下面是代码，可以发送附件

1. ;; Outlook Message  -  ronjonp (modified slightly by Lee Mac :-)
   
2. ;; rcp - [str] Email 地址 (多个地址用分号隔开)
   
3. ;; sub - [str] 主题
   
4. ;; bdy - [str] 内容
   
5. ;; att - [lst]附件表
   
6. ;; snd - [bol] T=发送; nil=打开编辑邮件内容
   
7. 
   
8. 
   
9. (defun rjp-outlookmessage ( rcp sub bdy att snd / atm msg out rtn )
   
10.     (if (setq out (vlax-get-or-create-object "outlook.application"))
    
11.         (progn
    
12.             (setq rtn
    
13.                 (vl-catch-all-apply
    
14.                    '(lambda nil
    
15.                         (setq msg (vlax-invoke-method out 'createitem 0)
    
16.                               atm (vlax-get msg 'attachments)
    
17.                         )
    
18.                         (vlax-put msg 'to rcp)
    
19.                         (vlax-put msg 'subject sub)
    
20.                         (foreach fnm att
    
21.                             (if (setq fnm (findfile fnm))
    
22.                                 (vlax-invoke atm 'add fnm)
    
23.                             )
    
24.                         )
    
25.                         (if snd
    
26.                             (vlax-invoke msg 'send)
    
27.                             (vlax-invoke msg 'display :vlax-true)
    
28.                         )
    
29.                         t
    
30.                     )
    
31.                 )
    
32.             )
    
33.             (foreach obj (list atm msg out)
    
34.                 (if (= 'vla-object (type obj))
    
35.                     (vlax-release-object obj)
    
36.                 )
    
37.             )
    
38.             (if (vl-catch-all-error-p rtn)
    
39.                 (prompt (vl-catch-all-error-message rtn))
    
40.                 rtn
    
41.             )
    
42.         )
    
43.     )
    
44. )
    

;; Outlook Message  -  ronjonp (modified slightly by Lee Mac :-)<br /> ;; rcp - [str] Email 地址 (多个地址用分号隔开)<br /> ;; sub - [str] 主题<br /> ;; bdy - [str] 内容<br /> ;; att - [lst]附件表<br /> ;; snd - [bol] T=发送; nil=打开编辑邮件内容<br /> <br /> <br /> (defun rjp-outlookmessage ( rcp sub bdy att snd / atm msg out rtn )<br />     (if (setq out (vlax-get-or-create-object "outlook.application"))<br />         (progn<br />             (setq rtn<br />                 (vl-catch-all-apply<br />                    '(lambda nil<br />                         (setq msg (vlax-invoke-method out 'createitem 0)<br />                               atm (vlax-get msg 'attachments)<br />                         )<br />                         (vlax-put msg 'to rcp)<br />                         (vlax-put msg 'subject sub)<br />                         (foreach fnm att<br />                             (if (setq fnm (findfile fnm))<br />                                 (vlax-invoke atm 'add fnm)<br />                             )<br />                         )<br />                         (if snd<br />                             (vlax-invoke msg 'send)<br />                             (vlax-invoke msg 'display :vlax-true)<br />                         )<br />                         t<br />                     )<br />                 )<br />             )<br />             (foreach obj (list atm msg out)<br />                 (if (= 'vla-object (type obj))<br />                     (vlax-release-object obj)<br />                 )<br />             )<br />             (if (vl-catch-all-error-p rtn)<br />                 (prompt (vl-catch-all-error-message rtn))<br />                 rtn<br />             )<br />         )<br />     )<br /> )<br />

上面函数用法：

1. (defun c:mp ( / dir )
   
2.     (if (zerop (getvar 'dwgtitled))
   
3.         (princ "\nCurrent drawing is unsaved.")
   
4.         (rjp-outlookmessage
   
5.             "Jeremiah.Parsons@applusrtd.com"
   
6.             (getvar 'dwgname)
   
7.             (strcat  
   
8.                 (setq dir (vl-string-right-trim "\\" (getvar 'dwgprefix)))
   
9.                
   
10.             )
    
11.             (vl-remove-if
    
12.                '(lambda ( x )
    
13.                     (wcmatch (vl-filename-extension x) ".log,.bak,.dwl2,.dwl")
    
14.                 )
    
15.                 (mapcar '(lambda ( x ) (strcat dir "\\" x)) (vl-directory-files dir nil 1))
    
16.             )
    
17.             nil
    
18.         )
    
19.     )
    
20.     (princ)
    
21. )

(defun c:mp ( / dir )<br />     (if (zerop (getvar 'dwgtitled))<br />         (princ "\nCurrent drawing is unsaved.")<br />         (rjp-outlookmessage<br />             "Jeremiah.Parsons@applusrtd.com"<br />             (getvar 'dwgname)<br />             (strcat  <br />                 (setq dir (vl-string-right-trim "\\" (getvar 'dwgprefix)))<br />                 <br />             )<br />             (vl-remove-if<br />                '(lambda ( x )<br />                     (wcmatch (vl-filename-extension x) ".log,.bak,.dwl2,.dwl")<br />                 )<br />                 (mapcar '(lambda ( x ) (strcat dir "\\" x)) (vl-directory-files dir nil 1))<br />             )<br />             nil<br />         )<br />     )<br />     (princ)<br /> )

/db_自贡黄明儒_

marting 发表于 2018-9-11 18:18
VLISP可以通过ACTIVEX 使用系统的邮件客户端，比如OUTLOOK发送EMAIL，而QQ邮箱的SMTP你可以设置到OUTLOOK里 ...

怎么给某个好友发骚扰信息？

sicky111

试一下能不能发送成功！

ysq101

/db_自贡黄明儒_ 发表于 2018-9-11 18:58
怎么给某个好友发骚扰信息？

学会了我要骚扰黄大师