Private Type MAPIMessage
    Reserved As Long
    Subject As String
    NoteText As String
    MessageType As String
    DateReceived As String
    ConversationID As String
    Flags As Long
    RecipCount As Long
    FileCount As Long
End Type

Private Type MapiRecip
    Reserved As Long
    RecipClass As Long
    Name As String
    Address As String
    EIDSize As Long
    EntryID As String
End Type

Private Type MapiFile
    Reserved As Long
    Flags As Long
    Position As Long
    PathName As String
    FileName As String
    FileType As String
End Type

Private Declare Function MAPISendMail _
 Lib "c:\program files\outlook express\msoe.dll" _
 Alias "BMAPISendMail" _
 (ByVal Session&, ByVal UIParam&, Message As MAPIMessage, _
  Recipient() As MapiRecip, File() As MapiFile, _
  ByVal Flags&, ByVal Reserved&) As Long
  
Private Declare Function MAPIReadMail _
 Alias "BMAPIReadMail" _
 Lib "c:\program files\outlook express\msoe.dll" _
 (lMsg&, nRecipients&, nFiles&, ByVal Session&, ByVal UIParam&, _
  MessageID$, ByVal flag&, ByVal Reserved&) As Long
  
Private Declare Function MAPILogon _
 Lib "c:\program files\outlook express\msoe.dll" _
 (ByVal UIParam&, ByVal user$, ByVal Password$, ByVal Flags&, ByVal Reserved&, Session&) As Long

Private Declare Function MAPILogoff _
 Lib "c:\program files\outlook express\msoe.dll" _
 (ByVal Session&, ByVal UIParam&, ByVal Flags&, ByVal Reserved&) As Long
  
Private Declare Function MAPIFindNext _
 Lib "c:\program files\outlook express\msoe.dll" _
 Alias "BMAPIFindNext" _
 (ByVal Session&, ByVal UIParam&, MsgType$, SeedMsgID$, ByVal flag&, ByVal Reserved&, msgid$) As Long
 
Private Declare Function MAPIReadMail _
 Lib "c:\program files\outlook express\msoe.dll" _
 Alias "BMAPIReadMail" _
 (lMsg&, nRecipients&, nFiles&, ByVal Session&, ByVal UIParam&, _
  MessageID$, ByVal flag&, ByVal Reserved&) As Long
 
Private Declare Function MAPIGetReadMail _
 Lib "c:\program files\outlook express\msoe.dll" _
 Alias "BMAPIGetReadMail" _
 (ByVal lMsg&, Message As MAPIMessage, _
  Recip() As MapiRecip, File() As MapiFile, Originator As MapiRecip) As Long
 
Private Sub Кнопка0_Click()
 Dim mm As MAPIMessage, mr( 1 ) As MapiRecip, mf( 1 ) As MapiFile

  mm.FileCount =  0 
  mm.NoteText = "Message Body"
  mm.Subject = "Message Subject"
  mm.RecipCount =  1 
  mm.MessageType = ""
  mm.DateReceived = Date
   
  mr( 0 ).Address = "address@domen.ru"
  mr( 0 ).Name = "Кому"
  mr( 0 ).Reserved =  0 
  mr( 0 ).RecipClass =  1 
  mr( 0 ).EIDSize =  0 
   
  mf( 0 ).PathName = "c:\temp\temp.txt"  'путь к аттачу 
  mf( 0 ).Flags =  1 
  mf( 0 ).Position =  100 
  mf( 0 ).Reserved =  0 
  mf( 0 ).FileType = ""
  Debug.Print MAPISendMail( 0 , Application.hWndAccessApp, mm, mr, mf,  2 ,  0 )
End Sub

Lib "c:\program files\outlook express\msoe.dll"

Lib "MAPI32.DLL"