Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Wiesel am 23.01.08 - 16:54:18

Titel: Mailversand per Script
Beitrag von: Wiesel am 23.01.08 - 16:54:18

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!

Titel: Re: Mailversand per Script
Beitrag von: koehlerbv am 23.01.08 - 17:09:30

Du kannst kein RichTextItem anlegen und ohne zu speichern im Frontend öffnen.

Bernhard

Titel: Re: Mailversand per Script
Beitrag von: Klafu am 23.01.08 - 17:19:14

Hab deinen Code auch eben getestet.
Ich würd sagen, am Ende fehlt ein

Code

Call mailnote.Save(True,  True)

Titel: Re: Mailversand per Script
Beitrag von: Wiesel am 24.01.08 - 09:47:25

Vielen Dank für die Antworten!
Hat prima geklappt.