« previous next »
Pages: 1 [2]  All |   Go Down

Author Topic: lisp to email  (Read 15408 times)

0 Members and 1 Guest are viewing this topic.

andrew_nao

  • Guest
Re: lisp to email
« Reply #15 on: December 08, 2010, 02:34:34 PM »
Quote from: alanjt on December 08, 2010, 02:20:05 PM
Quote from: ronjonp on December 08, 2010, 02:18:29 PM
Quote from: alanjt on December 08, 2010, 02:14:26 PM
Quote from: ronjonp on December 08, 2010, 02:13:27 PM
Quote from: alanjt on December 08, 2010, 02:06:46 PM
Ron, on your routine, I didn't receive a prompt, but I still have to press send in the new email document, or is this supposed to happen?

It should have just sent? What version of Outlook are you using?
'03 in win7

Did you specify T for the last arg?
I'm retarded - didn't even notice that.  :ugly:
FYI, it also gives me the warning.



that the same message i get
and my IT guy wont be available till next week so im SOL with this other code till then :(
Logged

cmwade77

  • Swamp Rat
  • Posts: 1443
Re: lisp to email
« Reply #16 on: December 08, 2010, 02:38:27 PM »
Quote from: andrew_nao on December 08, 2010, 01:46:37 PM
after much searching the net i found this...
it has to be setup to work for you with your smpt info and account name and passwords but its worth a try
as soon as I get ahold of my IT admin i will test this out but if someone else tests this out before i do report back and let us know if this works

Code: [Select]
; use (sendmail cRecip cSender cServer cUser cPass cSubject cMessage)
(defun SendMail (cRecip cSender cServer cUser cPass cSubject cMessage / iMsg iConf Flds fItem)
; create our CDO object
  (setq iMsg  (vlax-create-object "CDO.Message")
iConf (vlax-create-object "CDO.Configuration")
Flds  (vlax-get-property iConf 'Fields)
  ) ; setq

; configure the settings
  (setq
    fItem (vlax-get-property
    Flds
    'Item
    "http://schemas.microsoft.com/cdo/configuration/sendusing"
  )
  )
  (vlax-put-property FItem 'Value 2)
  (setq fItem
(vlax-get-property
   Flds
   'Item
   "http://schemas.microsoft.com/cdo/configuration/smtpserver"
)
  )
  (vlax-put-property FItem 'Value cServer)
; @@ SMTP SERVER
  (setq fItem
(vlax-get-property
   Flds
   'Item
   "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
)
  )
  (vlax-put-property FItem 'Value 25)
  (setq fItem
(vlax-get-property
   Flds
   'Item
   "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
)
  )
  (vlax-put-property FItem 'Value 5) ; smtp server timeout in seconds
  (setq fItem
(vlax-get-property
   Flds
   'Item
   "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
)
  )
  (vlax-put-property FItem 'Value 1)
  (setq fItem
(vlax-get-property
   Flds
   'Item
   "http://schemas.microsoft.com/cdo/configuration/sendusername"
)
  )
  (vlax-put-property FItem 'Value cUser) ; @@ ACCOUNT
  (setq fItem
(vlax-get-property
   Flds
   'Item
   "http://schemas.microsoft.com/cdo/configuration/sendpassword"
)
  )
  (vlax-put-property FItem 'Value cPass) ; @@ PASSWORD
  (vlax-invoke-method Flds 'Update)

; Build HTML for message body.
  (setq strHTML "<HTML>"
strHTML (strcat strHTML "<HEAD>")
strHTML (strcat strHTML "</HEAD>")
strHTML (strcat strHTML "<BODY>")
strHTML (strcat strHTML cMessage)
strHTML (strcat strHTML "</BODY>")
strHTML (strcat strHTML "</HTML>")
  ) ; setq

; Apply the settings to the message.
  (vlax-put-property iMsg 'Configuration iConf)
  (vlax-put-property iMsg 'To cRecip)
  (vlax-put-property iMsg 'From cSender); @@ FROM ADDRESS
  (vlax-put-property iMsg 'Subject cSubject)
  (vlax-put-property iMsg 'HTMLBody strHTML)
  (vlax-invoke-method iMsg 'Send)

  (vlax-release-object iMsg)
  (vlax-release-object iConf)

  (princ)
) ; SendMail
This works perfectly, I would like a link to where it was found though....I always try to put those in my LISP routines when I find something online.
Logged

Keith™

  • Villiage Idiot
  • Seagull
  • Posts: 16899
  • Superior Stupidity at its best
Re: lisp to email
« Reply #17 on: December 08, 2010, 02:39:25 PM »
Outlook -> Tools -> Trust Center -> Programmatic Access -> Never warn me about suspicious activity (not recommended)

Logged
Proud provider of opinion and arrogance since November 22, 2003 at 09:35:31 am
CadJockey Militia Field Marshal

Find me on https://parler.com @kblackie

andrew_nao

  • Guest
Re: lisp to email
« Reply #18 on: December 08, 2010, 02:45:48 PM »
Quote from: cmwade77 on December 08, 2010, 02:38:27 PM
This works perfectly, I would like a link to where it was found though....I always try to put those in my LISP routines when I find something online.

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Email/m-p/1619391

can you post what you did so i can see how this works?
Logged

andrew_nao

  • Guest
Re: lisp to email
« Reply #19 on: December 08, 2010, 02:47:38 PM »
Quote from: Keith™ on December 08, 2010, 02:39:25 PM
Outlook -> Tools -> Trust Center -> Programmatic Access -> Never warn me about suspicious activity (not recommended)



i dont have trust center in my tools

im using outlook 2000 sp3
Logged

Keith™

  • Villiage Idiot
  • Seagull
  • Posts: 16899
  • Superior Stupidity at its best
Re: lisp to email
« Reply #20 on: December 08, 2010, 02:48:43 PM »
Perhaps it is disabled by the administrator OR it is under a securities tab in the options
Logged
Proud provider of opinion and arrogance since November 22, 2003 at 09:35:31 am
CadJockey Militia Field Marshal

Find me on https://parler.com @kblackie

cmwade77

  • Swamp Rat
  • Posts: 1443
Re: lisp to email
« Reply #21 on: December 08, 2010, 02:56:21 PM »
Quote from: andrew_nao on December 08, 2010, 02:45:48 PM
Quote from: cmwade77 on December 08, 2010, 02:38:27 PM
This works perfectly, I would like a link to where it was found though....I always try to put those in my LISP routines when I find something online.

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Email/m-p/1619391

can you post what you did so i can see how this works?

Here is how I called the routine (be sure to replace anything in <> with your information):
(sendmail "<To Email Address>" "<From Email Address>" "<SMTP Server>" "<UserName>" "<Password>" "Test Email" "This is a test from within AutoCAD!")

You will need an SMTP server that uses standard ports, you will also need to know your username and password for the SMTP server. Please note that Google's SMTP server will not work without modifications to the code; however, there are many free ones out there that will work.
Logged

JohnK

  • Administrator
  • Seagull
  • Posts: 10634
Re: lisp to email
« Reply #22 on: December 08, 2010, 04:08:25 PM »
Logged
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

andrew_nao

  • Guest
Re: lisp to email
« Reply #23 on: December 10, 2010, 04:40:55 PM »
has anyone have any experience with using this on an ms exchange server
my email goes thru an exchange server and not a smtp server so this code isnt doing me any good.
Logged

JohnK

  • Administrator
  • Seagull
  • Posts: 10634
Re: lisp to email
« Reply #24 on: December 10, 2010, 05:35:31 PM »
yes, me.

try: "mail.YourDomainName" or "mail.YourCompanyName"
Logged
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

andrew_nao

  • Guest
Re: lisp to email
« Reply #25 on: December 13, 2010, 09:45:02 AM »
Quote from: Se7en on December 10, 2010, 05:35:31 PM
yes, me.

try: "mail.YourDomainName" or "mail.YourCompanyName"


i tried that but i get this error
; error: Automation Error. The transport lost its connection to the server.

would you know what this means?
Logged

JohnK

  • Administrator
  • Seagull
  • Posts: 10634
Re: lisp to email
« Reply #26 on: December 13, 2010, 10:41:44 AM »
Sorry, i dont.
Logged
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org
Pages: 1 [2]  All |   Go Up
« previous next »