Domino 9 und frühere Versionen > Entwicklung

Felder beim Erzeugen einer Mail per LS

(1/2) > >>

bandit:
Mir ist die Bedeutung einiger Felder beim erzeugen einer Mail per LS nicht ganz klar. Zum einen gibt es ja "SendTo" und "BlindCopyTo", nur wenn ich lediglich dort die Empfänger eintrage, kommen keine Mails an. Erst wenn ich noch zusätzlich "Recipients" fülle kommen die Mails an. Wofür ist das Feld "Recipients" denn genau da?

Driri:
Hmm...also ich habe eigentlich noch nie Recipients gefüllt.
Gibst Du die Form mit an ?

Recipients enthält alle Empfänger einer Mail (also alles was in SendTo, CopyTo und BlindCopyTo steht) und wird IMO automatisch generiert.

bandit:
Ja hab ich, ich hab das Recipiens auch nur gefüllt, weil ich es in einem Beispiel auch gesehen habe. Ich fülle folgendes:

Set docMail = dbMailbox.CreateDocument
Call docMail.ReplaceItemValue("Subject", strSubject)
Call docMail.ReplaceItemValue("SendTo", strSendTo)
Call docMail.ReplaceItemValue("BlindCopyTo", "varBCC")
Call docMail.ReplaceItemValue("Recipients", strSendTo)
Call docMail.ReplaceItemValue("From", strFrom)
Call docMail.ReplaceItemValue("PostedDate", Now)
Set rtiBody = New NotesRichTextItem(docMail, "Body")
...
Call docMail.Save(True, False)

Dadurch bekommen die Empfänger in varBCC keine Mail, weil sie nicht mit in "Recipiens" stehen. Trage ich in "Recipiens" dann aber varBCC statt strSendTo dann bekommen genau umgedreht nur die Leute in varBCC eine Mail.

Driri:
Ist klar, da Recipients vom Router ausgewertet wird. Du müßtest dann also in Recipients alle Werte reinpacken.

Glombi:
Du erstellst direkt in der mail.box des Servers das Mail?
Dann wird das Item Recipients wohl benötigt.

Der Code muesste so aussehen:

dim item_Recipients as NotesItem
Set docMail = dbMailbox.CreateDocument
Call docMail.ReplaceItemValue("Subject", strSubject)
Call docMail.ReplaceItemValue("SendTo", strSendTo)
Call docMail.ReplaceItemValue("BlindCopyTo", "varBCC")
set item_Recipients = docMail.ReplaceItemValue("Recipients", strSendTo)
forall bcc in docMail.BlindCopyTo
call item_Recipients.AppendToTextList(bcc)
end forall
Call docMail.ReplaceItemValue("From", strFrom)
Call docMail.ReplaceItemValue("PostedDate", Now)
Set rtiBody = New NotesRichTextItem(docMail, "Body")
...
Call docMail.Save(True, False)




Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite