Créer un champ image dans une fenêtre windev : IMG_MAIL Indiquez ce code dans la déclaration globale de la fenêtre Code (Windev): IMG_MAIL..DndCible = dndProgrammé Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(DndSurvolCible,IMG_MAIL,dndSurvol) Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(DndLacherCible,IMG_MAIL,dndLâcher) Code (Windev): PROCEDURE DndSurvolCible() Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(dndCopier) Ce code permet de récupérer l'email, son adresse, sujet et pièces jointes. Celles-ci sont ajoutées dans un tableau de chaînes. Code (Windev): PROCEDURE DndLacherCible() MonOutlook est un objet OLE dynamique nCpt est un entier nCpt2 est un entier inbrPJ est un entier EMLSujet est une chaîne sExpediteur est une chaîne sNomFichier est une chaîne MailItem est un objet Automation dynamique sDateHeure est un DateHeure TabDocument est un tableau <agrandissement=1> de chaînes QUAND EXCEPTION DANS // Parcours des messages dropés MonOutlook = Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!("Outlook.Application") SI MonOutlook = Null ALORS MonOutlook = allouer un objet OLE "Outlook.Application" SI MonOutlook = Null ALORS Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!() RENVOYER Faux FIN POUR nCpt = 1 _A_ MonOutlook>>ActiveExplorer>>Selection>>Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! MailItem = MonOutlook>>ActiveExplorer>>Selection(nCpt) EMLSujet = MailItem>>Subject objReply est un objet OLE dynamique = MailItem>>Reply SI PAS objReply=Null ALORS sExpediteur = objReply>>Recipients(1)>>name libérer objReply FIN sDateHeure = MailItem>>ReceivedTime inbrPJ = MailItem>>Attachments>>Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens! POUR nCpt2 = 1 A inbrPJ SELON Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(MailItem>>Attachments>>Item(nCpt2)>>FileName,fExtension)) CAS ".XXXX" // Indiquer les extensions d'exclusions AUTRE CAS : MailItem>>Attachments>>Item(nCpt2)>>SaveAsFile("Répertoire de sauvegarde"+["\"]+MailItem>>Attachments>>Item(nCpt2)>>FileName) // Récupération de tous les fichiers Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(TabDocument,"Répertoire de sauvegarde"+["\"]+MailItem>>Attachments>>Item(nCpt2)>>FileName) FIN FIN sNomFichier = "Répertoire de sauvegarde"+["\"]+"EML_"+sExpediteur+"_"+sDateHeure..PartieDate+"_"+Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(sDateHeure..PartieHeure,"HHMMSS")+".msg" MailItem>>SaveAs(sNomFichier) Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!(TabDocument,sNomFichier) FIN FAIRE RENVOYER Faux FIN libérer MailItem libérer MonOutlook