nIDSessionOutlook est un entier
MonMessage est un Email
SI TABLE_Mails_dans_dossier=-1 ALORS
Info("Sélectionner le mail à supprimer")
SINON
nIDSessionOutlook = EmailOuvreSessionOutlook("")
// Session ouverte ?
SI nIDSessionOutlook = 0 ALORS
ErreurInfo()
SINON
SI EmailChangeDossier(nIDSessionOutlook, SAI_Dossier)=Vrai ALORS
// je change de dossier
EmailLitEntêtePremier(nIDSessionOutlook)
TANTQUE Email.EnDehors = Faux
SI Email.ID=TableauEmail[TABLE_Mails_dans_dossier].ID ALORS
// je suis positionné sur le mail à déplacer

//Dim objOutlook As Outlook.Application
objOutlook est un objet automation "Outlook.Application"

//Dim objMail As Object
objMail est un objet automation dynamique

//Dim DossierDestination As Outlook.Folder
DossierDestination est un objet automation dynamique

//Dim myDestFolder As Outlook.Folder
myDestFolder est un objet automation dynamique

//Dim myNameSpace As Outlook.NameSpace
myNameSpace est un objet automation dynamique

//Set objOutlook = Outlook.Application 'Instance de l'application

//Set myNameSpace = objOutlook.GetNamespace("MAPI")
myNameSpace=objOutlook>>GetNamespace("MAPI")

//Set DossierDestination = myNameSpace.GetDefaultFolder(olFolderInbox).parent
DossierDestination= myNameSpace>>GetDefaultFolder(6)

//Set myDestFolder = DossierDestination.Folders("Dossier d'archivage")
//myDestFolder=DossierDestination>>Folders(SAI_Dossier_Destination)


//myDestFolder = DossierDestination>>Folders marche

myDestFolder = DossierDestination>>Folders("Test Elodie")
//objMail = myNameSpace>>GetItemFromID(ConstruitVariantAutomation(Email.ID)) NE MARCHE PAS
//objMail = myNameSpace>>GetItemFromID(Email.ID) NE MARCHE PAS
//objMail = myDestFolder>>GetItemFromID(Email.ID) NE MARCHE PAS

// -*-*-*-* MON PROBLEME EST SUR CETTE LIGNE -*-*-*- //
objMail = myNameSpace>>GetItemFromID(Email.ID)

objMail = objMail>>Move(myDestFolder)

Libérer objMail
Libérer myDestFolder
Libérer DossierDestination
Libérer myNameSpace
SORTIR
FIN
EmailLitEntêteSuivant(nIDSessionOutlook)
FIN
//
SINON
Erreur("Pb changement de dossier")
FIN
EmailFermeSession(nIDSessionOutlook)
FIN
FIN