Hallo,
ich generiere per Script direkt eine Mail in der Mailbox des Servers. Das klappt wunderbar. Nun sollen diese Mail mehrere bekommen. Das geht nur, wenn ich das ggf. mit Liste belegte 'SendTo'-Feld als Item in 'Recipients' komplett übernehme (Code1).
Wenn ich mehrere Werte per Scipt reinmache (Code2), gibt es eine Fehlermeldung vom Router:
Message xxxx contains no recipients.
Der Code1 sieht so aus:
Set doc_mail =db_mail.createdocument()
doc_mail.form="Memo"
doc_mail.from=session.UserName
Set item2=doc.GetFirstItem("SendTo")
Set item=item2.CopyItemToDocument(doc_mail,"SendTo")
Set item=item2.CopyItemToDocument(doc_mail,"Recipients")
doc_Mail.PostedDate=Cdat(Date$ + " " + Time$)
doc_mail.Subject=doc.subject(0)
Set rtitem = doc_mail.CreateRichTextItem( "BODY" )
Call rtitem.AppendText(doc.Briefanrede(0))
Call rtitem.AppendText(Chr(10) + Chr(10))
...
Call doc_mail.Save(True,False)
Der Code2 sieht so aus:
Set doc_mail =db_mail.createdocument()
doc_mail.form="Memo"
doc_mail.from=session.UserName
Set item=New NotesItem(doc_mail,"SendTo","")
item.AppendToTextList("adr1@blabla.de")
item.AppendToTextList("adr3@blabla.de")
Set item=New NotesItem(doc_mail,"Recipients","")
item.AppendToTextList("adr1@blabla.de")
item.AppendToTextList("adr3@blabla.de")
doc_Mail.PostedDate=Cdat(Date$ + " " + Time$)
doc_mail.Subject=doc.subject(0)
Set rtitem = doc_mail.CreateRichTextItem( "BODY" )
Call rtitem.AppendText(doc.Briefanrede(0))
Call rtitem.AppendText(Chr(10) + Chr(10))
...
Call doc_mail.Save(True,False)
Warum geht das in Code2 nicht ?
Danke