DocOutlook.de Peter Raddatz Datum und Uhrzeit einfügen

MS-Outlook-2000/2/3 Datum und Uhrzeit einfügen
Bei Klick ist Heute

Ich suche eine Möglichkeit, bei der Bearbeitung eines Kontaktes im Notizfeld, mit einem Klick das aktuelle Datum und die aktuelle Uhrzeit einzufügen. Wie bekomme ich das hin?

Wie kann ich Datum und Uhrzeit mit einem Klick einfügen?

Im Outlook 2000/2/3 kannst Du mit Visual Basic für Applikationen viele Ereignisse automatisieren. Verwende dieses Makro. Es fügt das aktuelle Datum und die aktuelle Uhrzeit in das Notizfeld eines Kontaktes ein.

Die Schritte im Detail.

	Rufe mit Alt + F11 den Visual Basic-Editor auf.
	Klicke im Projekt-Explorer auf das kleine Plussymbol vor Projekt1. Der Zweig Microsoft Outlook Objekte wird eingeblendet.
	Nun ein Doppelklick auf DieseOutlookSitzung.
	Füge nun den unten stehenden Code ein.

Sub DatumEinfuegen()

Dim strDatumZeit As String
Dim oInspector As Outlook.Inspector
Dim oItem As Object

Set oInspector = Application.ActiveInspector

If oInspector Is Nothing Then
Exit Sub
End If

Set oItem = oInspector.CurrentItem

If oItem.Class = olContact Then
strDatumZeit = Format(Now, "dd.mm.yyyy hh:mm")
If Len(oItem.Body) > 0 Then
oItem.Body = oItem.Body & vbCrLf & strDatumZeit
Else
oItem.Body = strDatumZeit
End If
End If

Set oItem = Nothing
Set oInspector = Nothing

End Sub

Projekt speichern.

	Speichere das Projekt per Datei VbaProjekt.OTM speichern.
	Verlasse den VB-Editor mit Datei Schließen und zurück zu Microsoft Outlook
	Starte Outlook neu.

Datum und Uhrzeit einfügen

Öffne den gewünschten Kontakt. Starte dann das Makro mit einem Icon in der Symbolleiste. Mehr dazu findest Du im Artikel MS-Outlook-2000/2 Makro in der Symbolleiste.

MS-Outlook-2000/2 Makro in der Symbolleiste

Tipp mit freundlicher Genehmigung von Jens Hansen, OutlookStore.de veröffentlicht.