Работа с объектами Outlook Express

Public Const MAPI_LOGON_UI = &H1
 
Public Const MAPI_TO = 1
Public Const MAPI_CC = 2
Public Const MAPI_BCC = 3
 
Public Const MAPI_E_AMBIGUOUS_RECIPIENT = 21
Public Const MAPI_E_AMBIG_RECIP = MAPI_E_AMBIGUOUS_RECIPIENT
Public Const MAPI_E_ATTACHMENT_NOT_FOUND = 11
Public Const MAPI_E_ATTACHMENT_OPEN_FAILURE = 12
Public Const MAPI_E_ATTACHMENT_WRITE_FAILURE = 13
Public Const MAPI_E_BAD_RECIPTYPE = 15
Public Const MAPI_E_BLK_TOO_SMALL = 6
Public Const MAPI_E_DISK_FULL = 4
Public Const MAPI_E_FAILURE = 2
Public Const MAPI_E_INSUFFICIENT_MEMORY = 5
Public Const MAPI_E_INVALID_EDITFIELDS = 24
Public Const MAPI_E_INVALID_MESSAGE = 17
Public Const MAPI_E_INVALID_RECIPS = 25
Public Const MAPI_E_INVALID_SESSION = 19
Public Const MAPI_E_LOGIN_FAILURE = 3
Public Const MAPI_E_LOGON_FAILURE = MAPI_E_LOGIN_FAILURE
Public Const MAPI_E_NO_MESSAGES = 16
Public Const MAPI_E_NOT_SUPPORTED = 26
Public Const MAPI_E_TEXT_TOO_LARGE = 18
Public Const MAPI_E_TOO_MANY_FILES = 9
Public Const MAPI_E_TOO_MANY_RECIPIENTS = 10
Public Const MAPI_E_TOO_MANY_SESSIONS = 8
Public Const MAPI_E_TYPE_NOT_SUPPORTED = 20
Public Const MAPI_E_UNKNOWN_RECIPIENT = 14
Public Const SUCCESS_SUCCESS = 0
Public Const MAPI_USER_ABORT = 1
Public Const MAPI_E_USER_ABORT = MAPI_USER_ABORT
 
 
Public 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
 
Public Type MapiRecip
    Reserved As Long
    RecipClass As Long
    Name As String
    Address As String
    EIDSize As Long
    EntryID As String
End Type
 
Public Type MapiFile
    Reserved As Long
    Flags As Long
    Position As Long
    PathName As String
    FileName As String
    FileType As String
End Type
 
Public Declare Function BMAPIAddress Lib 'MAPI32.DLL' (lInfo&, ByVal Session&, _
    ByVal UIParam&, Caption$, ByVal nEditFields&, Label$, nRecipients&, _
    Recip() As MapiRecip, ByVal Flags&, ByVal Reserved&) As Long
    
Public Declare Function BMAPIGetAddress Lib 'MAPI32.DLL' (ByVal lInfo&, _
    ByVal nRecipients&, Recipients() As MapiRecip) As Long
 
Public Declare Function MAPILogon Lib 'MAPI32.DLL' (ByVal UIParam&, _
    ByVal User$, ByVal Password$, ByVal Flags&, ByVal Reserved&, Session&) As Long
 
Public Declare Function MAPILogoff Lib 'MAPI32.DLL' (ByVal Session&, ByVal UIParam&, _
    ByVal Flags&, ByVal Reserved&) As Long
    
Public Declare Function MAPIResolveName Lib 'MAPI32.DLL' Alias 'BMAPIResolveName' (ByVal Session&, _
    ByVal UIParam&, ByVal UserName$, ByVal Flags&, ByVal Reserved&, Recipient As MapiRecip) As Long
 
Public Declare Function MAPISendMail Lib 'MAPI32.DLL' Alias 'BMAPISendMail' (ByVal Session&, _
    ByVal UIParam&, Message As MAPIMessage, Recipient() As MapiRecip, File() As MapiFile, _
    ByVal Flags&, ByVal Reserved&) As Long
    
Public Declare Function MAPISaveMail Lib 'MAPI32.DLL' Alias 'BMAPISaveMail' (ByVal Session&, _
    ByVal UIParam&, Message As MAPIMessage, Recipient() As MapiRecip, File() As MapiFile, _
    ByVal Flags&, ByVal Reserved&, MsgID$) As Long

Public Declare Function BMAPIGetReadMail Lib 'MAPI32.DLL' (ByVal lMsg&, Message As MAPIMessage, Recip() As MapiRecip, File() As MapiFile, Originator As MapiRecip) As Long
 
Public Declare Function BMAPIReadMail Lib 'MAPI32.DLL' (lMsg&, nRecipients&, nFiles&, ByVal Session&, ByVal UIParam&, MessageID$, ByVal Flag&, ByVal Reserved&) As Long
 
Public Declare Function MAPIFindNext Lib 'MAPI32.DLL' Alias 'BMAPIFindNext' (ByVal Session&, ByVal UIParam&, MsgType$, SeedMsgID$, ByVal Flag&, ByVal Reserved&, MsgID$) As Long