Total Commander

Th: "Enter Enter Up Enter"
По нажатии на клавишу F11 выходит меню «Команды внешних модулей», курсор сразу уставновлен в нужной нам опции «EMenu», заходим туда - это первый «Enter».
Затем в меню «EMenu» необходимо выбрать опцию «Контекстное меню», и туда также заходим - это второй «Enter».
В меню «Контекстное меню» предлагается два способа отображения: «1. Графическое меню»; «2. Текстовое меню». Нам необходимо второе, поэтому нажимаем Up, после чего заходим в эту опцию - это первое «Up» и третий «Enter»;
Далее следует собственно «Контектсное меню», но в текстовом виде. За опцией отправить закреплен символ «ь» - и это финиш.

В свое время я пытался повестить на тот же макрос -> далее выбрать «Адресат», но там были какие то проблемы с передачей команды от модуля к модулю и поэтому на этом остановился.

Batya выручай, голова «пухнет» от того, что работатю в Total Commander и FARmanager одновлеменно.

AVos002
vbs-скрипт:

Код: Выделить всё

'==============================================================
' Открытие нового сообщния MS Outlook с вложенным файлом
'
' Параметры:
' {путь к MS Outlook} {файл}
'
' Пример параметров при вызове из TC:
' "%%ProgramFiles%%\Microsoft Office\Office11\Outlook.exe" %P%N
'==============================================================
Option Explicit
Dim FSO, WSH, TCS, MSOutlook, File, Comment
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")

MSOutlook = GetPath(WScript.Arguments(0))
File      = GetPath(WScript.Arguments(1))
Comment   = GetComment(File)
If Comment <> "" Then Comment = " " & Comment

CreateObject("TCScript.Helper").SetTextToClip FSO.GetFileName(File) & Comment

WSH.Run """" & MSOutlook & """ /a """ & File & """", 1, False

Set WSH = Nothing
Set FSO = Nothing
WScript.Quit

Function GetPath(pPath)
  GetPath = WSH.ExpandEnvironmentStrings(pPath)
End Function

Function GetComment(pPath)
  Const CommFile = "descript.ion"
  Dim lPath, lName, lText, lComm
  lPath = FSO.GetParentFolderName(pPath)
  lName = FSO.GetFile(pPath).Name
  If Instr(lName, " ") > 0 Then lName = """" & lName & """"
  If lPath <> "" Then lPath = lPath & "\"
  If FSO.FileExists(lPath & CommFile) Then
    lText = FSO.OpenTextFile(lPath & CommFile).ReadAll
    lComm = Filter(Split(lText, vbNewLine), lName & " ", True, 1)
    If UBound(lComm) > - 1 Then
      GetComment = Replace(Mid(lComm(0), Len(lName) + 2), "В", "")
      GetComment = Trim(Replace(GetComment, "\n", " "))
    Else
      GetComment = ""
    End If
  Else
    GetComment = ""
  End If
End Function

В скрипте используется Script Helper.

А как насчёт перейти на консольные утилиты? Например: 1, 2, 3, 4, 5, 6, 7, 8.

СПАСИБО Batya, но у меня при запуске этого скрипта «Windows Script Host» выдает следующее:
Строка: 11
Символ: 1
Ошибка: Недопустимое число аргументов или присвоение значения свойства: 'GetExtensionName'
Что, то я туплю (это уже не Windows Script Host, это уже я)

Flasher писал(а):А как насчёт перейти на консольные утилиты? Например: 1, 2, 3, 4, 5, 6, 7, 8.

Спасибо Flasher, честно просмотрел все ссылки. Так и не понял... предложенные утилиты можно повесить на комбинацию клавишь в TotalCommander.
Мне не нужна функция сама по себе, она (функция) ценна как одна из функций TC. Если не сложно объясни в двух словах что могут эти утилиты (в английском я разбираюсь на уровне советской школы).

По четвёртой ссылке программа спецом для посылки файлов.(скачать | синтаксис |примеры). Вот пример скрипта для MSAccess(перевод). Думаю скриптерам переделать его под MS Outlook не составит особого труда.

AVos002 писал(а):СПАСИБО Batya, но у меня при запуске этого скрипта «Windows Script Host» выдает следующее:
Строка: 11
Символ: 1
Ошибка: Недопустимое число аргументов или присвоение значения свойства: 'GetExtensionName'
Что, то я туплю (это уже не Windows Script Host, это уже я)

Может это я туплю, но где в этом скрипте присутствует "GetExtensionName"?

Я сам в ауте. Сейчас разбираюсь

AVos002 писал(а):Я сам в ауте. Сейчас разбираюсь

С какими параметрами ты запускаешь этот скрипт?
Если у тебя первым параметром стоит %P%N, а прикрепить к новому письму пытаешься другой скрипт, то можешь попасть в подобный "просак".

Batya писал(а):
AVos002 писал(а):Я сам в ауте. Сейчас разбираюсь
С какими параметрами ты запускаешь этот скрипт?
Если у тебя первым параметром стоит %P%N, а прикрепить к новому письму пытаешься другой скрипт, то можешь попасть в подобный "просак".

Заранее прошу прощения за может быть допущенные ошибки, но у меня на этом скрипте следующие значения (в меню «Запуск»):
=== начало ================
Команда: C:\Program Files\Total Commander\Plugins\tcwhelp_b10\DemoScripts\Proba.vbs
Параметры: "c:\Program Files\Microsoft Office\Office12\Outlook.exe" %P%N
=== окончание ==============
Причем Параметры я записал ровно так, как указано в комментах к скрипту (с Path заключенным в кавычками), при запуске сохраняется наименование файла и комментарий (пока в абракадабре типа «Є®«®ЄҐ ®¬Ґа»), затем передается управление в MS Outlook и сразу выходит кртическое сообщение «Недопустимый аргумент командной строки. Проверьте используемый параметр.».

AVos002 писал(а):Команда: C:\Program Files\Total Commander\Plugins\tcwhelp_b10\DemoScripts\Proba.vbs

Без кавычек нужно с переменной (пробелы всегда надо учитывать) >> %COMMANDER_PATH%\Plugins\tcwhelp_b10\DemoScripts\Proba.vbs

AVos002 писал(а):Заранее прошу прощения за может быть допущенные ошибки, но у меня на этом скрипте следующие значения (в меню «Запуск»):

Здесь, на первый взгляд, всё верно.

AVos002 писал(а):при запуске сохраняется наименование файла и комментарий (пока в абракадабре типа «Є®«®ЄҐ ®¬Ґа»), затем передается управление в MS Outlook и сразу выходит кртическое сообщение «Недопустимый аргумент командной строки. Проверьте используемый параметр.».

С запуском MS Outlook, вроде, поправил. Проверь.
По поводу абракадабры комментариев - у тебя descript.ion в DOS-кодировке?

Batya писал(а):С запуском MS Outlook, вроде, поправил. Проверь.

Batya я не врубился, что именно мне надо поправить?

Batya писал(а):По поводу абракадабры комментариев - у тебя descript.ion в DOS-кодировке?

Эта бодяга понятная, ранее я говорил, что работаю одновременно в FARmanager (F) и Total Commander (TC), так вот комментарии в F только в DOS-кодировке, а TC более гибкий и позволяет выбирать кодировку и поэтому, чтобы видеть комментарии везде выбрал DOS-кодировку. Как только я смогу реализовать все функции в TC я постепенно все Descript.ion перекодирую.

AVos002 писал(а):что именно мне надо поправить?

Да просто скопировать отредактированный скрипт, заменить старый и пересохранить.

Total Commander

Отправка файла по почте с записью комментария в буфер