тут вот такая чтука делаеться...
отправляю письмо а его текст в кракозябре, причём OUTLOOK тему нормально распознаёт
кракозябрами только текст письма
пробовал сохранять исходники скрипта в ANSI и UTF8, и всё равно такаяже картина :(
подскажите как это можно решить
вот сама процедура:
function SendEmail(mFrom, mTo, mSubject, mBody, mAttach); var i, schema, mConfig, mMessage : OleVariant; begin try schema := 'http://schemas.microsoft.com/cdo/configuration/'; mConfig := Sys.OleObject('CDO.Configuration'); mConfig.Fields.Item(schema + 'sendusing') := 2; // cdoSendUsingPort mConfig.Fields.Item(schema + 'smtpserver') := 'бла.бла.бла'; // SMTP server mConfig.Fields.Item(schema + 'smtpserverport') := 25; // Port number // mConfig.Fields.Item(schema + 'sendusername') := ''; // User name (if needed) // mConfig.Fields.Item(schema + 'sendpassword') := ''; // User password (if needed) mConfig.Fields.Update(); mMessage := Sys.OleObject('CDO.Message'); mMessage.Configuration := mConfig; mMessage.From := mFrom; mMessage.To := mTo; mMessage.Subject := mSubject; mMessage.HTMLBody := mBody; for i := 0 to GetCSVCount(mAttach) - 1 do mMessage.AddAttachment(GetCSVItem(mAttach, i)); mMessage.Send(); Log.Message('Сообщение отправленно!', 'Адресат - '+mTo, pmNormal, debug_attr ); Result := True; except Log.Message('Сообщение не отправленно!', '', pmNormal, error_attr ); Result := False; end; end;