oposssum
Глючит почему-то передача название файла сообщения внешней утилитке, причём поведение Оперы зависит от показывать/не показывать заголовки, стиль автора/пользовательский. Бывает и крах Оперы.
Самое простое - это создать текстовый файлик MBS2HTM.vbs c нижеприведённым текстом и запускать его как программу:
Код: Dim fso,fold,f,f1,f2,fc,dest
Set fso = CreateObject("Scripting.FileSystemObject")
dest="D:\tempfolder\" 'Тут надо написать правильное имя папки с письмами
Set fold = fso.GetFolder(dest)
Set fc = fold.Files
For Each f in fc
if right(f.Name,4)=".mbs" then
Set f1 = f.OpenAsTextStream
Set f2 = fso.OpenTextFile(dest&+left(f.Name,len(f.Name)-3)+"htm", 2, True)
do while not f1.AtEndOfStream
s=f1.Readline
if left(s,5)="<!DOC" then exit do
loop
do while not f1.AtEndOfStream
f2.WriteLine s
s=f1.Readline
loop
f1.Close
f2.Close
end if
Next
MsgBox("Усё, шеф!")
Глючит почему-то передача название файла сообщения внешней утилитке, причём поведение Оперы зависит от показывать/не показывать заголовки, стиль автора/пользовательский. Бывает и крах Оперы.
Самое простое - это создать текстовый файлик MBS2HTM.vbs c нижеприведённым текстом и запускать его как программу:
Код: Dim fso,fold,f,f1,f2,fc,dest
Set fso = CreateObject("Scripting.FileSystemObject")
dest="D:\tempfolder\" 'Тут надо написать правильное имя папки с письмами
Set fold = fso.GetFolder(dest)
Set fc = fold.Files
For Each f in fc
if right(f.Name,4)=".mbs" then
Set f1 = f.OpenAsTextStream
Set f2 = fso.OpenTextFile(dest&+left(f.Name,len(f.Name)-3)+"htm", 2, True)
do while not f1.AtEndOfStream
s=f1.Readline
if left(s,5)="<!DOC" then exit do
loop
do while not f1.AtEndOfStream
f2.WriteLine s
s=f1.Readline
loop
f1.Close
f2.Close
end if
Next
MsgBox("Усё, шеф!")