Nav и CDO

[kekki]

У нас CDO объекты используются следующим образом:

CREATE(CDOMessage);
CREATE(CDOConfig);
ActivXFields := CDOConfig.Fields;
ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing');
ActivXField.Value := 2;
ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport');
ActivXField.Value := 25;
ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver');
ActivXField.Value := 'IP сервера SMTP'
ActivXFields.Update;
CDOMessage.Configuration := CDOConfig;
CDOMessage.HTMLBody := 'текст сообщения в формате HTML';
CDOMessage."To" := 'адрес получателя';
CDOMessage.From := 'адрес отправителя';
CDOMessage.Subject := 'тема сообщения';
CDOMessage.Send;

CDOConfig - Automation 'Microsoft CDO for Windows 2000 Library'.Configuration
CDOMessage - Automation 'Microsoft CDO for Windows 2000 Library'.Message
ActivXField - Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Field
ActivXFields - Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Fields

[Fordewind]

Добавлю лишь, что CDO идет в поставке с виндой XP и 2003(так на всякий пожарный).

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