// SMTPServer - адрес SMTP сервера, через который будет происходить отправка писем
// SendTo - список e-mail адресов через запятую кому отсылать
// SendFrom - e-mail от кого отсылается
// Subject - тема письма
// Body - тело письма в текстовом формате
// Attachments - массив прикрепляемых файлов, содержащий пути к этим файлам на компьютере пользователя
function SendEmailUsingCDO(SMTPServer, SendTo, SendCC, SendFrom, Subject, Body, Attachments, UserName, UserPassword, UseSSL) {
	var Result = true;
	try {
		var cdoMessage = new ActiveXObject("CDO.Message");
		var cdoConfig = new ActiveXObject("CDO.Configuration");
		var cdoFields = cdoConfig.Fields;
		cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
		cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer;
		cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10;
		var cdoAnonymous = 0; // Do not authenticate
		var cdoBasic = 1; // basic (clear-text) authentication
		var cdoNTLM = 2; // NTLM
		// Если указан логин и пароль, то нужна авторизация на SMTP-сервере		
		if (!IsEmptyValue(UserName) && !IsUndefined(UserName) &&
			!IsEmptyValue(UserPassword) && !IsUndefined(UserName)) {
			UseSSL = (UseSSL? UseSSL : false);
			// Type of authentication, NONE, Basic (Base64 encoded), NTLM
			cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic;
			// Your UserID on the SMTP server
			cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = UserName;
			// Your password on the SMTP server
			cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = UserPassword;
			// Server port (typically 25)
			cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
			// Use SSL for the connection (False or True)
			cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = UseSSL;
		}
		cdoFields.Update();
		cdoMessage.Configuration = cdoConfig;
		var cdoBodyPart = cdoMessage.BodyPart;
		cdoBodyPart.ContentTransferEncoding = "8bit";
 
		cdoMessage.To = SendTo;
		cdoMessage.From = SendFrom;
		cdoMessage.Subject = Subject;
		cdoMessage.TextBody = Body;
		if (Assigned(Attachments)) {
			for (var i = 0; i < Attachments.length; i++) {
				cdoMessage.AddAttachment(Attachments[i]);
			}
		}
		cdoMessage.send();
	} catch (e) {
		var Message = FormatStr("Возникла ошибка при формировании и отсылке письма через Outlook:\r%1"+
			"\rВозможно, на компьютере не установлен MS Outlook. Обратитесь за помощью к администратору.",
			e.message);
		ShowWarningDialog(Message);
		Result = false;
	} finally {
		return Result;
	}
}

function Main(){
	var FilePath = "C:\DOCUME~1\Admin\LOCALS~1\Temp\TSTmpПриложение к приказу3.doc";
	var Attachments = new Array(FilePath);
	SendEmailUsingCDO('email.com.ua', 'test@gmail.com,test@gmail.com',
		'test@test.ua', 'Test CDO Message send', 'Hello. I"m here', Attachments);
}