Я использовал гиперссылки Outlook, но обнаружил, что если гиперссылка работает дома, то она не работает на работе и наоборот - хотя у меня один файл outlook.pst, который я храню на переносном винчестере и использую на работе и дома.

Оказалось, что код объекта Outlook хранит в последних 8 символах поля EntryID, а вся остальная часть зависит не от файла outlook.pst, а от машины, на которой находится этот файл:

HOME: outlook:0000000065BD675F2D28694CA495F53B8E4368E044273000
WORK: outlook:000000009E5D45D68B62C44E8386C937DE30D92644273000

HOME: outlook:0000000065BD675F2D28694CA495F53B8E4368E024ED2F00
WORK: outlook:000000009E5D45D68B62C44E8386C937DE30D92624ED2F00

Таким образом, у объекта Outlook нет уникального кода, следовательно нельзя создать и стабильную во времени и месте гиперссылку. Стоит поменять компьютер - и гиперссылка уже не работает. Увы!

Все таки Outlook поддается настойчивому программисту.
Как целка, которая долго ломается, зато потом дает со страшной силой.
Сегодня я научился кастомизировать тулбар.

Вот примерно такой код добавляет в строку меню Outlook новый пункт меню с надписью "Clipboard".
При нажатии на кнопку открывается сайт "http://fixin.com.ru"
Обратите внимание, как уродливо назначается гиперссылка для кнопки - через свойство ToolTipText, которое обычно используется для текста подсказки, Мелкософт, блин!


Sub test_tb()
Dim cbcsControls As CommandBarControls
Dim cbcControl As CommandBarControl

Set CurrInspector = Application.ActiveInspector
Set CurrExplorer = Application.ActiveExplorer

Set cbs = CurrExplorer.CommandBars
Set cb = cbs.Item("Menu Bar")

Set cbcControl = cb.Controls.Add(1)
cbcControl.Caption = "Clipboard"
cbcControl.HyperlinkType = msoCommandBarButtonHyperlinkOpen
cbcControl.TooltipText = "http://fixin.com.ru"
End Sub

Окей, скажете вы, а что нам дает то, что мы добавим гиперссылку? Мы хотим action - некоторое действие по нажатию на кнопку.
Нема проблем, шановныя.

У себя я назначаю такую гиперссылку fixin:action=get_ref. Ну а дальше по общей схеме - открывается форма FixinNavigator из библиотеки личных форм, тут же форма закрывается, доступен ActiveInspector и ActiveExplorer, разбирается команда и выполняется команда над текущим инспектором или проводником.

Вуаля. Полный технический цикл. ;-)

Ну еще бы научиться вставлять не текст, а картинку (может подскажете), было бы ваще здорово, наверно можно, тогда можно было бы вообще автоматизировать кастомизацию Outlook. Т.е. настроить панельку в одном месте и загрузить ее в любой Outlook.

Придумал тут на досуге, как организовать фабрику для Internet Explorer.

Значит я создаю экзепляр браузера, передаю туда коннектор к базе данных и хочу, чтобы при нажатии на кнопку Обновить данные опять извлекались из базы данных и выводились в браузер.

Код по работе с базой данных оперирует с объектом коннектора к базе данных, здесь проблем не возникает.

Однако код вывода в браузер результата запроса использует коллекции, файловую систему и прочие com-объекты. При этом на каждом создании com-объекта IE ругается благим матом, будто его хотят завирусовать - "Попытка создания Active X объекта", мол.

Я решил эту проблему так - передаю в браузер не только коннектор к БД, но еще и объект Microsoft MSScripting, который позволяет компилировать код vb-script.
В него я зашиваю одну-единственную функцию:

Sub MakeObject(ClassName)
set MakeObject=CreateObject(ClassName)
End Sub

Вуаля, теперь я могу плодить любые классы, обращаясь к функции MakeObject объекта MSScripting вместо CreateObject.

Вот такой скриптик позволит вам вставлять в текст контакта/задачи/сообщения в Outlook ссылки на другие контакты/задачи/сообщения/записи дневника и т.п.
Например в запись дневника "Починил машину" можно сделать ссылку на задачу "Починить машину" и т.п.

Технически. Копируете код скрипта в файл crosslink.vbs, делаете ярлык на этот файл, копируете этот файл например в панель быстрого запуска программ Quick Lunch или на рабочий стол.

