Th: "Enter Enter Up Enter"
По нажатии на клавишу F11 выходит меню «Команды внешних модулей», курсор сразу уставновлен в нужной нам опции «EMenu», заходим туда - это первый «Enter».
Затем в меню «EMenu» необходимо выбрать опцию «Контекстное меню», и туда также заходим - это второй «Enter».
В меню «Контекстное меню» предлагается два способа отображения: «1. Графическое меню»; «2. Текстовое меню». Нам необходимо второе, поэтому нажимаем Up, после чего заходим в эту опцию - это первое «Up» и третий «Enter»;
Далее следует собственно «Контектсное меню», но в текстовом виде. За опцией отправить закреплен символ «ь» - и это финиш.
В свое время я пытался повестить на тот же макрос -> далее выбрать «Адресат», но там были какие то проблемы с передачей команды от модуля к модулю и поэтому на этом остановился.
Отправка файла по почте с записью комментария в буфер
Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
AVos002
vbs-скрипт:
В скрипте используется Script Helper.
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
Последний раз редактировалось Batya Ср июн 02, 2010 00:06, всего редактировалось 4 раза.
Нет, я не сплю. Я просто медленно моргаю.
Спасибо Flasher, честно просмотрел все ссылки. Так и не понял... предложенные утилиты можно повесить на комбинацию клавишь в TotalCommander.
Мне не нужна функция сама по себе, она (функция) ценна как одна из функций TC. Если не сложно объясни в двух словах что могут эти утилиты (в английском я разбираюсь на уровне советской школы).
По четвёртой ссылке программа спецом для посылки файлов.(скачать | синтаксис |примеры). Вот пример скрипта для MSAccess(перевод). Думаю скриптерам переделать его под MS Outlook не составит особого труда.
Может это я туплю, но где в этом скрипте присутствует "GetExtensionName"?AVos002 писал(а):СПАСИБО Batya, но у меня при запуске этого скрипта «Windows Script Host» выдает следующее:
Строка: 11
Символ: 1
Ошибка: Недопустимое число аргументов или присвоение значения свойства: 'GetExtensionName'
Что, то я туплю (это уже не Windows Script Host, это уже я)
Нет, я не сплю. Я просто медленно моргаю.
Заранее прошу прощения за может быть допущенные ошибки, но у меня на этом скрипте следующие значения (в меню «Запуск»):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 и сразу выходит кртическое сообщение «Недопустимый аргумент командной строки. Проверьте используемый параметр.».
Без кавычек нужно с переменной (пробелы всегда надо учитывать) >> %COMMANDER_PATH%\Plugins\tcwhelp_b10\DemoScripts\Proba.vbsAVos002 писал(а):Команда: C:\Program Files\Total Commander\Plugins\tcwhelp_b10\DemoScripts\Proba.vbs
Последний раз редактировалось Flasher Вт июн 01, 2010 14:26, всего редактировалось 1 раз.
Здесь, на первый взгляд, всё верно.AVos002 писал(а):Заранее прошу прощения за может быть допущенные ошибки, но у меня на этом скрипте следующие значения (в меню «Запуск»):
С запуском MS Outlook, вроде, поправил. Проверь.AVos002 писал(а):при запуске сохраняется наименование файла и комментарий (пока в абракадабре типа «Є®«®ЄҐ ®¬Ґа»), затем передается управление в MS Outlook и сразу выходит кртическое сообщение «Недопустимый аргумент командной строки. Проверьте используемый параметр.».
По поводу абракадабры комментариев - у тебя descript.ion в DOS-кодировке?
Нет, я не сплю. Я просто медленно моргаю.
Batya я не врубился, что именно мне надо поправить?Batya писал(а):С запуском MS Outlook, вроде, поправил. Проверь.
Эта бодяга понятная, ранее я говорил, что работаю одновременно в FARmanager (F) и Total Commander (TC), так вот комментарии в F только в DOS-кодировке, а TC более гибкий и позволяет выбирать кодировку и поэтому, чтобы видеть комментарии везде выбрал DOS-кодировку. Как только я смогу реализовать все функции в TC я постепенно все Descript.ion перекодирую.Batya писал(а):По поводу абракадабры комментариев - у тебя descript.ion в DOS-кодировке?