
![]() |
OLKeeper |
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schlieÃen und so etwa wichtige Emails verpassen würden. |
Dieses Beispiel fügt das Datum ganz oben im Textkörper ein. In der ersten Methode (AddNote) können Sie optional einen Standardtext eingeben, der immer zusammen mit dem Datum eingefügt werden soll.
Damit das Beispiel funktioniert, müssen Sie über Extras/Verweise einen Verweis auf die 'Microsoft Word x.x Object Library hinzufügen.
Public Sub AddNote() Dim DefaultMsg$ 'Standardtext DefaultMsg = "" AddNote_Ex Application.ActiveInspector, DefaultMsg End Sub Private Sub AddNote_Ex(Inspector As Outlook.Inspector, Optional Msg As String) Dim WdSel As Word.Selection Dim p& Msg = Format(Date, "dd.mm.yyyy", vbUseSystemDayOfWeek, vbUseSystem) & _ ": " & Msg Msg = vbCrLf & "---" & vbCrLf & Msg Set WdSel = GetCurrentWordSelection(Inspector) p = Len(Msg) - 2 WdSel.Start = 0 WdSel.End = 0 WdSel.InsertBefore Msg WdSel.Start = WdSel.Start + p WdSel.End = WdSel.Start End Sub Private Function GetCurrentWordSelection(OpenInspector As Outlook.Inspector) As Word.Selection Dim Doc As Word.Document Dim Wd As Word.Application Set Doc = OpenInspector.WordEditor Set Wd = Doc.Application Set GetCurrentWordSelection = Wd.Selection End Function
![]() |
Reporter |
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert. |
Dieses Beispiel ist ganz ähnlich wie das erste, nur wird das Datum jetzt an der aktuellen Cursorposition eingefügt.
Damit das Beispiel funktioniert, müssen Sie über Extras/Verweise einen Verweis auf die 'Microsoft Word x.x Object Library hinzufügen.
Public Sub AddNote() Dim DefaultMsg$ 'Standardtext DefaultMsg = "" AddNote_Ex Application.ActiveInspector, DefaultMsg End Sub Private Sub AddNote_Ex(Inspector As Outlook.Inspector, Optional Msg As String) Dim WdSel As Word.Selection Dim p& Msg = Format(Date, "dd.mm.yyyy", vbUseSystemDayOfWeek, vbUseSystem) & _ ": " & Msg Msg = vbCrLf & "---" & vbCrLf & Msg Set WdSel = GetCurrentWordSelection(Inspector) p = Len(Msg) - 2 WdSel.End = WdSel.Start WdSel.InsertBefore Msg WdSel.Start = WdSel.Start + p WdSel.End = WdSel.Start End Sub Private Function GetCurrentWordSelection(OpenInspector As Outlook.Inspector) As Word.Selection Dim Doc As Word.Document Dim Wd As Word.Application Set Doc = OpenInspector.WordEditor Set Wd = Doc.Application Set GetCurrentWordSelection = Wd.Selection End Function
![]() |
OLKeeper |
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schlieÃen und so etwa wichtige Emails verpassen würden. |