DragDrop Email depuis outlook sur form
Bonjour,
Je chercher a faire un drag and drop d'un email (outlook) sur un form en VB6.
Auriez-vous une idée de comment dois-je procéder ?
De ce que j'ai trouvé pour le moment, je sais faire : savoir si c'est un mail quand je drop sur le forme :
Code:
1
2
3
4
5
6
7
| Private Sub File1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
If (Data.GetFormat(-16370) = True) Then
'Ceci est un email
endif |
Mais comment faire pour arriver a copier ce mail sur le disque ? étant donné que l'état dans lequel il se trouve, il n'est pas encore un fichier.
Auriez-vous une idée ?
