Работа с почтой (аттачменты)

[Forward]

Можно еще проще, без аутглюка, например free библиотека jmail.dll http://www.serverwatch.com/img/downloads/JMailVBS.zip которая умеет почти все что касается почты, берем ее и пишем:

SMTPServer := 'mail.server.ru';
UserName := 'Яков@server.ru';
Password := 'пароль';
IF GUIALLOWED THEN
  window.OPEN('#1##########################################################');
IF GUIALLOWED THEN
  window.UPDATE(1,STRSUBSTNO(Text048,SMTPServer,UserName));

IF ISCLEAR(MailClient) THEN
  CREATE(MailClient);
CREATE(Mail);
Mail.From := SendTo."E-Mail Address";
Mail.FromName := SendTo.Description;
Mail.Subject := Subject;
Mail.AddRecipient(EmailReceipient);
IF CC <> '' THEN
  Mail.AddRecipientCC(CC);
Mail.AppendHTML(Text);

IF Filename <> '' THEN BEGIN
  IF GUIALLOWED THEN
	window.UPDATE(1,Text003);
  Mail.AddAttachment(Filename,FALSE);
  IF FILE.ERASE(Filename) THEN;
END;

IF GUIALLOWED THEN
  window.UPDATE(1,Text005);

Mail.MailServerUserName := UserName;
Mail.MailServerPassWord := Password;
IF NOT Mail.Send(SMTPServer,FALSE) THEN
  MESSAGE(Mail.ErrorMessage());

IF GUIALLOWED THEN
  window.CLOSE;

С приемом почты тоже самое, и главное можно складировать аттачи так, как хочется, и средствами Nav...