fixin (fixin) wrote,
fixin
fixin

Category:

Хитрый ход с Аутлуком



У меня есть шаблон Outlook для рассылки клиентам.


Но это мерзкое детище Билла Гейтса не запрашивает подтверждение на сохранение шаблона. Нажмешь по привычке CTRL+S и шаблон сохранится, затерев основной текст шаблона.


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


Но потом мне это надоело, ведь я все же программист. И я написал скрипт, который копирует базовый шаблон, создает временный и открывает уже его.


Всего несколько строк кода, а какое облегчение! Вот почему программистам платят так много бабла - они упрощают жизнь!


src = "r:\desktop\Дела\Шаблоны писем\Рассылка клиентам.msg"
dst = "m:\fixin\Temp\1.msg" 'Понимает только краткое имя файла почему-то


Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile src, dst, 1 


set WshShell = WScript.CreateObject("WScript.Shell")
commandline ="START ""RUN""" + dst + """"
'WScript.echo commandline
commandline = dst


WshShell.Run(commandline) 


Tags: outlook
Subscribe
promo fixin декабрь 31, 2037 16:57 1417
Buy for 30 tokens
UPD: Друзья, в августе 2019 года блог переехал на http://fixinchik.ru. Welcome! Добро пожаловать в журнал Осипова Сергея Александровича, известного также как Fixin и Гений 1С. Рекомендую ознакомиться с Часто Задаваемыми Вопросами обо мне. Что я хочу в подарок - список. Мой проект "…
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 1 comment