Отправка почты

[Fordewind]

Цитата:

Сообщение от serpan

Добрый день.

Кто-нибудь научился отсылать почту из Navision 4.0?
Написал функцию:

objEmail        Automation      'Microsoft CDO for Windows 2000 Library'.Message	
objEmailConf    Automation      'Microsoft CDO for Windows 2000 Library'.Configuration	
flds            Automation      'Microsoft ActiveX Data Objects 2.5 Library'.Fields	
fld             Automation      'Microsoft ActiveX Data Objects 2.5 Library'.Field	
---------------------------------------------------------------------------------------
SendEMail(FileName : Text[200]; ToEMail : Text[200])
---------------------------------------------------------------------------------------
IF ISCLEAR(objEmailConf) THEN
  CREATE(objEmailConf);
flds := objEmailConf.Fields;

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

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 := 'fromuser@mailserver.ru';
objEmail."To" := ToEMail;
objEmail.Subject := 'Тема письма';
IF FileName <> '' THEN
  objEmail.AddAttachment(FileName);
objEmail.Send;
CLEAR(objEmail);

Письма доходят нормально, вот только файл оказывается порченным. Может кто знает, что можно предпринять?

Когда я писал, то вмсето objEmail.AddAttachment(FileName) стояло objEmail.AddAttachment := FileName;. Все остальное практически так же, и кажись работало исправно. Версию, правда не помню.

[SergeyP_2000]

к сожалению не помогло.

[.Quattro.]

Попробуйте задать кодировку:

flds := CDOMessage.Fields;
fld := ActivXFields.Item('urn:schemas:mailheader:content-type');
fld := 'text/html; charset=koi8-r';
flds.Update;
flds.Resync;