Можно еще проще, без аутглюка, например 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...