Faire un drag and drop d’Outlook d’une seule pièce jointe parmi plusieurs - WINDEV 2025 - Foro de desarrolladores

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio

Mensajes recientes

Conéctese...

Español

Inicio → WINDEV 2025 → Faire un drag and drop d’Outlook d’une seule pièce jointe parmi plusieurs

Faire un drag and drop d’Outlook d’une seule pièce jointe parmi plusieurs

Iniciado por Indygege, 21,nov. 2018 18:45 - No hay respuesta

Indygege

Miembro registrado
1 mensaje

Publicado el 21,noviembre 2018 - 18:45

Bonjour à tous !
Je souhaite faire un drag and drop d’Outlook -> Appli Windev d’une seule pièce jointe parmi plusieurs
pour la sauver sur disque.

J’ai trouvé sur ce forum l’info pour DnD de toutes les pièces jointes par OLE

Procedure ProcLâcherCible()
i est un entier
MailItem est un objet automation dynamique
pautMailAttachements est un objet automation dynamique
QUAND EXCEPTIONEXCEPTION DANS
  POUR i = 1 _À_ MonOutlook>>ActiveExplorer>>Selection>>Count
   MailItem = MonOutlook>>ActiveExplorer>>Selection(i)
    POUR j = 1 _À_ pautMailAttachements>>Count
     pautMailAttachements>>Item(j)>>SaveAsFile("C:\Users\plapo\Desktop    \"+pautMailAttachements>>Item(j)>>DisplayName)  

   FIN
FAIRE
FIN

Libérer MailItem
Libérer pautMailAttachements