Подскажите плиз Как отправить письмо используя MAPI. Если можно по подробнее...

Использую обрывки своего кода 5ти летней давности, так что за результат не отвечаю, я уже почти не помню что я делал:

MAPISession: TMAPISession;
mmsg: TMAPIMessages;

   mapisession.UserName := 'Login';
   mapisession.password := 'pswd';
   mapisession.SignOn;

   mmsg.msgindex := -1;
   mmsg.msgsubject := 'subj';
   mmsg.recipindex := 0;
   mmsg.reciptype := 1;
   mmsg.recipAddress := '[email protected]'
   mmsg.RecipDisplayName := 'sdsd';
   mmsg.MsgNoteText := 'asdasd';
   mmsg.Send(0);

   mapisession.SignOff;

Напишу больше! Кое что я уже налабал, но почемуто не работает, видимо не хватает каких-то знаний. Помогите разобраться. Вот что полусилось:

var
 Mess : TMapiMessage;
 RecN  : TMapiRecipDesc;



begin
   RecN.lpszName:='Пользователь';
   RecN.lpszAddress:='smtp.email.ru: мой@mail.ru';
   RecN.ulEIDSize:=0;
   RecN.lpEntryID:=nil;
   RecN.ulReserved:=0;
   RecN.ulRecipClass:=MAPI_TO;
   Mess.ulReserved:=0;
   Mess.lpszSubject:='Тут типа тема';
   Mess.lpszNoteText:='Тра ла ла';
   Mess.lpOriginator:=nil;
   Mess.nRecipCount:=1;
   Mess.lpRecips:=@RecN;
   Mess.lpszMessageType:=nil;
   Mess.lpszDateReceived:=nil;
   Mess.lpszConversationID:= '';
   Mess.flFlags:=0;
   Mess.nFileCount:=0;
   Mess.lpFiles:=nil;

  HResult:= MapiSendMail(0,0, Mess , 0  ,0);


Результат этого всего, просто открывается мой The Bat! и тишина...
Что делать?
И можно по подробнее узнать о первом параметре Session^ в MapiSendMail(Session^,... ?

Посмотри обрывки моего кода я там использовал TMAPISession - для чего уже совершенно не помню, но может есть смысл сделать так же.

Цитата(Vitaliy @ 24.5.2002, 02:41)

var  Mess : TMapiMessage;  RecN  : TMapiRecipDesc; begin    RecN.lpszName:='Пользователь';    RecN.lpszAddress:='smtp.email.ru: мой@mail.ru';    RecN.ulEIDSize:=0;    RecN.lpEntryID:=nil;    RecN.ulReserved:=0;    RecN.ulRecipClass:=MAPI_TO;    Mess.ulReserved:=0;    Mess.lpszSubject:='Тут типа тема';    Mess.lpszNoteText:='Тра ла ла';    Mess.lpOriginator:=nil;    Mess.nRecipCount:=1;    Mess.lpRecips:=@RecN;    Mess.lpszMessageType:=nil;    Mess.lpszDateReceived:=nil;    Mess.lpszConversationID:= '';    Mess.flFlags:=0;    Mess.nFileCount:=0;    Mess.lpFiles:=nil;   HResult:= MapiSendMail(0,0, Mess , 0  ,0);

Пишет ошибку "Было использовано неверное имя пользователя при входе". О каком пользователе идет речь? и куда его надо запихнуть?
Как правильно надо указать адрес в строке:
RecN.lpszAddress:='smtp.email.ru: мой@mail.ru'; <- в описании написано "SMTP: [email protected]" как не странно я не понял как это понимать однозначно