[求助]在CAD中如何实现用lisp调用邮件系统?

yunlong300

在CAD中如何用lisp调用系统默认邮件程序?又如何用lisp向其中填写收件人、主题及内容？望高手解答。谢谢

alin

;Check out this one, it was written based on an routine d/l from the web.

(setq *MY-LISP-PATH* "f:\\XXXX\\")

(defun c:send (/      OUTLOOK    MAIL-ITEM  RECIPIANTS
        LOG-FILE      ATTACHMENTS   desAddress  outlookobj
       )
  (setq desAddress "XXXXXXX@hOtmail.com")
  (setq outlookobj "Outlook.Application.10")

  (if
    (setq outlook (vlax-get-or-create-object outlookobj))
     (progn
       (setq mail-item (vlax-invoke-method outlook 'CreateItem 0))
;;;       (vlax-invoke-method mail-item 'Save)
;;;       (vlax-invoke-method mail-item 'Display)
       (ADD-RECIPIANTS MAIL-ITEM)
       (vlax-put-property mail-item 'Subject "Here is the subject")
       (vlax-GET-property mail-item 'Subject)
       (ATTACH-FILE MAIL-ITEM)
       (if (vlax-invoke-method mail-item 'Send)
  (princ "\nMail sent.")
       )
     )
     (princ "\nUnable to start Outlook...")
  )
  (princ)
)

(defun ATTACH-FILE (MAIL-ITEM / ATTACHMENTS FILE cnt)
  (setq cnt 0)
  (while (setq FILE (getfiled "Select a File" *MY-LISP-PATH* "*" 4))
    (setq ATTACHMENTS (vlax-get-property mail-item 'Attachments))
    (vlax-invoke-method attachments 'Add FILE 1 1)
    (setq cnt (1+ cnt))
    (PRINC (strcat "\nAttachment"
     (itoa cnt)
     ": "
     (vl-filename-base FILE)
     (vl-filename-extension FILE)
    )
    )
  )
)
(defun ADD-RECIPIANTS (MAIL-ITEM / RECIPIANTS)
  (setq recipiants (vlax-get-property mail-item 'Recipients))
  (vlax-invoke-method
    recipiants
    'Add
    desAddress
  )
;;;  (vlax-invoke-method
;;;    RECIPIANTS
;;;    'ADD
;;;    "anyone@anydomain.com"
;;;  )
  (princ (strcat "\nRecipient: " desAddress))
)

(princ "\nType \"Send\" to SEND EMAIL...")
(princ)

yunlong300

多谢alin斑竹。我先当下来研究一下，有问题再向您请教。

yunlong300

alin斑竹：用以下语句可以得知系统的默认邮件程序
(setq MailApp (VL-REGISTRY-READ "HKEY_LOCAL_MACHINE\\SOFTWARE\\Clients\\Mail" "@"))
可是，如何去创建它的一个应用实例呢？就象以下语句可以创建一个outlook的应用实例一样（我的系统默认邮件程序是foxmail）。
(setq outlook (vlax-get-or-create-object "Outlook.Application.10"))

 

 

alin

Sorry I have never used Foxmail.

yunlong300

：），谢谢alin斑竹

我爱lisp

鼓励一下，不过只有发邮件，没有收邮件的功能啊

cable2004

已知QQ号和密码。利用QQ发邮件的方法呢？