oLk de Outlook.Application = Outlook.Application novo ();
olNS do _NameSpace = oLk.GetNamespace (“MAPI”);
oFolders dos _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 (int i = oFolderIn.Items.Count; i >= 0; i--)
{
oMailItem = (MailItem) oFolderIn.Items [i];
oMailItem.Move (oFolderOut);
}
|