Lookeen
Lookeen

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