У меня на компьютере установлена программа Advanced Direct Remailer и я ее очень люблю. В описании приводится пример ее использования для программистов.

Буду благодарен за перевод явно паскалевского языка на язык понятный Accecc-у.


var msg, result;

msg = new ActiveXObject('AdvancedDirectRemailer.AdrMessage');

msg.From = ‘Alexander Gorlach <gorlach@mailutilities.com>;';
msg.To = ‘Vladimir Katalov <vkatalov@elcomsoft.com>;';
msg.Subject = ‘Sorry, it is test!’;
msg.Body = ‘Hello!\r\nIt is test…’;
msg.Kludges = 'X-Source: web mail\r\nX-Form: AdrMsg.html\r\n';

msg.Send();

switch (msg.LastError)
{
case 0: result = "Message was successfully sent"; break;

case 1: result = "Invalid sender email"; break;
case 2: result = "Invalid recipient email"; break;
case 3: result = "File read/write error"; break;
case 4: result = "Not enough memory"; break;
default: result = "Unknown error";
}