How to hide the returnvalue of sendcommand ?

[MRL]

Hello,

I wrote a VBA-routine. A screen will popup and you can click on a link to send email. When i click on the button the VBA-screen will be closed and a LISP-routine is started to send a email via VisualLisp The returnvalue in the textscreen is: (vlm:Sendmail) How can i hide the returnvalue? (i don't want to see which routine is started)

Martin

Private Sub Label2_Click
About_screen.Hide
ThisDrawing.SendCommand "(vlm:SendEmail)" & vbCr
End Sub

 

[Fred Wilson]

Just guessing, but maybe:

ThisDrawing.SendCommand "(vlm:SendEmail)(princ)" & vbCr

Also, this my be a typo, but your return value is (vlm:Sendmail), but you are calling (vlm:SendEmail). Which is it?

Would you mind sharing this (vlm:SendEmail) function? I have been looking for one and don't have the foggiest of notions of how to code one myself.

-fred.

 

[MRL]

Here's my LISP-routine vlm:SendEmail and VBA-source

(defun vlm:SendEmail (/ Ishell macvalue mail)
;; Deze routine kan overweg met elk geinstalleerd emailprogramma. ;; gebruik voor spaties in de email-body: ALT+255 (setq mail (strcat ;; Emailadres. " ;; Onderwerp van het bericht. "?Subject=Support" ;; Inhoud van het bericht. "&body=<Stel hier uw vraag>" ) ) ;; De email is klaar maar wordt nog niet verzonden. (setq Ishell (vla-GetInterfaceObject (vlax-get-acad-object) "Shell.Application")) (vlax-invoke-method Ishell 'OPEN mail) (vlax-release-object Ishell) (princ) ; exit quitly )

'----------------------------------------------------
' Zend een email naar
'----------------------------------------------------
Private Sub Label2_Click
About_screen.Hide
ThisDrawing.SendCommand "(vlm:SendEmail)" & vbCr
End Sub

After i started it i get a returnvalue on my autocad textscreen How can i hide the returnvalue? (i don't want to see which routine is started)

Martin

 

[Fred]

Thanks. That worked perfectly.

Fred

Here's my LISP-routine vlm:SendEmail and VBA-source

(defun vlm:SendEmail (/ Ishell macvalue mail)
;; Deze routine kan overweg met elk geinstalleerd emailprogramma. ;; gebruik voor spaties in de email-body: ALT+255 (setq mail (strcat ;; Emailadres. " ;; Onderwerp van het bericht. "?Subject=Support" ;; Inhoud van het bericht. "&body=<Stel hier uw vraag>" ) ) ;; De email is klaar maar wordt nog niet verzonden. (setq Ishell (vla-GetInterfaceObject (vlax-get-acad-object) "Shell.Application")) (vlax-invoke-method Ishell 'OPEN mail) (vlax-release-object Ishell) (princ) ; exit quitly )

'----------------------------------------------------
' Zend een email naar
'----------------------------------------------------
Private Sub Label2_Click
About_screen.Hide
ThisDrawing.SendCommand "(vlm:SendEmail)" & vbCr
End Sub

After i started it i get a returnvalue on my autocad textscreen How can i hide the returnvalue? (i don't want to see which routine is started)

Martin