8. Programmierung / Formulare

 

1	Ein neues Element (Kontakt, Aufgabe, öffentliche Nachricht, Termin etc.) anlegen.
2	Die Veränderungen eintragen, die dauerhaft im neuen Formular berücksichtigt werden sollen.  Dabei kann es sich z.B. um die Auswahl der privaten Adresse als Standard-Postadresse handeln. Oder um die Vorabeinstellung bestimmter Kategorien. Oder um einen vorgegebenen Text im Nachrichtenfeld.
3	Im Menü Extras/Formulare den Befehl "Dieses Formular entwerfen" auswählen. (Das Entfernen/Hinzufügen von Steuerelementen und Feldern, das Anzeigen und Verbergen von bestimmten Seiten des Formulars, die Programmierung von Ereignissen und Aktionen kann in dieser Phase erfolgen, wird hier aber nicht behandelt.)
4	Im Menü Extras/Formulare den Befehl "Formular veröffentlichen" wählen.
5	In der der Ordnerauswahlliste "Suchen in:" den aktuellen Ordner auswählen und dem Formular im Feld "Angezeigter Name:" einen Namen geben.
6	Nun Datei/Schließen (oder ESC) wählen.  Die Frage "Möchten Sie die Änderungen speichern?" mit NEIN beantworten.
7	Das Formular wird installiert, wenn man erstmalig im Menü Aktionen/Neu: MeinNeuesFormular wählt.

Weiterführende Anmerkungen:

	Das neue Formular steht erst mal nur in dem Ordner zur Verfügung, in dem es veröffentlicht wurde.
	Alte Elemente verwenden das neue Formular nicht. (s. hier...)
	Wenn im jeweiligen Ordner das neue Formular als Standard verwendet werden soll, muss man in den Ordnereigenschaften im Feld "Bereitstellen in diesem Ordner mit:" das neue Formular auswählen. (s. hier...)
	Für die zusätzliche Speicherung und Übertragung des Formulars auf andere Ordner sollte man es in der persönlichen Ordnerbibliothek speichern. Das kann, wie auch das Löschen und Kopieren im Formularverwaltungsdialog geschehen. Man erreicht ihn folgendermaßen:

Den Formularverwaltungsdialog gibt es nur im CW-Modus! Im linken Fenster den oben genannten Ordner wählen,  im rechten Fenster die Bibliothek "Persönliche Formulare".  Kopieren. Für die Verteilung des Formulars an andere Anwender und an andere PCs kann man es als Outlook-Vorlage im Dateisystem speichern:

 

Wird ein Formular geändert, werden die Änderungen nur für neue Items, die auf diesem Formular basieren, aktiv.  Bisherige (schon bestehende) Einträge müssen auf das neue / geänderte Formular aktualisiert werden.

Das coolste Tool (DocMessageClass) dazu gibt's hier: http://www.publicshareware.com/download/DocMessageClass.zip

 

Weiterhin mit der OMSGCLAS.EXE von Microsoft. http://support.microsoft.com/support/kb/articles/q201/0/89.asp

Es geht auch mit einem VBA-Makro von Hans-Jürgen Neschtschenko

 
Sub KlasseAnpassen()

Set olap = CreateObject("Outlook.Application")
Set olns = olap.GetNamespace("MAPI")
Set olfo = olns.PickFolder

For Each Item In olfo.Items
If Instr(Item.MessageClass, "Contact") > 0 then
Item.MessageClass = "IPM.Contact.MeinFormular"
Item.Save

End If

Next

Set olap = Nothing
End Sub
 

Sub SchnelleNotiz()
' Beispiel für VBA-Zugriff auf Outlook.
' Macht aus dem markierten Text einen der kleinen gelben Zettel.
' Oder welche Farbe auch immer in Outlook als Standard definiert wurde.
' Makro auf Symbolleiste legen, dann geht es mit einem einzigen Klick.
' Schneller und praktischer als die Herstellung einer Notiz mit dem Symbol der
' Office-Shortcut-Leiste, Einfügen des Textes mit Cut and Paste und Schließen!
' Hans-Jürgen Neschtschenko, 31.01.1999
' Word97, Outlook 98, aktuellste VBSCRIPT.DLL

Dim olapp As Object, newnote As Object
Dim newtext As String

' Wenn nichts markiert ist, nehmen wir den ganzen Text:
If Len(Selection.Text) < 2 Then
Selection.WholeStory
End If

newtext = Selection.Range.Text
Set olapp = GetObject(, "Outlook.Application")
' Vorsicht: wenn Outlook nicht läuft, gibt's hier einen Fehler
' Perfektionisten fangen ihn mit IF olapp is nothing then ... ab.
' Außerdem: ältere VBSCRIPT.DLLs haben einen Fehler in GETOBJECT !
' Dann CREATEOBJECT("Outlook.Application") verwenden

Set newnote = olapp.createitem(5)
newnote.body = newtext

' Wenn man sie noch editieren möchte,
' oder wenn man sie am Bildschirm kleben lassen möchte:
' newnote.Display

' Ansonsten speichern:
newnote.Close (olSave)

Set olapp = Nothing
Set newnote = Nothing

End Sub

	Formular veröffentlichen, entweder im Ordner selbst oder in einer "Formularbibliothek".
	Rechtsklick auf das Ordnersymbol, Eigenschaften. Hier unter "Bereitstellen in diesem Ordner" dein Formular auswählen.
	Um die bestehenden Kontakte auf das neue Formular umzustellen,siehe "Formulare ändern/Message Class ändern".

 

	Mit der rechten Maustaste auf die Bezeichnung klicken, so dass ein Markierungsrahmen um die Bezeichnung sichtbar wird.  (Falls das nicht klappt: erst mal eine andere Seite des Formulars anklicken, dann wieder zurück auf die gewünschte Seite, danach funktioniert es.)
	Im Kontextmenü "Eigenschaften" wählen.
	Im Feld "Titel:" die deutsche Bezeichnung eintragen.
	Das Formular neu veröffentlichen.