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

[SergeyP_2000]

Добрый день.

Кто-нибудь научился отсылать почту из 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);

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

[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;

[Yakuza]

Может как-нибудь тип аттача там можно указать, бинарный или текст... И да, попробуйте в заголовке html тип указать. А если никак - может не париться и отправлять через jMail ? У меня работает как часы.

[Cheb]

На всякий случай спрошу: а просто отправленное почтовым клиентом письмо с аттачем доходит? Какой тип имеет файл вложения? Может быть, проблема в почтовом сервере?

[SergeyP_2000]

Отправленное аналогичное письмо с помощью почтового клиента доходит нормально.
Я формирую в Navision Excel файл и затем высылаю его по почте. Из положения вышел просто.
Написал собственный OLE Automation сервер, который и использую для отправки почты.
Кому надо, пишите. Вышлю dll и readme.txt файл.