Hi,
ich habe mal wieder ein kleines Problem.
Mein Agent:
Sub Initialize
Dim db As NotesDatabase
Dim view As NotesView
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim doc As NotesDocument
Dim ws As NotesUIWorkSpace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Set db = session.CurrentDatabase
Dim myList List As String
Dim myArray List As String
var = 01
Set view = db.GetView( "Ansicht" )
Set newDoc = New NotesDocument( db )
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
hersteller = doc.fldHersteller(0)
seriennummer = doc.Seriennummer(0)
inventarnummer = doc.Inventarnummer(0)
abteilung = doc.fldAbt(0)
doc.test = "1"
Call doc.Save ( True, False )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendText ("Sehr geehrter (Herr / Frau) " +
anwender)
Call rtitem.AddNewLine( 3 )
Call rtitem.AppendText ("Bitte geben Sie die
Zählstände für den folgenden Drucker an: ")
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText ("Drucker: ")
Call rtitem.AddTab( 1 )
Call rtitem.AppendDocLink( doc , "", hersteller)
Call rtitem.AddNewLine( 1 )
Call rtitem.AddTab( 2 )
Call rtitem.AppendText ("SN: " + seriennummer)
Call rtitem.AddNewLine( 1 )
Call rtitem.AddTab( 2 )
Call rtitem.AppendText ("IN: " + inventarnummer)
Call rtitem.AddNewLine( 5 )
Call rtitem.AppendText ("Herzlichen Dank" )
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText ("Die vollständige Datenbank finden sie
hier: ")
Call rtitem.AppendDocLink( db, db.Title )
Call rtitem.AddTab( 1 )
Call rtitem.AppendText(doc.Subject(0))
Call rtitem.AddNewLine( 1 )
NewDoc.Subject = _
("Druckerzählstande: " + abteilung)
NewDoc.SendTo = myArray(var)
Call newDoc.Send( False )
Set doc = view.GetNextDocument( doc )
var = var + 1
Wend
End Sub
Jetzt möchte ich gerne das Aussehen der Mail, die ich verschicke ändern (sprich: Schriftart, Schriftgröße, Schriftfarbe)
Ich habe schon einiges versucht und auch schon mal rumgeguckt ob ich was zu dem Thema finde. Leider bin ich auf nichts hilfreiches gestoßen.
Die Nachricht wird von einem Server mit dem Agent an Lotus Notes Clients geschickt.
Mfg
Christian
Danke schon mal!!