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:

oFields = (Fields)oMessageItem2.Fields;
oMessageItem2.Subject = "Subject";
oFields.Item("IconNo").Value = 10;
oFields.Item("Received").Value = true;
oFields.Item("Priority").Value = DvMessagePriority.DvMsgPriorityImportant;
oFields.Item("SRFrom").Value = "Thomas.Tobit@tobit.com";
oFields.Item("SRTo").Value = "local.user@domain";
oFields.Item("SRFromDisplay").Value = "Tobit Thomas";
oFields.Item("Content").Value = "Body Text";
strAdr[0, 0] = "Thomas.Tobit0@tobit.com";
strAdr[1, 0] = "Thomas.Tobit1@tobit.com";
strAdr[2, 0] = "Thomas.Tobit2@tobit.com";
strAdr[3, 0] = "Thomas.Tobit3@tobit.com";
strAdr[0, 1] = "Thomas Tobit0";
strAdr[1, 1] = "Thomas Tobit1";
strAdr[2, 1] = "Thomas Tobit2";
strAdr[3, 1] = "Thomas Tobit3";
oFields.Item("To").Value = strAdr;
strAdr = null;
strAdr = new string[1, 2];
strAdr[0, 0] = "Thomas.Tobit4@tobit.com";
strAdr[0, 1] = "Thomas Tobit4";
oFields.Item("CC").Value = strAdr;
oMessageItem2.Attachments.Add(@"c:\testfile.txt", "Display name");
oMessageItem2.Save(DBNull.Value, DBNull.Value);
oAcc.Logoff();                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

  oFields := IDispatch (oMsgItem2.Fields) as Fields;
  oMsgItem2.Subject := 'Subject';
  oFields.Item('IconNo').Value := 10;
  oFields.Item('Received').Value := True;
  oFields.Item('Priority').Value := DvMsgPriorityImportant;
  oFields.Item('SRFrom').Value := 'Thomas.Tobit@tobit.com';
  oFields.Item('SRTo').Value := 'Thomas.Test@test.de';
  oFields.Item('SRFromDisplay').Value := 'Tobit Thomas';
  oFields.Item('Content').Value := 'Body Text';
  VarTo := VarArrayCreate([0, 1, 0, 1], varVariant);
  VarTo[0, 0] := 'Thomas.Test@test.de';
  VarTo[0, 1] := 'Thomas Test';
  oFields.Item('To').Value := VarTo;
  VarCC := VarArrayCreate([0, 1, 0, 1], varVariant);
  VarCC[0, 0] := 'Thomas.Tobit4@tobit.com';
  VarCC[0, 1] := 'Thomas Tobit4';
  oFields.Item('Cc').Value := VarCC;
  oMsgItem2.Attachments.Add('c:\testfile.txt', 'Display name');
  oMsgItem2.Save(DvMsgSelEMail, 0);
  oAccount.Logoff();                    

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:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

using DvApi32;
...

DavidAPIClass oApp;
Account oAcc;
Archive oArchive;
MessageItem2 oMessageItem2;
Fields oFields;
string[,] strAdr = new string[4, 2];

oApp = new DavidAPIClass();
oApp.LoginOptions = DvLoginOptions.DvLoginForceAsyncDuplicate;
oAcc = oApp.Logon("", "", "", "", "", "NOAUTH");

oArchive = oAcc.GetSpecialArchive(DvArchiveTypes.DvArchivePersonalIn);
oMessageItem2 = oArchive.CreateArchiveEntry(DvItemTypes.DvEMailItem);

oFields = (Fields)oMessageItem2.Fields;
oMessageItem2.Subject = "Subject";
oFields.Item("IconNo").Value = 10;
oFields.Item("Received").Value = true;
oFields.Item("Priority").Value = DvMessagePriority.DvMsgPriorityImportant;
oFields.Item("SRFrom").Value = "Thomas.Tobit@tobit.com";
oFields.Item("SRTo").Value = "local.user@domain";
oFields.Item("SRFromDisplay").Value = "Tobit Thomas";
oFields.Item("Content").Value = "Body Text";

strAdr[0, 0] = "Thomas.Tobit0@tobit.com";
strAdr[1, 0] = "Thomas.Tobit1@tobit.com";
strAdr[2, 0] = "Thomas.Tobit2@tobit.com";
strAdr[3, 0] = "Thomas.Tobit3@tobit.com";
strAdr[0, 1] = "Thomas Tobit0";
strAdr[1, 1] = "Thomas Tobit1";
strAdr[2, 1] = "Thomas Tobit2";
strAdr[3, 1] = "Thomas Tobit3";

oFields.Item("To").Value = strAdr;

strAdr = null;
strAdr = new string[1, 2];

strAdr[0, 0] = "Thomas.Tobit4@tobit.com";
strAdr[0, 1] = "Thomas Tobit4";

oFields.Item("CC").Value = strAdr;

oMessageItem2.Attachments.Add(@"c:\testfile.txt", "Display name");
oMessageItem2.Save(DBNull.Value, DBNull.Value);

oAcc.Logoff();
...