oLk d'Outlook.Application = nouvel Outlook.Application () ;
olNS de _NameSpace = oLk.GetNamespace (« MAPI ») ;
oFolders de _Folders = olNS.Folders ;
oFolder de MAPIFolder ;
oFolder = oFolders [1] ;
oFolderIn de MAPIFolder = oFolder.Folders [« NetixchangeIn »] ;
oFolderOut de MAPIFolder = oFolder.Folders [« NetixchangeOut »] ;
oMailItem de MailItem ;
pour (international i = oFolderIn.Items.Count ; i >= 0 ; i--)
{
oMailItem = (MailItem) oFolderIn.Items [I] ;
oMailItem.Move (oFolderOut) ;
}
|