oLk Outlook.Application = новое Outlook.Application ();
olNS _NameSpace = oLk.GetNamespace («MAPI»);
oFolders _Folders = olNS.Folders;
oFolder MAPIFolder;
oFolder = oFolders [1];
oFolderIn MAPIFolder = oFolder.Folders [«NetixchangeIn»];
oFolderOut MAPIFolder = oFolder.Folders [«NetixchangeOut»];
oMailItem MailItem;
для (int iий = oFolderIn.Items.Count; iий >= 0; iий--)
{
oMailItem = (MailItem) oFolderIn.Items [I];
oMailItem.Move (oFolderOut);
}
|