Все, теперь открываете любой элемент аутлук, щелкаете по ярлыку, вуаля, ссылка скопировалась и ее можно вставлять в другой элемент.
При этом текст ссылки - это заголовок элемента аутлук, а по щелчку на ссылке открывается сам элемент.

Пользуйтесь.

На очереди думаю дать следующие ярлыки/скрипты:
= Создать запись дневника/задачу/контакт/встречу со ссылкой на текущий открытый элемент outlook.
= Показать все записи дневника/задачи/контакты, у которых есть ссылка на текущий элемент.

Код crosslink.vbs:

Function EmptyValue(V)
Dim TN
TN = TypeName(V)
EmptyValue = False
If (TN = "Nothing") Or (TN = "Null") Or (TN = "Empty") Then
EmptyValue = True
ElseIf TypeName(V) = "String" Then
If Trim(V) = "" Then
EmptyValue = True
End If
ElseIf TypeName(V) = "Number" Then
If V = 0 Then
EmptyValue = True
End If
End If
End Function

Function ClipBoardStoreHiperlink(sName, sAdress)
Set w = CreateObject("Word.Application")
Set doc = w.Documents.Add

doc.Hyperlinks.Add w.Selection.Range, sAdress, "", "", sName
w.Selection.WholeStory

w.Selection.Copy
doc.Close (0)
w.Quit (0)
Set w = Nothing

End Function



Sub GetCurrentInspectorHiperlink(Application)
CurrInspector = Application.ActiveInspector
If EmptyValue(CurrInspector) Then
MsgBox "Not opened any active inspector/form of Outlook item"
Exit Sub
End If
sName = CurrInspector.Subject
sAdress = "outlook:" + CurrInspector.EntryID
ClipBoardStoreHiperlink sName, sAdress
End Sub


Set ol = CreateObject("Outlook.Application")
GetCurrentInspectorHiperlink ol

В Outlook возможно быстрое получение записей (задач, контактов и т.п. по фильтру). У меня была задача сделать так, чтобы функция для фильтрации записей в SQL-запросе и функция проверки этого же параметра при обработке записи описывались только раз, без дублирования.
Например, я определил бы функцию "важные задачи" и "обычные задачи", запустил бы фильт "важные задачи или обычные задачи", а затем в тексте отчета для каждой полученной записи определял бы опять же с помощью  этой функции, является ли задача "важной" или "обычной" и проставлял бы этот флаг.
Суть прикола в том, что функция должна в первом случае выдавать код на языке запросов SQL, а в другом случае - на языке java-script.
Я-таки добился своего.
По контексту определяется, для чего используется функция.
Например, фильтр может быть таким:
function ImportantTask()
{
     //Только те задачи, что относятся к категори VIP
     A=Category("VIP");  
     //Только те задачи, что не закрыты
     B=Closed();             
     C=not(B)
     return And(A,C);
}
Тогда если эта функция вызывается для SQL-фильтра:
Category("VIP") вернет "outlook:Category='VIP'"
Closed() вернет "outlook:closed=1"
not(B) вернет "not(outlook:closed=1)"
And(A,C) вернет "(outlook:closed=1) and (not(outlook:closed=1))"

Если же функци вызывается на java-script, то будут осуществляться проверки текущего объекта I на категорию VIP, на закрытость задачи и т.п.
Таким образом, реализается базовый класс SQLQueryLanguage, от него наследуется новый класс, где содержатся определенные пользователем функции, например ImportantTask.
Если в родительском классе  SQLQueryLanguage установлен объект I, то все методы будут проверять свойства объекта I и возвращать логические значения.
В противном случае будут возвращаться строки.

fixin:action=open_view;view=work
fixin:action=open_view;view=settings

Открывает вид с заданным именем.

fixin:action=get_ref
Копирует в буфер обмена ссылку на текущий открытый элемент аутлук.
А это пригодится, чтобы вставлять в задачу линки на все связанные с ней задачи, например.

Так что в направлении программирования в outlook у меня хорошие продвижения.

