Wechsel des Nachrichtenformats von MIME auf Richtext für eine Mail?

Moin!

Ich möchte auf Knopfdruck eine Mail versenden.

Soweit ein alter Hut. Aber nun das Problem:

Der Arbeitsbereich ist standardmäßig auf MIME eingestellt, was das Nachrichtenformat für Mails an Internetadressen angeht.

Ich möchte nun dem Button folgendes beibringen:

1) Wechsel des Nachrichtenformats des Arbeitsbereichs auf Notes Richtext
2) Versenden einer Mail an eine Internetadresse eben im Format Notes Richtext
3) Wieder Wechsel des Nachrichtenformats zurück auf MIME.

Hat jemand 'ne Idee, wie das funktionieren könnte? Gibt's da @Befehle?

Habe die Lösung gefunden. Wen's interessiert: das folgende Script wechselt in allen Arbeitsumgebungen des angemeldeten Users das Messageformat auf Richtext:

Sub Initialize
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim entryset As NotesViewEntryCollection
	Dim entry As NotesViewEntry
	Dim doc As NotesDocument
	Dim imail As String

	Set db = New NotesDatabase("", "names.nsf")
	Set view = db.GetView("Locations")
	Set entryset = view.AllEntries
	Set entry = entryset.GetFirstEntry

	Do Until entry Is Nothing
		Set doc = entry.Document
		doc.MessageFormat = "0"
		Set entry = entryset.GetNextEntry(entry)
	Loop 
End Sub

Will man das Messageformat auf MIME umstellen, muss die Null bei "doc.MessageFormat = "0"" auf 1 umgestellt werden, also "doc.MessageFormat = "1"".