[Iska]

AlexLev, никаких проблем:

Код:

Option Explicit

Const cdoSuppressNone        =  0 ' загружать все
Const cdoSuppressImages      =  1 ' не загружать картинки
Const cdoSuppressBGSounds    =  2 ' не загружать фоновые звуки
Const cdoSuppressFrames      =  4 ' не загружать фреймы
Const cdoSuppressObjects     =  8 ' не загружать объекты
Const cdoSuppressStyleSheets = 16 ' не загружать таблицы стилей
Const cdoSuppressAll         = 31 ' не загружать ничего из вышеперечисленного


With WScript.CreateObject("CDO.Message")
	.AutoGenerateTextBody = True
	.CreateMHTMLBody "file://E:\Песочница\0239\Вложение\1111.html", cdoSuppressNone
	.BodyPart.GetStream().SaveToFile "E:\Песочница\0239\Вложение\1111.mht", 2
End With

WScript.Quit 0

Результат…

Файл был создан:

Код:

╔══════════════ E:\Песочница\0239\Вложение ════════╤═════╗
║и              Имя                │Размер│  Дата  │Время║
║⌂..                               │ Вверх│05.04.13│03:40║
║├1111_files                       │ Папка│04.04.13│22:24║
║ 1111                         html│150346│04.04.13│22:20║
║ 1111                          mht│3962 К│05.04.13│03:40║
║                                  │      │        │     ║