Opera на движке Presto (часть 8) - [44] :: Программы

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("Усё, шеф!")

D:\tempfolder\ укажи настоящую папку, куда раньше накидал письма в формате *.mbs

Добавлено:
oposssum
Вот набросок програмки, которую можно повесить на контекстное меню на тексте письма
Context2HTM.vbs:

Код:

Dim fso,f,f1,f2,dest,s,NoProblem

dest="D:\tempfolder\" ' Папка куда складывать почту

'on error resume next
s=WScript.Arguments(0)
'MsgBox(s)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f=fso.GetFile(s)

Set f1 = f.OpenAsTextStream
Set f2 = fso.OpenTextFile(dest&+left(f.Name,InstrRev(f.Name,"."))+"htm", 2, True)
do while not f1.AtEndOfStream
s=f1.Readline
if left(s,5)="<!DOC" then
do while not f1.AtEndOfStream
f2.WriteLine s
s=f1.Readline
loop
NoProblem=1
exit do
end if
loop
f1.Close
f2.Close
if NoProblem then
MsgBox("Готов"+chr(13)+dest&+left(f.Name,InstrRev(f.Name,"."))+"htm")
else
MsgBox("Хотел сообщение с заголовками, но не получилось

")
end if

А теперь в файле меню в разделе
[Mail Item Popup Menu]
Platform Windows,Item, "Сохранить письмо в HTML" = Execute program, "d:\Хлам\Context2HTM.vbs","%S"
или
Platform Windows,Item, "Сохранить письмо в HTML" = Show raw mail & Execute program, "d:\Хлам\Context2HTM.vbs","%S"

Путь к програмке конечно тоже надо указать правильный
Не знаю что делать с отображением заголовков...
---
В общем и целом?

Модерирует : gyra, Maz
Widok (25-10-2007 15:37): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100