Topic: lisp to email

[andrew_nao]

anyone have any code or a method of bypass they can share that will send email messages without a warning from outlook or user interaction?

i have some code but when its activated i get this message from my outlook that is saying "a program is sending an email on your behalf bla bla bla... do you wish to continue"

and im trying to get around this and automatically send without user interaction

here is the code im using

Code: [Select]

(defun email ()
         (setq olApp (vlax-get-or-create-object "Outlook.Application"))
         (setq objMail (vlax-invoke olApp 'CreateItem 0))
         (vlax-put-property objMail 'Subject "subject here")
         (vlax-put-property objMail 'To "email here")   ;<-----specified email
         (vlax-put-property objMail 'Body "message here")

         (vlax-invoke objMail 'Send)
)

thanks

[cmwade77]

Unfortunately, I do not; however, I would also be interested in this.....could do some automatic bug reports, as well as get a better idea of how users are using the routines.

[ronjonp]

This is pretty similar to what you are using (except you can add attachments). I tested it and do not get a prompt to send the mail.
http://www.theswamp.org/index.php?topic=26953.msg324794#msg324794

[TimSpangler]

This is pretty similar to what you are using (except you can add attachments). I tested it and do not get a prompt to send the mail.
http://www.theswamp.org/index.php?topic=26953.msg324794#msg324794

I got the prompt with this Ron.  Maybe it is a security setting?

I am running Outlook '03 if that matters.

[ronjonp]

Perhaps the antivirus is not up to date. I have 2007 and when disabled gave the send warning.
There is also a checkbox Tools>>Trust Center>>Programmatic Access (Never warn about suspicious activity) that stopped the prompt.
http://office.microsoft.com/en-us/outlook-help/i-get-warnings-about-a-program-accessing-e-mail-address-information-or-sending-e-mail-on-my-behalf-HA001229943.aspx#BM3

[andrew_nao]

i was hoping there was a way around this my IT admin isnt going to turn off the security settings for this

[andrew_nao]

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


[cmwade77]

Can you please provide where you got this, so that proper credit can be given?

[andrew_nao]

when googling it linked me to the autodesk forums

but im affraid i dont know how to set this up
maybe one of you other master coders can inform me/us
on how to set this up?

[alanjt]

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?

[ronjonp]

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?

[alanjt]

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

[Keith™]

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?

From the usage in the file provided by Ron ..

;;Usage
(rjp-OutlookMessage
  ;;email address (multiple separated by semicolon)
  "johndoe@nowhere.com;johndoewife@nowhere.com"
  ;;Subject
  "Test Email"
  ;;Attachments as a list of strings
  '("C:\\test\\file1.txt" "C:\\test\\file2.txt" "C:\\test\\file3.txt")
  ;;Text in body of email
  "Nothing to read here :)"
 ;;nil will open email to edit...T will send email in the background
  nil
)

Check your syntax ...

[ronjonp]

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?

[alanjt]

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.