English
|
OLKeeper |
| Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schlieÃen und so etwa wichtige Emails verpassen würden. |
Datum oben im Textkörper einfügen
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.
So fügen Sie Makros in Outlook einPublic 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. |
Datum an Cursorposition einfügen
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. |
Senden Sie eine Nachricht