Аутлук в модулях формах никак не хочет в строках использовать русские буквы.
Если написать там русскую строку, при следующем открытии кода формы вместо нее будут кракозябры.
Я решал вопрос раньше, храня код отдельно и потом только вставляя его в форму.
Но потом меня это запарило и я решил сделать по другому - получать русские буквы, конвертируя их из латиницы.
Привожу пример использования:

Language_Constants.Add "Category", Lat2Rus("Kategoriya")
Language_Constants.Add "Complete", Lat2Rus("Zavershena")
Language_Constants.Add "Today", Lat2Rus("Segodnya")
Language_Constants.Add "NoFilter", Lat2Rus("Bez fil'tra")
Language_Constants.Add "Yesterday", Lat2Rus("Vchera")
Language_Constants.Add "Tomorrow", Lat2Rus("Zavtra")
Language_Constants.Add "Equal", Lat2Rus("Ravno")
Language_Constants.Add "NotEqual", Lat2Rus("Ne ravno")
Language_Constants.Add "More", Lat2Rus("Bol'she")
Language_Constants.Add "Less", Lat2Rus("Men'she")
Language_Constants.Add "MoreEqual", Lat2Rus("Bol'she ravno")
Language_Constants.Add "LessEqual", Lat2Rus("Men'she ravno")
Language_Constants.Add "Who prick", Lat2Rus("Kem poruchena")
Language_Constants.Add "Start date", Lat2Rus("Data nachala")
Language_Constants.Add "StartDate_Empty", Lat2Rus("Data nachala pusto")
Language_Constants.Add "Task_Status", Lat2Rus("Sostoyanie")
Language_Constants.Add "Task_Status_NotBegin", Lat2Rus("Ne nachalas'")
Language_Constants.Add "Task_Status_Frozen", Lat2Rus("Otlozhena")
Language_Constants.Add "Task_Status_Executed", Lat2Rus("Vyypolnyaetsya")
Language_Constants.Add "Task_Status_Closed", Lat2Rus("Zavershena")
Language_Constants.Add "Task_Status_Waiting", Lat2Rus("V ozhidanii")


? Lat2Rus("\yeto zamechatel'naya vesch' dlya pod^ezda")
? Lat2Rus("ya lyublyu morozhennoe - yeto zamechatel'naya vesch' dlya pod^ezda")

А вот и готовый код фукнции, она допускает экранирование одного символа и прочие символы, кроме латинских букв.

Function Lat2Rus(s)
Res = ""

j = 1
While j <= Len(s)
pos = j
ch3 = Mid(s, j, 3)
ch2 = Mid(s, j, 2)
ch = Mid(s, j, 1)
If ch = "\" Then
ch = Mid(s, j + 1, 1)
ch2 = ""
ch3 = ""
j = j + 1
End If

lch = LCase(ch)
IsUpper = LCase(ch) <> ch
ch = lch
ch2 = LCase(ch2)
ch3 = LCase(ch3)


R = ""

If ch3 = "sch" Then
R = Chr(249)
j = j + 2
ElseIf ch2 = "yo" Then
R = Chr(184)
j = j + 1
ElseIf ch2 = "zh" Then
R = Chr(230)
j = j + 1
ElseIf ch2 = "ch" Then
R = Chr(247)
j = j + 1
ElseIf ch2 = "sh" Then
R = Chr(248)
j = j + 1
ElseIf ch2 = "yy" Then 'F.e. cyyrk
R = Chr(251)
j = j + 1
ElseIf ch2 = "ye" Then
R = Chr(253)
j = j + 1
ElseIf ch2 = "yu" Then
R = Chr(254)
j = j + 1
ElseIf ch2 = "ya" Then
R = Chr(255)
j = j + 1
ElseIf ch = "a" Then
R = Chr(224)
ElseIf ch = "b" Then
R = Chr(225)
ElseIf ch = "v" Then
R = Chr(226)
ElseIf ch = "g" Then
R = Chr(227)
ElseIf ch = "d" Then
R = Chr(228)
ElseIf ch = "e" Then
R = Chr(229)
ElseIf ch = "z" Then
R = Chr(231)
ElseIf ch = "i" Then
R = Chr(232)
ElseIf ch = "y" Then
R = Chr(233)
ElseIf ch = "k" Then
R = Chr(234)
ElseIf ch = "l" Then
R = Chr(235)
ElseIf ch = "m" Then
R = Chr(236)
ElseIf ch = "n" Then
R = Chr(237)
ElseIf ch = "o" Then
R = Chr(238)
ElseIf ch = "p" Then
R = Chr(239)
ElseIf ch = "r" Then
R = Chr(240)
ElseIf ch = "s" Then
R = Chr(241)
ElseIf ch = "t" Then
R = Chr(242)
ElseIf ch = "u" Then
R = Chr(243)
ElseIf ch = "f" Then
R = Chr(244)
ElseIf ch = "h" Then
R = Chr(245)
ElseIf ch = "c" Then
R = Chr(246)
ElseIf ch = "'" Then 'Soft sign - f.e. sovest'
R = Chr(252)
ElseIf ch = "^" Then 'Hard sign - f.e. pod^ezd
R = Chr(250)
Else
R = ch
End If
If IsUpper Then
R = UCase(R)
End If
j = j + 1
Res = Res + R
Wend
Lat2Rus = Res
End Function

