Исходный код
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
'==============================================================================