Hi Patrick,
Here picture email or look at attach file,and this code ,then not forgot ,thanks you very much for your help
(defun c:test (/ outlk serv)
(setq Outlk (vlax-Create-Object "CDO.Message"))
(setq Serv (vlax-Get-Property (vlax-Get-Property Outlk 'Configuration) 'Fields))
(vlax-Put-Property (vlax-Get-Property Serv 'Item
"http://schemas.microsoft.com/cdo/configuration/sendusing")
'Value 2)
(vlax-Put-Property (vlax-Get-Property Serv 'Item
"http://schemas.microsoft.com/cdo/configuration/smtpserver")
'Value "smtp.cbn.net.id")
(vlax-Put-Property (vlax-Get-Property Serv 'Item
"http://schemas.microsoft.com/cdo/configuration/smtpserverport")
'Value 25)
(vlax-Invoke Serv 'Update)
(vlax-Put-Property Outlk 'From "mteybid@yuasabattery.co.id")
(vlax-Put-Property Outlk 'To "mteybid@yuasabattery.co.id")
(vlax-Put-Property Outlk 'Subject "Test send email via Autolisp")
(vlax-Put-Property Outlk 'TextBody "Hi Adesu, Here I just tested email,please feed back again to me,I wait it")
(if
(vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list outlk 'Send)))
(princ "\nImpossible d'envoyer le message. Pas de connection internet")
)
(vlax-Release-Object Outlk)
(princ)
)