Справочное руководство по TDMS 5.0 API
VB Script
Смотри также Послать замечания

Glossary Item Box

Исходный код

Option Explicit
Call SendExtEMail()


'==============================================================================
' Отправить почтовое сообщение по внешней почте
'==============================================================================
Sub SendExtEMail()
    Dim ToWhom, strSubj, strBody, CC

    Set ToWhom = ThisApplication.Users("SYSADMIN")
    Set CC = ThisApplication.CurrentUser
    strBody = "Hello at " & Now()
    strSubj = "Short message is just for test"

    ThisApplication.Utility.SendEMail ToWhom.Mail, strSubj, strBody, CC.Mail
End Sub
'==============================================================================
© 2016 CSoft Development. Все права защищены.