Hallo Forum,
ich habe ein Script erstellt das mir ein Frontend-Dokument kopiert und dasmir den Absendereintrag austauscht. Es funktioniert eigentlich alles, ausser das wenn ich mehrere Empfänger angebe, wird das Dokument nur an den erst genannten Empfänger übertragen. Die restlichen Empfänger werden nicht berücksichtigt.
Was beachte ich nicht?
Dim session As New NotesSession
Dim current As NotesDatabase
Dim mailbox As New NotesDatabase("","")
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim maildoc As NotesDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim item As Variant
Dim item_body As notesItem
Dim item_sub As Variant
Dim sendas As String
sendas = "hau_den_lukas@cirmes.de"
' get handle to mail.box on the users current mail server
Set current = session.CurrentDatabase
Call mailbox.Open( current.server, "mail.box" )
' Aktuelles Dokument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.document
' Create a new document in the severs mail box
Set maildoc = mailbox.CreateDocument
maildoc.Form = "Memo"
maildoc.From = sendas
maildoc.SendFrom = sendas
' maildoc.SendTo = sendto
item = uidoc.FieldGetText( "entersendto" )
Call maildoc.ReplaceItemValue( "sendto", item )
' maildoc.Recipients = sendto
Call maildoc.ReplaceItemValue( "recipients", item )
' maildoc.Subject = subject
item_sub = uidoc.FieldGetText( "Subject" )
Call maildoc.ReplaceItemValue( "Subject", item_sub )
' Body-Feld
Dim rtitemA As Variant
Dim rtitemB As Variant
Call doc.Save( True, False )
Call uidoc.Save
Set rtitemA = doc.GetFirstItem( "Body" )
Set rtitemB = New NotesRichTextItem (maildoc, "Body")
Call rtitemB.AppendRTItem( rtitemA )
maildoc.PostedDate = Now()
maildoc.ComposedDate = Now()
maildoc.DeliveredDate = Now()
maildoc.Principal = sendas
maildoc.EncryptOnSend = False
Call maildoc.Save( True, False )
Danke für Eure Hilfe im voraus.