Скрипт копирования пути к файлу\папке и вставка пути в письмо Outlook

@trlhrn · Регистрация: 13.08.2015

Всем доброго времени суток!
Помогите, пож-та, разобраться\дописать скрипт.
Есть скрипт на открытие\создание нового сообщения в Outlook. Он привязан к кнопке в контекстном меню.

Visual Basic

Set objOutlook = CreateObject("Outlook.Application")
 
   Set objMail = objOutlook.CreateItem(0)
 
   objMail.Display   'To display message
 
   objMail.To = "user@domain.com"
 
   objMail.cc = ""
 
   objMail.Subject = "Subject"
 
   objMail.Body = "Text"
 
   ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
 
   MsgBox ClipboardText
 
   'objMail.Attachments.Add("")   'Make sure attachment exists at given path. Then uncomment this line.
 
   'objMail.Send   'I intentionally commented this line
 
   Set objMail = Nothing
 
   Set objOutlook = Nothing

Помогите в него докинуть\дописать скрипт, который бы копировал путь к папке\файлу в буфер обмена и вставлял его в тело письма.
Спасибо.

@trlhrn · 14.08.2015, 12:30 **[ТС]**

Ни у кого нет никак мыслей по этому поводу? =(

@Казанский · 14.08.2015, 14:46

Сообщение от trlhrn

Помогите в него докинуть\дописать скрипт, который бы копировал путь к папке\файлу в буфер обмена и вставлял его в тело письма.

К какой папке\файлу?

@trlhrn · 14.08.2015, 14:51 **[ТС]**

Которые находят на сетевом диске\ресурсе. Т.е. вытянуть UNC путь и вставить в письмо.

@Казанский · 14.08.2015, 15:20

Откуда вытянуть?

Опишите, что ли, предполагаемую последовательность действий пользователя до и после запуска скрипта.

@trlhrn · 14.08.2015, 15:35 **[ТС]**

Пользователь переходит на сетевой путь папки.
По умолчанию у него нет доступа в папку Внутренние док-ты.
При клике на эту папку правой кнопкой он выбирает в контекстном меню Заявка.
К этой кнопке привязан скрипт vbs формирующий письмо в Outlook и вставляющий в него путь к папке Внутр.док-ты вида - B:\...\...\...\Бухгалтерия\!Внутренние_документы
Как-то так.)

@trlhrn · 14.08.2015, 15:41 **[ТС]**

Немного допилили срипт, но он копипастит путь к папке Бухгалтерия, а не !Внутр.док-ты. Т.е. уровнем выше.

Visual Basic

Set objOutlook = CreateObject("Outlook.Application")
               Set objMail = objOutlook.CreateItem(0)
                Set FSO=CreateObject("Scripting.FileSystemObject")
                Set WshShell = CreateObject("WScript.Shell")
   objMail.Display   'To display message
   objMail.To = "email@domain.com"
   objMail.cc = ""
   objMail.Subject = "Просьба предоставить доступ"
   objMail.Body = WshShell.CurrentDirectory 
   'objMail.Attachments.Add("")   'Make sure attachment exists at given path. Then uncomment this line.
   'objMail.Send   'I intentionally commented this line
Set myFSO = Nothing
   Set objMail = Nothing
   Set objOutlook = Nothing

@Казанский · 15.08.2015, 02:30

trlhrn, теперь понятно - скрипт является расширением Проводника.
Обычно путь выделенного объекта передается в скрипт как параметр. Попробуйте 1-й строкой скрипта поставить

Visual Basic

1	msgbox wscript.arguments(0)

Если при вызове скрипта увидите путь, то вот и он.
Если будет ошибка, значит параметр в скрипт не передается, и надо подправить вызов скрипта в реестре - после пути к скрипту допишите "%L" .
Объекты FSO и WshShell не нужны.

@trlhrn · 18.08.2015, 10:50 **[ТС]**

Спасибо большое за помощь!
Разобрался.
Сейчас все корректно работает.

@trlhrn 1 / 1 / 1 Регистрация: 13.08.2015 Сообщений: 12
	14.08.2015, 12:30 [ТС]	2
	Ни у кого нет никак мыслей по этому поводу? =( 0

@Казанский 15016 / 6344 / 1725 Регистрация: 24.09.2011 Сообщений: 9,976
	14.08.2015, 14:46	3
	Сообщение от trlhrn Помогите в него докинуть\дописать скрипт, который бы копировал путь к папке\файлу в буфер обмена и вставлял его в тело письма. К какой папке\файлу? 0

@trlhrn 1 / 1 / 1 Регистрация: 13.08.2015 Сообщений: 12
	14.08.2015, 14:51 [ТС]	4
	Которые находят на сетевом диске\ресурсе. Т.е. вытянуть UNC путь и вставить в письмо. 0

@Казанский 15016 / 6344 / 1725 Регистрация: 24.09.2011 Сообщений: 9,976
	14.08.2015, 15:20	5
	Откуда вытянуть? Опишите, что ли, предполагаемую последовательность действий пользователя до и после запуска скрипта. 0

@trlhrn 1 / 1 / 1 Регистрация: 13.08.2015 Сообщений: 12
	14.08.2015, 15:35 [ТС]	6
	Пользователь переходит на сетевой путь папки. По умолчанию у него нет доступа в папку Внутренние док-ты. При клике на эту папку правой кнопкой он выбирает в контекстном меню Заявка. К этой кнопке привязан скрипт vbs формирующий письмо в Outlook и вставляющий в него путь к папке Внутр.док-ты вида - B:\...\...\...\Бухгалтерия\!Внутренние_документы Как-то так.) 0 Миниатюры $Скрипт копирования пути к файлу\папке и вставка пути в письмо Outlook$ $Скрипт копирования пути к файлу\папке и вставка пути в письмо Outlook$

@trlhrn 1 / 1 / 1 Регистрация: 13.08.2015 Сообщений: 12
	18.08.2015, 10:50 [ТС]	9
	Спасибо большое за помощь! Разобрался. Сейчас все корректно работает. 0

Опции темы