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

[Fordewind]

Где-то в Аутглюке надо сменить настройки безопасности, что б не ругалась.

А можно и напрямую через Microsoft CDO for Windows 2000 Library отсылать, которая идет с ХР и 2003 Виндами.
У нас так и сделано.
В тестовлом режиме отправляется молча и эффективно. В рабочем режиме, пока не запускал.
Собственно весь код:

переменные:

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	

функция:

SendMessage(From : Text[100];"To" : Text[500];Subject : Text[250];TextBody : Text[1000];Attachment : Text[250])
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 := 'your SMTP';
ActivXFields.Update;

CDOMessage.Configuration := CDOConfig;
CDOMessage.TextBody := TextBody;
CDOMessage."To" := "To"; // CDOMessage."To"  без ковычек не воспринимает 
CDOMessage.From := From;
CDOMessage.Subject := Subject;
IF Attachment <> '' THEN
  CDOMessage.AddAttachment := Attachment;
CDOMessage.Send;