1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

var
  NotesSession: Variant;
  Database, Template, View: Variant;
  Mail: Variant;
  vI : Integer;
begin 
  NotesSession := CreateOleObject('Notes.Notessession');
  Template := NotesSession.GetDatabase('','Mail6.ntf',TRUE);
  IF not Template.IsOpen THEN
    Template.Openmail;
  Database := NotesSession.GetDatabase('','TestDB01',TRUE);
  IF not Database.IsOpen THEN
    Database.Openmail;
  IF not Database.IsOpen THEN
  begin
    Template.CreateFromTemplate('','TestDB01',FALSE);
    Database := NotesSession.GetDatabase('','TestDB01',TRUE);
    IF not Database.IsOpen THEN
      Database.Openmail;
  end;

  Database.Title := 'Test Mailbox';
  Database.Replicate('');
  View := Database.GetView('($Inbox)');
  FOR vI := 0 to 10-1 do
  begin
    Mail:=Database.Createdocument;
    Mail.Appenditemvalue('From','info@pricosoft.de');
    Mail.Appenditemvalue('SendTo','du@pricosoft.de');
    Mail.Appenditemvalue('Subject','Blub_' + IntToStr(vI));
    Mail.Appenditemvalue('Body','Text');
    Mail.Save(TRUE,FALSE,FALSE);
    // in Posteingang verschieben (kopieren oder was auch immer)
    Mail.PutInFolder('($Inbox)',TRUE);
    // aus Entwürfe löschen
    Mail.RemoveFromFolder('($Drafts)');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

var vDT : TDateTime; Document : Variant;
begin
  { ... }
  Document.Appenditemvalue('Form','Memo');
  Document.Appenditemvalue('DeliveredDate',vDT);
  Document.Appenditemvalue('PostedDate',DateTimeToStr(vDT));
end;