Hallo!
Ich bin etwas ratlos.
Ich habe per Script einen Mailversand in Schaltflächen eingebaut, wobei die Mail generiert und zum Beschreiben geöffnet wird.
In der ersten Schaltfläche steht dieses Script direkt drin und funktioniert auch einwandfrei.
In der zweiten Schaltfläche gibt es eine If-Anweisung und damit zwei Funktionsaufrufe innerhalb der Schaltfläche, womit dann das Mail versendet werden soll.
Führe ich nun die Schaltfläche aus, dann funktioniert eingentlich alles, ausser dass die dann aufgemachte Mail keinen Text enthält.
Schaue ich mir das mittels Debugger an, erscheint der Text so wie er soll.
??
Hier mal der Mail-Teil:
Sub MailversandIndividual
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim rtitem As NotesRichTextItem
Dim maildb As NotesDatabase
Dim mailnote As NotesDocument
Dim profile As NotesDocument
Dim SendToNames As String
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set session = New NotesSession
Set db = session.CurrentDatabase
Set maildb = New NotesDatabase("","")
Dim Benutzer As New NotesName(session.UserName)
SendToNames = uidoc.FieldGettext("txtAuftraggeber")
If SendToNames = "" Then
Messagebox "Im Dokument wurden keine weiteren Mitarbeiter angegeben. Das Mail wird an 'Niemanden' gesandt."
Else
maildb.OpenMail
Set mailnote = New NotesDocument(maildb)
Set profile = maildb.GetProfileDocument("CalendarProfile")
mailnote.SendTo = SendToNames
mailnote.Form = "Memo"
mailnote.Logo = session.GetEnvironmentString("DefaultLogo",False)
mailnote.Principal = profile.Owner(0)
mailnote.Subject = "Info zur Anforderung einer IDV-Auswertung, Auftragsnummer " & uidoc.Fieldgettext("txtAuftragsnummer")
Set rtitem = mailnote.CreateRichTextItem( "Body" )
Call rtitem.AppendText( "Testdaten geprüft und Vorgang abgeschlossen" )
Call rtitem.AddNewLine( 1 )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( "Öffnen Sie das nachfolgende Dokument---> " )
Call rtitem.AppendDocLink( doc, db.Title )
Call rtitem.AddNewLine( 1 )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( "Mit freundlichen Grüßen" )
Call ws.EditDocument(True,mailnote)
End If
End Sub
Vielen Dank!