Используется для восстановления pst-папок Outlook
Запустил ее ради интереса, нашла 2 ошибки в папке outlook.
Находится по пути:
"C:\Program Files\Common Files\System\MSMAPI\1049\SCANPST.EXE"

Добился того, чтобы задачи можно было выводить в виде дерева, причем одна задача может входить в любые другие задачи (проекты), т.е. получается не дерево, а сеть.
Также работают фильтры по наименованию и состоянию задачи.
Гм, видимо еще чуть-чуть и перейду к учету задач на 1С...
Удобно, черт подери.
Выкладываю скрин-шот.

Продолжаю лабать список задач аля Аутлук для 1С.
У меня задача может являться проектом и одна задача может входить в разное число проектов.
Допускается зацикливание.
Вот например, чтобы сделать курицу, нужно яйцо.
Чтобы сделать петуха, тоже нужно яйцо.
Чтобы сделать яйцо, нужна курица и петух.
Классическое зацикливание и вот как элегантно оно отображается в дереве задач.

Сегодня перенес в 1С 80 все свои задачи из Outlook. 1668 задач.
Вот думаю теперь, что с ними делать.

Вот подумал, почему этот уебищный Outlook не реализовал модель доступа к своим "бесценным" данным по логину и паролю, чтобы отключить эти идиотские сообщения "программа пытается получить доступ к папке "Контакты""?

Мелкософтовские спецы забыли? гыгыгы... Хваленая безопасность...

Сегодня написал скрипт для отправки смс через веб-сайт МТС.
Думаю, добавлю еще отправку смс для билайна и выложу.
Скрипт написан на VBScript.
Открываешь карточку человека в Outlook, щелкаешь на ярлычке в Quick Lunch и открывается веб-страница. В заголовке - имя человека (чтобы не спутать), заполнены поля телефона и обратного телефона.
Раньше я использовал для этих целей Roboform, но он неповоротлив.
МТС поменяла дизайн странички и пришлось бы переделывать все сохраненные формочки.
А так я выбрал в аутлуке контакт, шлепнул - и страничка заполнилась.
Осталось только набрать код тьюринга и все, смс ушла.
Скрипт расположен в файле с расширением VBS.

Скрипт выложил здесь, юзайте (на МТС, Билайн и Мегафон):
http://fixin.mylivepage.ru/file/96/456/%D0%A1%D0%B...BE%D1%81%D0%BA%D0%B2%D1%8B.vbs

Я писал раньше, что на работе стоит Exchange Server и это мешает мне синхронизировать данные с КПК, т.к. данные синхронизируются с данными Exchange.
Я поменял конфигурацию почты, сделал местом доставки по умолчанию свою папку, и добавил туда как вторую папку Exchange.
Теперь я могу синхронизировать данные Outlook. Они синхронизируются с моей папкой.

http://www.hpc.ru/board/viewtopic.php?t=38449&highlight=

Сделал сортировку и группировку по произвольным полям, работает четко.

Сейчас немного отвлекся в сторону, хочу отказаться от шаблона outlook oft и всю работу сделать в html-файле. Единственное препятствие - когда создаю объект аутлука в html-файле, он ругается на безопасность. Блин.

Сделал демо-базу, на которой можно гонять примеры - демо-папку контакты и задачи.

