Поиск  Правила  Войти
The Bat! почтовый клиент для Windows » Настройка и конфигурирование
Страницы: 1
RSS
Отправить письмо
 
#1
0  
Доброе время суток всем. Господа хорошие подскажите пожалуйста как по правой кнопке мышки по файлу "отправить -> Адресат" с минимальным количеством запросов.
Вот такая вот жызнЬ &-)
 
 
 
#2
0  
Настроить заголовок нижеуказанного файла и положить его в папку SendTo (C:\Documents and Settings\UserName\SendTo\).

Файл ToBat.vbs:
Цитата

'=========================================================
acc_name="MyAccount" 'название аккаунта
fld_name="Outbox" 'название папки
subj = "Пересылаю файлы" 'заголовок сообщения
tpl_file="C:\APack\TheBat\_Test\att.tpl" 'имя шаблона
need_pack=1 'Установите: 0 - не надо паковать, 1 - упаковать РАРом
email = "" 'Установите: "" - спросить email, любое другое - внести email автоматом
rar_exe = "C:\APack\TotalCommander\Util\RAR\Rar.exe"
temp_folder = "c:\Temp"
'=========================================================

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(temp_folder & "tb_files_to_send.txt", 2, true)
set Args = Wscript.Arguments

if need_pack=1 then
 arc_file = temp_folder & "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=""" & temp_folder & "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

Файл шаблона att.tpl:
Цитата

Hello, %IF:"%ABTONAME"="":"%TOFName":"%ABTONAME"

See files attached:
%PUT="c:\Temp\tb_files_to_send.txt"

--
Best regards,
%FromFName                          mailto:%FromAddr

This is automatically generated message from The Bat! v.3

%IF:"%ABTONAME"="":"%BCC=''":"%HDRTO='%ABTONAME <%TOADDR>'"

Принимаю любые замечания, вопросы по данному решению.
 
 
 
#3
0  
  Господа, подскажите, плз, возможно ли сделать такую вещь, чтобы из MS Excel 2003 SP1 можно было отправлять открытый файл или его страницу или выделенную область страницы по почте (естесственно, The Bat!), не сохраняя сам файл на винте? У меня отсутствуют команды в меню Файл, подменю Отправить...
Заранее благодарен.
 
 
 
#4
0  
Цитата
У меня отсутствуют команды в меню Файл, подменю Отправить...
Не знаю, у меня команда File - Send To... -> Mail Recipient (as Attachment) в наличии и работает.
Смотрите, чтож у вас Эксель такой что у него команды такой нет.
Кстати, мыша зарегистрировали как обработчик Simple MAPI? (смотрите в настройках мыша - там есть такая команда).
 
 
 
#5
0  
Зарегистрировал мышу как обработчик Simple MAPI? - не помогло...
 
 
 
#6
0  
Здраствуйте умные люди! Помогите!!! Пишу значит новое пись мо в проге The Bat! после этого я не могу его отправить немедленно, либо сохранить . Ввожу команду сохранить или отправить , а проге "паролельно" ни чего не предпринимает. Что случилось?
 
 
 
#7
0  
Хмм... предварительная проверка Simple MAPI вроде такая:
На любом файле ткнуть правой кнопкой и выбрать
Send To -> Mail Recipient.
Здесь должно появиться окошко с выбором аккаунта.
Это работает?

У меня пока что Офис2003 англицкий полный.
Мыш 3.60.07
Виндовс XP SP2 Eng
 
 
 
#8
0  
Цитата
На любом файле ткнуть правой кнопкой и выбрать
Send To -> Mail Recipient.
- это да, работает..
У меня Офис2003 SP1 русских полный, мышь 3.51.10 (но пробовал и на других мышах), винда XP Pro SP2 Eng.
На предыдущем офисе (вроде ОфисХР, но точно не помню - может и Офис97) работало, а тут - хоть тресни, не работает... и команда "отправить сообщение (как вложение)" неактивна... засада.. макрос что-ли на это писать - так видимо решение должно быть проще...
 
 
 
Страницы: 1