Вот такой скриптик позволит вам вставлять в текст контакта/задачи/сообщения в 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