| View previous topic :: View next topic |
| Author |
Message |
dmitri
Joined: 21 Feb 2005
Posts: 16
|
 (Separately) Posted: Mon Feb 21, 2005 15:01 Post subject: Как быстро отправить файл по почте? |
 |
|
Всем привет!
Возник вопрос: можно ли в тотале повесить быстрое клавиатурное сочетание на отправку какого-либо файла по почте в качестве приложенного к письму?
Можно конечно пользоваться контекстным меню файла, но процедура ступенчата и неудобна.
Если у кого есть есть мысли по поводу, буду очень рад. |
|
| Back to top |
|
 |
Сергеич
Joined: 15 Dec 2004
Posts: 152
|
| (Separately) Posted: Mon Feb 21, 2005 16:33 Post subject: |
|
|
| А клиент какой почтовый? |
|
| Back to top |
|
|
dmitri
Joined: 21 Feb 2005
Posts: 16
|
| (Separately) Posted: Mon Feb 21, 2005 18:52 Post subject: |
|
|
| клиент- The Bat 3.0.1.33 |
|
| Back to top |
|
|
Сергеич
Joined: 15 Dec 2004
Posts: 152
|
| (Separately) Posted: Mon Feb 21, 2005 21:44 Post subject: |
|
|
Читать хелп про командную строку TheBat.
Там по поводу этого полная свобода и много возможностей.
И отсылка, и шаблоны и аттачи и дофига разного.
И настраивается по вкусу.
вот например пример скрипта:
| Quote: |
'=========================================================
acc_name="AMail" 'название аккаунта
fld_name="Outbox" 'название папки
subj = "Пересылаю файлы" 'заголовок сообщения
tpl_file="c:\_aff_\TheBat\att.tpl" 'имя шаблона
need_pack=1 'Установите: 0 - не надо паковать, 1 - упаковать РАРом
email = "" 'Установите: "" - спросить email, любое другое - внести email автоматом
rar_exe = "C:\APack\WinRAR\Rar.exe"
'=========================================================
set WSHShell = WScript.CreateObject("WScript.Shell")
tb_exe = WSHShell.RegRead("HKCU\Software\RIT\The Bat!\EXE path")
Command = tb_exe & " /MAILU=" & acc_name & ";F=" & fld_name & ";S=""" & subj & """;"
if email = "" then
email = InputBox("Введите Email")
Command = Command & "TO=""" & email & """;"
else
Command = Command & "TO=""" & email & """;"
end if
set fso = WScript.CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(fso.GetSpecialFolder(2).Path & "\tb_files_to_send.txt", 2, true)
set Args = Wscript.Arguments
if need_pack=1 then
arc_file = fso.GetSpecialFolder(2).Path & "\files.rar"
if fso.FileExists(arc_file) then
fso.DeleteFile(arc_file)
end if
pack_command = rar_exe & " a " & arc_file
for i=0 to args.count-1
pack_command = pack_command & " """ & args(i) & """"
next
file.WriteLine "files.rar"
for i=0 to args.count-1
file.WriteLine "- " & args(i)
next
WSHShell.Run pack_command, 1, true
command = command & "A=""" & fso.GetSpecialFolder(2).Path & "\files.rar" & """;"
else
for i=0 to args.count-1
command = command & "A=""" & args(i) & """;"
file.WriteLine args(i)
next
end if
Command = command & "T=""" & tpl_file & """;"
WSHShell.Run command, 1, false
|
|
|
| Back to top |
|
|
Сергеич
Joined: 15 Dec 2004
Posts: 152
|
| (Separately) Posted: Mon Feb 21, 2005 21:45 Post subject: |
|
|
| Ессно это VBS-скрипт, надо сохранить в файле с расширением VBS |
|
| Back to top |
|
|
dmitri
Joined: 21 Feb 2005
Posts: 16
|
| (Separately) Posted: Tue Feb 22, 2005 09:31 Post subject: |
|
|
| Сергеич, спасибо, конечно... Но проблема в том, что я в программировании не силен. Может есть более популярное решение? |
|
| Back to top |
|
|
b01d
Joined: 06 Jan 2005
Posts: 44
|
| (Separately) Posted: Tue Feb 22, 2005 22:33 Post subject: |
|
|
Возможен плагин наподобии BurnCD, только вместо "нарезать" - "отправить", да ещё чтоб в выпадающем списке адреса подгружал из БАТ'a и ОутГлюка.
! |
|
| Back to top |
|
|
StayAtHome
Joined: 16 Dec 2004
Posts: 255
Location: Ukraine
|
| (Separately) Posted: Wed Feb 23, 2005 03:11 Post subject: |
|
|
| Ребята, а пункт контекстного меню "Отправить -> TheBat" вам чем не нравится? |
|
| Back to top |
|
|
b01d
Joined: 06 Jan 2005
Posts: 44
|
| (Separately) Posted: Wed Feb 23, 2005 22:44 Post subject: |
|
|
Мне например тем, что надо мышку в руку брать. Хотя ведь можно и без мышки... надо попробовать  |
|
| Back to top |
|
|
StayAtHome
Joined: 16 Dec 2004
Posts: 255
Location: Ukraine
|
| (Separately) Posted: Thu Feb 24, 2005 02:21 Post subject: |
|
|
| Причем тут мышка? Я мышкой в ТС вообще не пользуюсь. А в меню "Отправить" можно много чего напихать. Например у меня там еще Samll CD writer. И тоже -- никакого плагина не надо. |
|
| Back to top |
|
|
Gimi
Joined: 08 Feb 2005
Posts: 4
Location: Москва
|
| (Separately) Posted: Thu Feb 24, 2005 10:48 Post subject: |
|
|
| b01d wrote: | Возможен плагин наподобии BurnCD, только вместо "нарезать" - "отправить", ....
! |
Отличная идея !!!
Вот что мне бы например действительно пригодилось.
Отправлять файл через меню "Отправить" не всегда удобно т.к. надо иногда паковать или еще как то модифицировать отправляемое ... |
|
| Back to top |
|
|
Сергеич
Joined: 15 Dec 2004
Posts: 152
|
| (Separately) Posted: Thu Feb 24, 2005 11:08 Post subject: |
|
|
Можно и на тулбаре например или хотками.
Делается бат-файл или скрипт наподобии верхнего.
Вешается в тотал и никаких проблем..
(тот скрипт который вверху может и упаковать сам)
(В верхней части прописаны основные настройки)
acc_name="AMail" 'название аккаунта
fld_name="Outbox" 'название папки
subj = "Пересылаю файлы" 'заголовок сообщения
tpl_file="c:\_aff_\TheBat\att.tpl" 'имя шаблона
need_pack=1 'Установите: 0 - не надо паковать, 1 - упаковать РАРом
email = "" 'Установите: "" - спросить email, любое другое - внести email автоматом
rar_exe = "C:\APack\WinRAR\Rar.exe"
Измените настройки под себя и положите этот файл с в меню Отправить. |
|
| Back to top |
|
|
wwwad
Joined: 23 Feb 2005
Posts: 14
|
| (Separately) Posted: Fri Mar 18, 2005 03:16 Post subject: |
|
|
Сергеич!!!
Спасибо за скрипт но чето не пашет наверняка проблема с файлом tpl_file="c:\_aff_\TheBat\att.tpl" 'имя шаблона - НЕТ у меня такого файла в папке с батом ! смотрел в старых версиях = тоже нет. И еще вопросец - а где указывать какой именно файл на отправку ???
acc_name="AMail" 'название аккаунта
fld_name="Outbox" 'название папки
можно пояснить что это ? надо ли мне их менять ? |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Mon Mar 21, 2005 13:00 Post subject: |
|
|
wwwad
Поскольку Сергеич не отвечает, скажу за него.
Должно работать, если в параметрах вызова скрипта стоит %n.
А att.tpl - это шаблон письма, который ты должен предварительно создать - то, что у тебя в теле письма будет записано.
P.S. Сам не проверял, т.к. мне это не надо.
P.P.S. Глядя на код, сомневаюсь, что скрипт корректно работает с need_pack=0. |
|
| Back to top |
|
|
wwwad
Joined: 23 Feb 2005
Posts: 14
|
| (Separately) Posted: Tue Mar 22, 2005 01:07 Post subject: |
|
|
пока есть след.непонятки :
1)Att.tpl - не могу понять как сделать так чтоб он появился. Весь thebat облазил - не нашел. Нашел где создавать шаблоны в в самой программе thebat - но после создания-изменения шаблонов - файл Att.tpl нигде не появляется - всю папку thebata облазил.
2) Не понимаю значения параметра acc_name="AMail" 'название аккаунта - это что ? что такое аккаунт в данном случае ? если это адрес куда посылаю письмо, для этого вроде есть переменная email. Или акаунт - имеется ввиду мой ???? если да то что там писать ? мой e-mail адрес ???
3)Так же не понятно значение fld_name="Outbox" 'название папки
- это надо так и оставить - или надо написать полный путь к папке outbox моего e-mail адреса в папке thebata ? например в моем случае будет так : fld_name="С:\Program Files\The Bat!\Mail\vadim422@yandex.ru\Outbox" ?????
4) про параметр %n. Я так понял это надо прописать в командную строку "name_skripta.vbs /%n" ? ДА ? хотя скрипт у меня и так запускался - просто в конце давал ошибку - кстати в том месте, где скрипт обращается к файлу Att.tpl  ((
P.S. Может будет проще если скажу что мне вообще нужно.
Необходимо периодически пересылать по почте некий файл (его положение не меняется например C:\Отчет_за_день.xls). точнее их несколько. А еще лучше научиться пересылать по почте содержимое некоей папки - впрочем я и сам соображу как этот скрипт написать - главное понять как посылать скриптом хотя бы один файл ... Заранее спасибо кто откликнется на мою просьбу ... |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
