In Mindmanager kann man für einzelne Zweige Aufgabekriterien definieren und diese automatisch nach Microsoft Outlook synchronisieren. Wenn diese Aufgabe dann jedoch in Outlook fällig ist, fehlt der Verweis auf die entsprechende Map, um direkt diese aufrufen zu können. Häufig ist dann eine Suche im Dateisystem erforderlich.

Die fehlende Funktionalität kann mit Hilfe des folgenden Makros erzielt werden.

Das entwickelte Makro geht alle Zweige der Map durch und legt zu jedem Aufgabenzweig eine Notiz mit Datei- und Verzeichnisname der Map an, die bei der Synchonisation nach MS-Outlook übertragen wird. Fällt ein entsprechender Termin in MS-Outlook an, kann direkt die zugehörige MindMap aufgerufen werden, ohne dass man sich an den Ablageort erinnern muss.

—————————————————————————–

Dim WithEvents iterator As TopicFinder

Sub Main
Dim doc As Document
Set doc = ActiveDocument

Dim t As Topic
Set t = ActiveDocument.CentralTopic
Set iterator = t.NewTopicFinder

iterator.IncludeTopicTypes = mmIteratorIncludeTopicFlagCallout + mmIteratorIncludeTopicFlagFloating
iterator.CriteriaMask = mmIteratorCriteriaFlagHasTask
iterator.PassCriteria = mmIteratorPassCriteriaAny
iterator.IncludeHiddenTopics = True
iterator.Start

doc.Save

End Sub

Private Sub iterator_TopicFound( t As Topic )

If t.Notes.Find (“File:\\” & ActiveDocument.FullName, mmFindFlagMatchWholeWord) = 0 Then
t.Notes.Insert ” — Verbundene Mindmap anzeigen über: “File:\\” & ActiveDocument.FullName & “” & vbCrLf & “_________________________________” & vbCrLf & vbCrLf
End If

End Sub

——————————————————————————

Das Mindmanager Makro können Sie hier herunterladen:

http://www.andreaslezgus.de/blog/downloads/linkmapoutlook.zip

Eine Installationsbeschreibung finden Sie hier:

http://www.andreaslezgus.de/blog/downloads/mindmanager_meets_outlook.zip