Detail: Nützliche Codeschnipsel für Outlook-Termine

13.03.2009 - Nützliche Codeschnipsel für Outlook-Termine


Hier ein paar Codeschnipsel für Makro's, bei denen Termine im Outlook erzeugt werden sollen:

' Endzeit auf 2 Stunden fixieren
Dim olTime
olTime = olApptItem.Start
olTime = DateAdd("n", 120, olTime)
olApptItem.End = olTime

' Ort setzen
Dim Terminort
Terminort = ActiveAddress.Fields("Terminort").Value
olApptItem.Location = Terminort

' An dieser Stelle wird die Terminfarbe/Kategorie gesetzt.
olApptItem.Categories = "wichtig"

' Termininhalt übergeben in Body
olApptItem.Body = ActiveAddress.Fields("Termininfos").Value

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl