oLk de Outlook.Application = nuevo Outlook.Application ();
olNS del _NameSpace = oLk.GetNamespace (“MAPI”);
oFolders de los _Folders = olNS.Folders;
oFolder de MAPIFolder;
oFolder = oFolders [1];
oFolderIn de MAPIFolder = oFolder.Folders [“NetixchangeIn”];
oFolderOut de MAPIFolder = oFolder.Folders [“NetixchangeOut”];
oMailItem de MailItem;
para (internacional i = oFolderIn.Items.Count; i >= 0; i--)
{
oMailItem = (MailItem) oFolderIn.Items [i];
oMailItem.Move (oFolderOut);
}
|