Private Sub MessageSing()
Dim aa As Integer
Dim AnsverServer As String
  On Error GoTo ErrorMessage
  MAPISession1.SignOn
  With MAPIMessages1
   .SessionID = MAPISession1.SessionID
   .Compose
   .MsgSubject = тема
   .MsgNoteText = текст
   .RecipAddress = адрес
   .AddressResolveUI = True
   .ResolveName
   If FileAttach <> "" Then
     .AttachmentType =  0 
     .AttachmentIndex =  0 
     .AttachmentPathName = FileAttach 'путь к файлу'
     .AttachmentPosition =  0 
   End If
   .Send False
  End With
  MAPISession1.SignOff
End Sub