LISP to attach all files with same name to email

[JCprog]

Hello everyone!

I need help on LISP routine that will launch new email outlook and attach all files with same name as drawing name (no matter what the extension is) in same directory. Please help!!!! Thanks in advance 🙂
 

[hmsilva · Accepted solution]

---

@JCprog wrote:

It worked!!!!!!!!!!! Thank you very much Henrique!!!!!!!!!!

The only thing is it also grabs .dwl files that acad generates when drawing file is open.

---

You're welcome, JCprog

Replace the filelst function by this one

(defun filelst (/ LST NAME PATH)
  (setq	path (getvar 'DWGPREFIX)
	name (vl-filename-base (getvar 'DWGNAME))
  )
  (foreach x (vl-directory-files path nil 1)
    (if	(and (wcmatch (vl-filename-base x) name)
	     (not (wcmatch (vl-filename-extension x) ".dwl2,.dwl"))
	)
      (setq lst (cons (strcat path x) lst))
    )
  )
  lst
)

HTH

Henrique

[JCprog]

Works Perfect!!!! Thanks again Henrique!!!!

[hmsilva]

You're welcome, JCprog
Glad I could help

Henrique

[mid-awe]

Nice one Henrique.
This is less than half the code of the version I had put together a few years back. I stopped in thinking I was able to contribute =D I love this forum.

Thank you.

[hmsilva]

Thank you, mid-awe,
but all credits from the "rjp-OutlookMessage" function going to ronjonp, I just put it together with the "filelst" function to suit the OP...

Cheers
Henrique