В одном виде можно запускать запрос сразу к нескольким папкам. в будущем сделаю, чтобы можно было разбивать отчет на несколько колонок - в одной задачи например, в другой контакты (у которых например стоит пометка к исполнению).

Вот такие дела.

Гы, вчера сделал группировку в запросах по произвольным полям.
Ну это например если есть две задачи:

Покормить пса - категории животные;еда
Набить морду хомяку - категории агрессия;животные
Покормить рыбок - категории животные;еда

То при группировке по категориям у меня работает два режима:

1:

животные;еда
-- Покормить рыбок
-- Покормить пса
агрессия;животные
-- Набить морду хомяку

2:

животные
-- Покормить рыбок
-- Покормить пса
-- Набить морду хомяку
еда
-- Покормить рыбок
-- Покормить пса
агрессия
-- Набить морду хомяку

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

И можно запускать в плавание. Скоро на улицах Аутлуководов будет празник.

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

Его можно скопировать в модуль VBA и он будет работать. Но нужны еще XML-примеры запросов и т.п. Ну это уже в финальном релизе. Аминь.

Блин, в тяпницу начал глючить аутлук - поставленные мне задачи (приходящие по электронной почте) не хотели приниматься - я не мог открыть форму задачи.
Пришлось снести мои навороты в форме задач (custom forms) и откатиться к стандартной версии формы задачи - видимо сказались игры с user properties на форме.
Все заработало.
Блин, а я уж думал, pst файл навернется. :)

На выходных забил на баб и получал кайф от программирования.
Господа менеджеры - скоро на вашу улицу придет праздник - я пишу не требующую инсталляции настройку над Outlook (с открытым кодом), которая будет выполнять произвольные запросы над одной или несколькими папками Outlook на SQL-подобном языке (XML) и выводить это все в веб-страницу.

С этой страницы по ссылке можно будет открыть элемент Outlook - задачу, контакт и т.п.

Все недостатки видов Outlook полечены - тут вам и вычислимые поля и группировки по ним и т.п.

Возможно создавать свои HTML шкурки отчетов - полный дизайн и функционал на javascript.

С технической точки зрения Outlook выгружает данные в плоскую таблицу, которая доступна как массив в java-script, ну а уж в java-script можно с ней делать все что угодно - группировки, сортировки.

На данном этапе выгрузка, шкурки - это работает.

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

Я доигрался в Outlook - насоздавал кучу user properties (поля пользователя в папке).
Короче после этого всего у меня перестал работать свойства пользователя.
Оказалось, что в программе я допустил ошибку и создал очень много свойств пользователя в папке, из-за чего возникло переполнение.
Короче, я не мог получить список полей пользователя - вылетала ошибка, также мог добавлять новые поля, но они не появлялись в списке.

В решении проблемы мне помог Outlook Spy, плагин к аутлуку.
Значит, описываю по шагам.

Зашел в папку Tasks (с ней у меня были проблемы).
Нажал кнопки IMAPIFolder.
В окошке перешел на закладку Associated Contents.
В списке содержимого нашел IPC.MS.REN.USERFIELDS.
Удалил это поле.
Зашел еще раз в список пользовательских полей - все чисто, можно пользоваться.

Да, Outlook - глючная и неустойчивая программа, блин.
Нам бы за такое в 1С руки поотрывали. Переполнение количества полей пользователя, блин.

На работе перешел на Outlook 2003 (11 версия).
Прописал в реестре в 11-й ветке "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0", чтобы он использовал вместо форм по умолчанию мои формы.
И начались глюки, обезображенные на картинке: "Пользовательская форма не открывается. Будет использована форма Outlook. Не удается отобразить форму, необходимую для просмотра сообщения. Обратитесь к администратору сети". И отключить это сообщение невозможно.
Главное - дома у меня все окей, глюков нет, стоит тот же Outlook 2003. А на работе выдает вот это сообщение и на контакты, и на задачи и на встречи.

Обнаружил, как бороться с этой ошибкой.

Нужно очистить кэш форм командой:

Сервис - Параметры - Дополнительно - Дополнительно - Дополнительные формы - Диспетчер форм - Очистить кэш.

Просто папка outlook у меня находится на сменном носителе (USB винчестер) и очевидно, кэш форм падает.

Также в этом меню можно удалять пользовательские формы из библиотеки личных форм - давно не мог разобраться как это делать.