Тема: Nav и CDO
Показать сообщение отдельно
Старый 28.07.2006, 07:14   #3  
kekki is offline
kekki
Участник
 
58 / 10 (1) +
Регистрация: 27.06.2005
У нас 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