Работа с почтой (аттачменты)

[VasVovec]

Нашел на mibuso такую тему:
mibuso.com
В частности оттуда:

Цитата:

Define 'objEmailConf' as 'Microsoft CDO For Exchange 2000 Library'.Configuration.
Define 'objEmail' as 'Microsoft CDO For Exchange 2000 Library'.Message.
Define 'flds' as 'Microsoft ActiveX Data Objects 2.5 Library'.Fields.
Define 'fld' as 'Microsoft ActiveX Data Objects 2.5 Library'.Field.

IF ISCLEAR(objEmailConf) THEN CREATE(objEmailConf);
flds := objEmailConf.Fields;

fld := flds.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver');
fld.Value('mail.yourdomain.com');

fld := flds.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport');
fld.Value(25);

fld := flds.Item('http://schemas.microsoft.com/cdo/configuration/sendusing');
fld.Value(2);

flds.Update();

IF ISCLEAR(objEmail) THEN CREATE(objEmail);
objEmail.Configuration := objEmailConf;
objEmail.From := 'testfrom@yourdomain.com;
objEmail."To" := 'testto@yourdomain.com';
objEmail.Subject := 'test subject';
objEmail.TextBody := 'Test';
objEmail.Send;

Но что-то не могу найти, как по протоколу MAPI отправлять :/