loSession=CreateObject("MSMAPI.Mapisession")
IF NOT Type("loSession")="O" OR IsNull(loSession)
  RETURN
ENDIF
loSession.NewSession= 1 
loSession.LogonUI= 1 
SELECT "tHost"
loSession.UserName=ALLTRIM(tHost.cMail)
loSession.Password=ALLTRIM(tHost.cPwd)
loSession.DownLoadMail= 0 
loSession.SignOn()
IF loSession.SessionId> 0 
  loMessage=CreateObject("MSMAPI.Mapimessages")
  IF NOT Type("loMessage")="O" OR IsNull(loMessage)
    loSession.SignOff()
    RELEASE loSession
    RETURN
  ENDIF
  loMessage.SessionId=loSession.SessionId
  loMessage.compose
  loMessage.msgIndex=- 1 
  loMessage.RecipAddress={adress_mail}
  loMessage.RecipDisplayName={adress_mail}
  loMessage.ResolveName
  loMessage.msgsubject={отправитель}
  loMessage.msgnotetext={тело сообщения}
  loMessage.Send( 1 )
  loSession.SignOff()
ENDIF