Одна тонкость - MHT формируется библиотекой CDO с ошибкой - когда в веб-архив внедрен внешний CSS файл (<link rel="stylesheet" type="text/css" href="file.css" />), то ссылку на него библиотека указывает неверно, вследствие чего страница из mht отображается без стиля из этого файла. Если же css-таблица вписана в сам html-исходник с помощью тега <style>, то тогда все отображается верно.
// идея взята с RSDN, автор Alexey Goncharov
// переработка моя
var wsh = new ActiveXObject("WScript.Shell");
var Message = new ActiveXObject( "CDO.Message" ) ;
var Config = new ActiveXObject( "CDO.Configuration" ) ;
var cdoSuppressNone = 0; // загружать все
var cdoSuppressImages = 1; // не загружать картинки
var cdoSuppressBGSounds = 2; // не загружать фоновые звуки
var cdoSuppressFrames = 4; // не загружать фреймы
var cdoSuppressObjects = 8; // не загружать объекты
var cdoSuppressStyleSheets = 16; // не загружать таблицы стилей
var cdoSuppressAll = 31; // не загружать ничего из вышеперечисленного
var Flag = cdoSuppressNone;
var UserName = '';
var Password = '';
Message.Configuration = Config;
Message.AutoGenerateTextBody = true;
Message.CreateMHTMLBody( "http://www.yandex.ru", Flag) ;
// сохранить страницу как txt
var Stream = Message.TextBodyPart.GetEncodedContentStream(); // поток по умолчанию в юникоде
Stream.Charset = 'ascii'; // что ни ставь все равно перекодируется в системную по умолчанию кодировку
Stream.SaveToFile( "Page.txt", 2 );
// сохранить страницу как html
var Stream = Message.HTMLBodyPart.GetEncodedContentStream(); // поток по умолчанию в юникоде
Stream.Charset = 'ascii'; // что ни ставь все равно перекодируется в системную по умолчанию кодировку
Stream.SaveToFile( "Page.htm", 2 );
// сохранить страницу как веб-архив .MHT
var Stream = Message.BodyPart.GetStream();
Stream.SaveToFile( "Page.mht", 2 );